ADODB.Field error '80020009'

[enrico16101990]

scusate ho un semplice script che visualizza i dati contenuti in un mdb

 
<%
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/mdb-database/pr.mdb")
objConn.Open strConn
%>

<%
numeroRecord=Session("ID")
sql = "SELECT * FROM pr WHERE Id="&numeroRecord
%>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn ,3,3
%>

<%
do while not rs.eof
response.write "<tr>"
response.write "<td>"
response.write rs("Riferimento") & "</td>" & "<td>"
response.write rs("Data") & "</td>" & "<td>"
response.write rs("invio") & "</td>" & "<td>"
response.write rs("File") & "</td>" & "<td>"
response.write "</tr>"
response.write "
"
rs.movenext
loop
rs.Close
set rs = Nothing
%>

però quando nel database non ci sono dati mi da quest'errore

ADODB.Field error '80020009'

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

sapete spiegarmi il perche? grazie

[maxmix80]

Ciao,
Prova così...

If rs.BOF AND r.EOF Then
response.write "Nessun dato trovato..."
Else
While Not rs.EOF
response.write rs("Riferimento")
.....
rs.Movenext
wend
End If

[enrico16101990]

mi stampa questo

Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'

[enrico16101990]

no scusami era un mio sbaglio con il tuo metodo e tutto ok
grazie mille