ASP+VBScript (Ajuda...)

Olá galera td bem???
Estou tentando fazer um sistena de login que utiliza ASP+VBScript

Ao tentar rodar pelo localhost:
ERRO:
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe na cláusula FROM.
/dudesigner/cadcliente/login.asp, line 35

Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Alexa Toolbar; FDM; InfoPath.2)

Página:
POST 40 bytes to /dudesigner/cadcliente/login.asp

POST Data:
usuario=duardo&senha=duardo&Submit=Logar

LOGIN.ASP

CODE

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim RSCLIENTE
Dim RSCLIENTE_numRows

Set RSCLIENTE = Server.CreateObject("ADODB.Recordset")
RSCLIENTE.ActiveConnection = MM_conexao_STRING
RSCLIENTE.Source = "SELECT password, user  FROM [Cadastro de Cliente]"
RSCLIENTE.CursorType = 0
RSCLIENTE.CursorLocation = 2
RSCLIENTE.LockType = 1
RSCLIENTE.Open()

RSCLIENTE_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("usuario"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="/dudesigner/cadcliente/default.asp" [color="#FF0000"]Pagina se der certo[/color]
  MM_redirectLoginFailed="/dudesigner/cadcliente/login.asp" [color="#FF0000"]Pagina se der errado[/color]
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_conexao_STRING
  MM_rsUser.Source = "SELECT user, password"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM Cadastro de Cliente WHERE user='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("senha"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">

</style>
</head>

<body>
<form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">
  <table width="318" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
    <tr>
      <td width="314"><table width="337" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
          <tr>
            <td width="116"> </td>
            <td width="72"> </td>
            <td width="52"> </td>
            <td width="97"> </td>
          </tr>
          <tr>
            <td rowspan="3"><img src="/dudesigner/cadcliente/imagens/segurança.gif" width="116" height="117" /></td>
            <td height="29" colspan="3" class="style2"><div align="center" class="style1">Área Restrita...</div></td>
          </tr>
          <tr>
            <td><div align="right" class="style1"><span class="style11"> Usuario:</span></div></td>
            <td height="37" colspan="2"><input name="usuario" type="text" id="usuario" size="15" maxlength="10" /></td>
          </tr>
          <tr>
            <td><div align="right" class="style1"><span class="style11">Senha:</span></div></td>
            <td height="22" colspan="2"><input name="senha" type="password" id="senha" size="15" maxlength="6" /></td>
          </tr>
          <tr>
            <td height="19"> </td>
            <td> </td>
            <td> </td>
            <td><div align="center" class="style9">
                <label>
                <input type="submit" name="Submit" value="Logar" />
                </label>
            </div></td>
          </tr>
      </table></td>
    </tr>
  </table>



</form>
</body>
</html>
<%
RSCLIENTE.Close()
Set RSCLIENTE = Nothing
%>

Se alguém puder me ajudar???
Desde ja agradeço...

Topic	Forum	Started By	Stats	Last Post Info
Movie+Bitmap+TextField ajuda	Flash & ActionScript	Vaccani	0 Replies 433 Views	25 August 2006 - 11:51 AM By: Vaccani
Erro MsSQL	Projeto :: Lumine	RogerLima	0 Replies 458 Views	17 February 2011 - 05:25 PM By: RogerLima
Erro Com Busca Com Múltiplos Parâmetros, Não Mostra Nada Já fiz no mínimo 100 vezes isso dando certo, agora na parou de rodar	Dreamweaver	mister_sevla	1 Reply 433 Views	21 March 2009 - 02:15 PM By: Thony Conde
$Header From com erro erro no tag $header	PHP	twixlol	2 Replies 769 Views	27 November 2006 - 02:07 PM By: twixlol
object error	Flash & ActionScript	bruno_dam	1 Reply 450 Views	11 March 2006 - 02:23 PM By: _zeh_
ajuda rapida com loadMovie	Flash & ActionScript	raseckefa	1 Reply 524 Views	05 October 2005 - 08:34 PM By: Andrews
PEQUENA AJUDA Como montar um jogo simples no flash	Desenvolvimento de Jogos	Lepera Kid	0 Replies 1234 Views	30 November 2005 - 12:29 AM By: Lepera Kid
phpmyadmin erro de instalações	PHP	reoshiro	0 Replies 556 Views	21 June 2005 - 10:22 PM By: reoshiro

..:: MX Studio Fóruns ::..: ASP+VBScript (Ajuda...) - ..:: MX Studio Fóruns ::..

Publicidade

ATENÇÃO