[Asp10.net] valida login

Wed, 18 Jul 2001 04:52:34 -0700

 
----- Original Message -----
To: asp
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>

 



http://www.asp10.net
==========================================
Solu��es simples para problemas complexos
==========================================


Grupos.com.br
p�gina do grupo diret�rio de grupos diret�rio de pessoas cancelar assinatura

Responder a