Erro no While!

[Zé Luiz - Dainet 0]

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.

[xanburzum 169]

veja se o nome do campo, esta correto

rs("tipo"), pois nao esta encontrando

[Ted k' 126]

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 17]

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' 126]

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