----- Original Message -----
Sent: Wednesday, July 18, 2001 9:10 AM
Subject: valida login
Ol� pessoal...
tenho aqui uma d�vida em ASP. Tenho uma p�gina chamada cadastro.asp. O
Internauta se cadastra com seus dados, seu login e senha. Logo ap�s entra em
outra p�gina e deve inserir este mesmo login e senha para poder entrar em uma
p�gina restrita. O banco de dados do cadastro chama-se
cadastro.mdb.
A senha e login est�o
sendo inseridas corretamente no banco de dados mas qdo vou entrar com o login
e senha para ser redirecionada � outra p�gina ocorre o seguinte
erro:
Microsoft VBScript compilation error '800a0400'
Expected statement
/ValidaLogin.asp, line 9
Option Explicit
^
O c�dido da p�gina
ValidaLogin.asp est� logo abaixo. Caso pudessem dar uma olhada eu agradeceria
de mont�o... <HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Option Explicit (linha 9)
Response.Expires = 0
Dim objConn, objRs, strQuery,
strConnection, rsquery, QueryString
'Conectando com o banco de dados
cadastro.mdb
Set objConn =
Server.CreateObject("ADODB.Connection")
objConn.Open
"DBQ=e:\home\xxxxx\dados\cadastro.mdb;Driver={Microsoft Access Driver
(*.mdb)}"
'Seleciona da tabela cadastro
strQuery = objConn.execute("select *
from cadastro where login = '" & UCase(request.QueryString("txtLogin"))
& "'")
%>
<%
response.write "login : " &
UCase(request.QueryString("txtLogin")) & "<br><br>"
%>
<%
if
(UCase(request.QueryString("txtSenha")) = UCase(rsquery("senha")))
then
response.redirect("advogadolinks.htm")
else
response.write "Erro !!!" &
"<br><br>"
end if
%>
</BODY>
</HTML>
