Ir para conteúdo
Fórum Script Brasil
  • 0

*.eof


cleberonaldo

Pergunta

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... wink.gif

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...