Bem usa assim:
<%
Dim login, senha
login = request.Form("login")
senha = request.Form("senha")
set conn = server.CreateObject("ADODB.Connection")
conn.open " provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("login.mdb") & ";"
dim sql
sql = "Select * from gerencia where login='"&login&"' and senha='"&senha&"'"
Dim rs, logado
set rs = conn.execute(sql)
if rs.eof then
logado = false
else
logado = true
end if
if logado = true then
session("logado") = true
response.Redirect("pagina1.asp")
else
response.Redirect("erro.asp")
end if
Agora deixa eu explicar essa parte aqui :
if rs.eof then
logado = false
else
end if
que voce tinha botado antes.
se não encontrar o ususario, logado = false
se não encontrar. a variavel logado nem iria existir.
então como existe o usuario, a variavel logado não existira e voce fazendo isso
if logado = true... não daria certo.
Agora se você deixase o :
if rs.eof then
logado = false
else
end if
Como está e mudase aqui no final deixando assim:
if logado = false then
response.Redirect("erro.asp")
else
response.Redirect("pagina1.asp")
end if
tambem taria certo. ok??? T+
Edição feita por: _UsP_, 30/04/2004, 13:34.
