• 0
Sign in to follow this  
victormartins

Problemas Na Hora De Redirecionar Usuario Se Enha Estiver Invalida

Question

é o seguinte, o sistema de login aqui está dando um erro na hora de verificar se o usuario e senha são validos na hora de redirecionar, ai vai o cod

login.asp

<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dados/bdl.mdb")

sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"

set rsLogin = conexao.execute(sql)

Login = rsLogin("login")
Senha = rsLogin("senha")

if not rsLogin.eof then

Session("login")=TRUE
Session("senha")=TRUE
Session.Timeout = 120
Response.Redirect "fotos.asp"

else
Session("login")=False
Session("senha")=False
Response.Redirect "logar.asp"

end if


conexao.close
rsLogin.close
set conexao = nothing
set rsLogin = nothing

%>

e quando digita o usuario ou senha invalidos ou não digita nada ele da esse erro:

Tipo de erro:

ADODB.Field (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/sapientia/login.asp, line 11

linha 11:

Login = rsLogin("login")

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

se não encontrou o usuario, não tem nada no rsLogin. o que significa que vai dar erro msmo se você tentar acessar algum campo nele.

acho que assim seria o certo:

<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dados/bdl.mdb")

sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"

set rsLogin = conexao.execute(sql)

if not rsLogin.eof then

Login = rsLogin("login")
Senha = rsLogin("senha")

Session("login")=TRUE
Session("senha")=TRUE
Session.Timeout = 120
Response.Redirect "fotos.asp"

else
Session("login")=False
Session("senha")=False
Response.Redirect "logar.asp"

end if


conexao.close
rsLogin.close
set conexao = nothing
set rsLogin = nothing

%>[/code]

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this