Erro ao Logar Área Restrita

[Gilberto Jr 26]

Boa tarde;

Seguinte, eu to tendo problema nas áreas restritas que eu tenho no site.

Tenho uma área chamada Painel De Controle[ Administradores do Site que acessa ] e a outra Admin[ Clientes Acessa essa área ].

Na área painel de controle eu uso esse código

if rs.eof = false then

session("painelcontrole") = true

session("nome") = rs("nomeexibicao")

session("user") = rs("login")

session("pass") = rs("senha")

session.Timeout=1000

ELSE

session("painelcontrole") = false

session("msgerro") = "Login ou senha invalido.</font>"

end if

E na área Admin eu uso esse código

if rs.eof = false then

session("acessoadmin") = true

session("nome") = rs("nome")

session("user") = rs("rotulo")

session("pass") = rs("senha")

session("codigo") = rs("codigo")

session.Timeout=1000

ELSE

session("acessoadmin") = false

session("msgerro") = "Login ou senha invalido.</font>"

end if

E esta dando esse erro quando na Painel de Controle quando entro nas duas áreas ao mesmo tempo no mesmo navegador

ADODB.Field error '80020009'

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

/painelcontrole/index.asp, line 0

O que pode ser isso e como eu devo resolver?

Att;

[wilnet 92]

Olá Gilberto Jr, blza!

 

Verifique em sua base de dados sem tem algum Registro incompleto, se estiver, complete-o ou delete-o.

 

Esse pode ser uns dos problemas.

 

Espero ter ajudado.

 

vlw

[Gilberto Jr 26]

Bom dia

wilnet

Os meu dados estão todos completos....

 

Att;

[xanburzum 169]

A causa mais provável é que não há registo que satisfaçam o critério. Por exemplo, isso iria acontecer com o código assim:

<%
set conn = CreateObject("ADODB.Connection")
conn.open <connection string>
set rs = conn.execute(<sql>)
do while not rs.eof
' process
rs.movenext
loop
' ...
%>
Para evitar esse erro de "explodir" sua página ASP, é preciso prender para o caso onde não há registros estão lá. A maneira mais fácil de fazer isso é adicionando as seguintes linhas:

<%
set conn = CreateObject("ADODB.Connection")
conn.open <connection string>
set rs = conn.execute(<sql>)
if not rs.eof then
do while not rs.eof
' process
rs.movenext
loop
else
response.write "Sem resultados."
end if
' ...
%>
Se você está certo de que há resultados, você pode verificar se a versão do MDAC é a mais recente.

Outra possível razão é que você está usando um procedimento armazenado que opera em uma tabela temporária, ou uma operação row-affecting antes de sua declaração de select. Para contornar este problema, emita o seguinte no início do seu procedimento armazenado: