Jump to content
Fórum Script Brasil
  • 0

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")

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]

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.



  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644530
×
×
  • Create New...