Erro

[marcus Gemeos]

Ola, há um erro no código exibido o seguinte:

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.

/aspbbs/inc_login.asp, line 19

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Página:

GET /aspbbs/default.asp

O código é:

Obrigado!

<%

sql = "SELECT senhasite FROM configuracoes"

Set rsTit = Server.CreateObject("ADODB.Recordset")

rsTit.Open sql, conn , 3, 3

senha1 = rsTit("senhasite")

senhasite = Session("senhasite")

if senhasite = senha1 then

nick = Session("nick")

end if

if nick <> "" then

dim idmembro,nick,senha,nome,sobrenome,email,sexo,idioma,avatar,dob,homepage,uin,cidade,estado,pais,assinatura,ip,ultimoacesso,statuslevel,nforum

dim rsUser

sql = "SELECT idmembro, nick, nome, pontosforum, pontosforumtrocas, sobrenome, idioma, email, sexo, avatar, dob, homepage, uin, cidade, estado, pais, assinatura, ip, ultimoacesso, status, nforum FROM membros WHERE nick = '" & nick & "'"

Set rsUser = Server.CreateObject("ADODB.Recordset")

rsUser.Open sql, conn, 3, 3

Linha 19: idmembro = rsUser("idmembro")

nick = rsUser("nick")

nome = rsUser("nome")

sobrenome = rsUser("sobrenome")

email = rsUser("email")

sexo = rsUser("sexo")

avatar = rsUser("avatar")

dob = rsUser("dob")

homepage = rsUser("homepage")

uin = rsUser("uin")

cidade = rsUser("cidade")

estado = rsUser("estado")

pais = rsUser("pais")

assinatura = rsUser("assinatura")

ip = rsUser("ip")

ultimoacesso = rsUser("ultimoacesso")

statuslevel = rsUser("status")

nforum = rsUser("nforum")

idioma = rsUser("idioma")

pontosforum = rsUser("pontosforum")

pontosforumtrocas = rsUser("pontosforumtrocas")

rsUser.Close

sql = "SELECT leveis.*, nick, idmembro, status, bloquear, pontos FROM membros INNER JOIN leveis ON membros.status = leveis.statuslevel WHERE nick = '" & nick & "'"

Set rsUser = Server.CreateObject("ADODB.Recordset")

rsUser.Open sql, conn, 3 , 3

statusleveladmin = rsUser("leveladmin")

statuslevelmembro = rsUser("status")

statuslevelmoderador = rsUser("levelmoderador")

level = rsUser("levelnome")

idmembro = rsUser("idmembro")

bloqueado = rsUser("bloquear")

pontos = rsUser("pontos")

if bloqueado = TRUE then

response.redirect "bloqueado.asp"

end if

if statusleveladmin = TRUE then

administrator = True

end if

if statuslevelmoderador = TRUE then

moderador = True

end if

end if

%><!--#include file="inc_leveis.asp" --><!--#include file="active_users.asp" -->

[kuroi]

ele não encontra nenhum registro q tenha o nick q esta na variavel nick.

o esquema é você testar antes:

sql = "SELECT idmembro, nick, nome, pontosforum, pontosforumtrocas, sobrenome, idioma, email, sexo, avatar, dob, homepage, uin, cidade, estado, pais, assinatura, ip, ultimoacesso, status, nforum FROM membros WHERE nick = '" & nick & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
if rsUser.EOF Then
response.write "não existe usuario com esse nick."
Else
idmembro = rsUser("idmembro")
nick = rsUser("nick")
nome = rsUser("nome")
sobrenome = rsUser("sobrenome")
'--- E ASSIM VAI...
End If[/code]