Publicado em 17 de nov.

Erro no While!

Fiz o seguinte código para dar while nas informações do meu banco de dados em MDB.

preciso só que eles sejam exibidos um embaixo do outro.

<%
sql = "Select * From news"
Set rs = Cn.Execute(sql)
%>
<%
While Not rs.bof or rs.eof
codigo = rs("tipo")

	response.Write codigo & ("<br />")
	rs.MoveNext
	Wend

%>
Ai aparece o seguinte erro, que nunca eu vi, desde q eu programo em ASP.

>
ADODB.Field error '800a0bcd'

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

/hot_site/SQL_transfer.asp, line 15

Alguém pode me ajudar.

Abraço a todos.

Discussão (4)

Entre ou cadastre-se para participar da discussão

xanburzum· 17 de nov.

veja se o nome do campo, esta correto

rs("tipo"), pois nao esta encontrando

Ted k'· 19 de nov.

isso

é só fazer o if antes para ver a existência:

<%
sql = "Select * From news"
Set rs = Cn.Execute(sql)
if not rs.eof then
While Not rs.eof

 response.Write rs("tipo")&"<br>"
 rs.MoveNext
	Wend

else
response.write("nada encontrado")
end if
%>

Fábio BN· 19 de nov.

Veja se assim funciona:

<%
sql = "Select * From news"
Set rs = Cn.Execute(sql)
%>
<%
While Not rs.eof

 response.Write rs("tipo")& "<br />"
	rs.MoveNext
	Wend

Ted k'· 21 de nov.

Fábio BN, praticamente você fez a mesma coisa que o Zé Luiz, tem que colocar o IF para verificar se existe para não dar mais o erro