Non capisco dove sbaglio con questo errore

[mmaria]

Aiuto
Non capisco dove sto sbagliando
leggo questo errore:

ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Chiuso in questo modo:

rs.movenext
loop


ma... mi da l'errore!

Maria

[Vincent.Zeno]

Non capisco dove sto sbagliando

nel fatto di chiedere un record che non esiste, e lo stesso vale se a tabella è vuota e non hai previsto questa condizione.
il messaggio di errore parla chiaro.

[optime]

Posta tutto il codice

[mmaria]

<%
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=62.000.000.000; Database=Sql0000000_0; UID=Sql000000;PASSWORD=0000000;"
conn.open(strConn)
ID=request.querystring("id")
sql = "SELECT * FROM tabella WHERE ad_ID="&ID&" ORDER BY DATA DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF


select case rs("campo13")

case "1":
%>
<!--#include file="elenco1.asp"-->
<%

case "2":
%>
<!--#include file="elenco2.asp"-->
<%

case else:
%>
<!--#include file="elenco0.asp"-->
<%
end select
rs.movenext
loop
%>




I file elenco contengono:



elenco1:
<%
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=62.000.000.000; Database=Sql0000000_0; UID=Sql000000;PASSWORD=0000000;"
conn.open(strConn)
sql = "SELECT * FROM tabella where campo8 = 1 order by data DESC limit 8"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
while not rs.eof
response.write "<p class=FotoFoto>"&rs("AD_TITLE")
rs.movenext
wend
rs.close
end if
set rs = nothing
%>

elenco2:
<%
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=62.000.000.000; Database=Sql0000000_0; UID=Sql000000;PASSWORD=0000000;"
conn.open(strConn)
sql = "SELECT * FROM tabella where campo8 = 2 order by data DESC limit 8"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
while not rs.eof
response.write "<p class=FotoFoto>"&rs("AD_TITLE")
rs.movenext
wend
rs.close
end if
set rs = nothing
%>


elenco0:
<%
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Driver={MySQL ODBC 3.51 Driver}; Server=62.000.000.000; Database=Sql0000000_0; UID=Sql000000;PASSWORD=0000000;"
conn.open(strConn)
sql = "SELECT * FROM tabella where campo8 = 0 order by data DESC limit 8"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
while not rs.eof
response.write "<p class=FotoFoto>"&rs("AD_TITLE")
rs.movenext
wend
rs.close
end if
set rs = nothing
%>

[optime]

Devi chiamare i record set in modo diverso, e non sempre rs, altrimenti l'animale va in confusione

[mmaria]

Ok grazie. Funziona. Grazie ancora

[optime]

Optime!