*.eof

[cleberonaldo]

Estou fazendo um site, na hora de fazer a verificação de login e senha, ele faz normalmente, mas se colocar um login ou senha errados, ele dá o seguinte 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.

/futuro/login.asp, line 12

sendo q o normal é se usar o "rs.EOF" para quando ele não axar nada... Eu já dei umas olhadas nos codigos para downloads e todos tem o mesmo problema... keria uma ajuda referente a isso...

Vlw...

[fercosmig]

coloca depois do select

If Rs.BOF and Rs.EOF Then

Response.Write "<script>history.back();alert('Invalid User or Password!!!')</script>"

Else

Response.Redirect(" ...

[cleberonaldo]

Ele continua com o mesmo erro... eu axo q ele não reconhece o rs.EOF como se não axasse no Banco... vocês conhecem algum código do tipo "no match" do VB???

[cleberonaldo]

Este é meu código:

<%

Session.LCID = 1046

dim conexao, sql, rs, login, senha, validade

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

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

conexao.Open banco

login = Request.Form("login")

senha = Request.Form("senha")

sql = "select * from associado where login = '"& login &"' and senha = '"& senha &"'"

set rs = conexao.execute(sql)

varvalidade = rs("validade")

varlogin = rs("login")

varsenha = rs("senha")

atual = now()

if rs.eof then

%>

<script>

alert (Login ou Senha Inválidas.')

</script>

<%

Response.Redirect "index.asp"

elseif datediff("yyyy",atual,validade) < 0 then

%>

<script>

alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.')

</script>

<%

Response.Redirect "index.asp"

elseif datediff("yyyy",atual,validade) = 0 and datediff("m",atual,validade) < 0 then

%>

<script>

alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.')

</script>

<%

Response.Redirect "index.asp"

else

Session("login") = login

Response.Redirect "logado.asp"

end if

conexao.close

set conexao = nothing

%>

E dá o seguinte erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

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.

/futuro/login.asp, line 12

[.Andreia.]

Tente assim:

<%
Session.LCID = 1046
dim conexao, sql, rs, login, senha, validade
set conexao = server.createObject("adodb.connection")
banco = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb")
conexao.Open banco
login = Request.Form("login")
senha = Request.Form("senha")
sql = "select * from associado where login = '"& login &"' and senha = '"& senha &"'"
set rs = conexao.execute(sql)

atual = now()

if rs.eof then
%>

<script>
alert (Login ou Senha Inválidas.')
</script>

<%
Response.Redirect "index.asp"
elseif datediff("yyyy",atual,validade) < 0 then
%>

<script>
alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.')
</script>

<%
Response.Redirect "index.asp"
elseif datediff("yyyy",atual,validade) = 0 and datediff("m",atual,validade) < 0 then
%>

<script>
alert ('Validade excedida. Peça a renovação no Link Cadastro de Sócio.')
</script>

<%
Response.Redirect "index.asp"
else
Session("login") = login
Response.Redirect "logado.asp"
end if

conexao.close
set conexao = nothing 
%>

[cleberonaldo]

Vlw galera... já resolvi o problema... agradeço a ajuda... flws...