Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tperez

ADODB.Field error '80020009'

Por , em ASP Clássico

Recommended Posts

tperez    0

tperez
Postado

ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.Alguem sabe me dizer o que é este errovalew

Compartilhar este post

Link para o post
Compartilhar em outros sites

joacatito    0

joacatito
Postado

Logo após executar a consulta, teste se existe ou não o registro...If rs.EOF then'execute todas as instruçõesElse'mensagem de erroend if

Compartilhar este post

Link para o post
Compartilhar em outros sites

tperez    0

tperez
Postado 

<!--#include file="../admin/inc/conexao.asp" --><!--#include file="../admin/inc/funcoes.asp" --><!--#include file="../admin/inc/nocache.asp" --><!--#include file="inc_funcoesChat.asp" --><%'response.write application("chatgeral")if session("sala") = "chatgeral" then 	'arrUsuarios = split(application("chatgeral"),"|")	arrUsuarios = retornaUsuario(application("chatgeral"))else	arrUsuarios = retornaUsuario(application("chatConvidado"))end if %><html><link href="../css/wk.css" rel="stylesheet" type="text/css"><style type="text/css"><!--body {	scrollbar-face-color: #FFFFFF;	scrollbar-highlight-color: #FFFFFF;	scrollbar-3dlight-color: #FFFFFF;	scrollbar-darkshadow-color: #FFFFFF;	scrollbar-shadow-color: #FFFFFF;	scrollbar-arrow-color: #FF0000;	scrollbar-track-color: #FFFFFF;}--></style><body background="images/fundoCinza.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><%if session("sala") <> "chatgeral" then		sql = "select top 1 iid,foto,tbChat.uid as ide ,dataSugerida,titulo,observacao,nome from tbChat"	sql = sql & " inner join tbUsuario on tbUsuario.uid = tbChat.uid"	sql = sql & " where status like 'a' and iid = "&session("sala")	'response.write sql		set rsChat = conn.execute(sql)%><div align="center"> </div><table width="100%" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" class="texto">  <tr> 	<td align="center"><img src="../admin/uploadchat/<%=rsChat("foto")%>" width="51" height="50"></td>  </tr>  <tr>	<td align="center"><font color="#333333" size="1"><%=rsChat("titulo")%> </font><br>	  <font color="#666666" size="1"><%=rsChat("nome")%> </font></td>  </tr></table><p>   <%	  rsChat.close	set rsChat = nothing	end if%></p><center>  <img src="images/presentesnasala.jpg" width="135" height="21"> </center><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF" class="texto">	<%	for i=0 to ubound(arrUsuarios)		id = trim(arrUsuarios(i))		if isnumeric(id) then						if session("sala") <> "chatgeral" then								sql = "select apelido, aprovado from tbUsuario"				sql = sql & " inner join tbParticipantes on tbParticipantes.uid = tbUsuario.uid"				sql = sql & " where tbParticipantes.chat_id=" &session("sala") & "and tbUsuario.uid = "&id						else				sql = "select apelido from tbUsuario where uid="&id			end if 			set rsChat = conn.execute(sql)			if rsChat.eof then  				response.Write("ERRO")				response.End()			end if						if not rsChat.eof then  			 %>			  <tr> 			<% if session("sala") = "chatgeral" then %>				  <td><font size="1"><%=rsChat("apelido")%></font></td>			<% else 					if rsChat("aprovado") = "s" then%>					<td><font size="1"><%=rsChat("apelido")%></font></td>				<%end if				end if%>				  </tr>			<%			rsChat.close			set  rsChat = nothing			end if 		end if 	next	%></table><br><%if session("sala") <> "chatgeral" then%><center><img src="images/saladeaudiencia.jpg" width="136" height="32"></center> <table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF" class="texto"><%	for i=0 to ubound(arrUsuarios)		id = trim(arrUsuarios(i))		if isnumeric(id) then					set rsVer = conn.execute ("select iid from tbParticipantes where uid="&id&" and chat_id="&session("sala"))			'if rsVer.eof then 							sql = "select apelido, aprovado from tbUsuario"				sql = sql & " inner join tbParticipantes on tbParticipantes.uid = tbUsuario.uid"				sql = sql & " where tbParticipantes.chat_id=" &session("sala") & "and tbUsuario.uid = "&id				set rsChat = conn.execute(sql)				if rsChat.eof then  					response.Write("ERRO")					response.End()				end if				if not rsChat.eof then  				'response.write sql				'response.end()				%>				  <tr> 				  <%if rsChat("aprovado") = "n" then%>					<td><font size="1"><%=rsChat("apelido")%></font></td>				  <%end if%>				  </tr>				<%				end if 				rsChat.close				set  rsChat = nothing			'end if 			rsVer.close			set  rsVer = nothing								end if 	next	%></table><%end if %></body></html><script language="javascript"> function win_back() { 	document.location = 'i_chat_usuarios.asp'} setTimeout("win_back()",60000);</script> <!--#include file="../admin/inc/fecha_conexao.asp" -->

esta é uma pagina onde mostra os usuarios de uma pagina do chat..

eu fiz o teste colocando RS.EOF e NOT RS.EOF então não é o que o nosso amigo joacatito disse

Compartilhar este post

Link para o post
Compartilhar em outros sites

tperez    0

tperez
Postado

não deu certo não continua o mesmo erroAcabei de descobrir o erroesta pagina é um chat com convidados quando se programa um conversa com convidado precisa de autorização do administrador do site p/ que a o chat seja disponibilizado p/ conversa alterei o status p/ aprovado e ja parou de dar este erroagora vou tratar este erromuito obrigado a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito