Erro Em Autenticação De Usuario

[Rickardo]

se eu digito o login e a senha correta vai normal

se eu digito um q não existe ele da esse erro, mais deveria aparecer a pagina form_erro.asp

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/brc/storcase/login/login.asp, line 11

aki vai o codigo do arquivo login.asp

<%

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

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

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

set rsLogin = conexao.execute(sql)

Login = rsLogin("login") ---------> linha 11

Senha = rsLogin("senha")

if not rsLogin.eof then

Session("login")=TRUE

Session("senha")=TRUE

Response.Redirect"ucp.asp"

else

Response.Redirect"form_erro.asp"

end if

conexao.close

rsLogin.close

set conexao = nothing

set rsLogin = nothing

%>

grato

[Ceh]

Coloca assim:

[Rickardo]

Coloca assim:

ASP

if not rsLogin.eof then Login = rsLogin("login") Senha = rsLogin("senha") Session("login")=TRUE Session("senha")=TRUE Response.Redirect"ucp.asp" else ...

[ ]'s

ae véio rigadão.............

deu certo

[Guest - rickardo -]

esqueci de explicar, mas só os principais:

ASP

<% dim con, rsLogin, sql Set con = Server.CreateObject("ADODB.Connection") set rsLogin=Server.CreateObject("ADODB.RecordSet") con.open"DBQ=E:\Webspace\conceitoweb1\adm-arthmick\arthmick.com.br\db\banconetempresarial.mdb;DRIVER={Microsoft Access Driver (*.mdb)}" 'RECUPERA DO FORMULÁRIO formlogin = request.form("usuario") formsenha = request.form("senha") 'CONFIRMA SE O USUÁRIO ESTAH CORRETO sql="SELECT * FROM clientes where usuario='"& formlogin &"'" rsLogin.Open sql,con if rslogin.EOF then 'SE USUÁRIO não ESTIVER CORRETO CAI NA PÁGINA ABAIXO response.redirect "loginerror.htm" else 'CONFERE SENHA if rslogin.fields("senha")=formsenha then else 'SE SENHA ESTIVER ERRADA CAI NA PÁGINA ABAIXO response.redirect "loginerror.htm" end if end if %> 'SE ESTIVER TUDO CERTO CONTINUA A PÁGINA.

Valeu cara brigadão..........

realmente esse forum aki ( pelo menos a cessão de ASP) é bem legal e o pessoal realmente são sangue bom em ajudar os manos.

valu mesmo rapaziada.