Errore strano al termine estrazione dati da db

[NoMartinaNoPart]

qualcuno di buon cuore può aiutarmi con questo ciclo?

ricevo questo messaggio di errore

error '80020009'

alla riga Do while Rs("Classe") = Codice

credo che possa centrarci qualcosa il comando Rs.moveNext in quanto l'errore si verifica nel momento in cui i dati da estrarre dal DB sono terminati

per favore HELP MEEEEE!!!!!!!!



<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("\m dbdbase\xxxx.mdb;")

Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM Classi ORDER BY Classe;"

Rs.Open SQL, conn

do until Rs.eof
Codice=RS("Codice")
response.write "<div>" & vbCrLf
response.write "<span>" & RS("Classi.Descrizione") & "</span>" & vbCrLf
Do while Rs("Classe") = Codice
Response.Write(""&Rs("Classi.nome")&"")& vbCrLf
Rs.moveNext
Loop
Loop
%>

[optime]

devi SEMPRE controllare anche il .eof

[NoMartinaNoPart]

ci sto provando ma non ottengo risultati forse sbaglio la posizione di inserimento del controllo

do until Rs.eof
Codice=RS("Codice")
response.write "<div>" & vbCrLf
response.write "<span>" & RS("Classi.Descrizione") & "</span>" & vbCrLf
Do while Rs("Classe") = Codice or RS.EOF
Response.Write(""&Rs("Classi.nome")&"")& vbCrLf
Rs.moveNext
Loop
Loop

ti pare corretto?

[optime]

boh, non capisco a cosa serva sto codice

Do while Rs("Classe") = Codice

[NoMartinaNoPart]

in effetti si tratta di 2 cicli annidati

il primo mi crea un div e uno span

il secondo deve scrivermi ripetutamente (per un numero variabile di volte) un <a href=".... >

per ottenere pressappoco questo :
<div>
classeA (span)
__sottoclasseA (a href) (valore di RS("Codice")=1)
__sottoclasseA (a href) (valore di RS("Codice")=1)
__sottoclasseA (a href) (valore di RS("Codice")=1)
classeB (span)
__sottoclasseB (a href) (valore di RS("Codice")=2)
__sottoclasseB*(a href) (valore di RS("Codice")=2)

*il problema si verifica dove c'è l'aterisco perchè in effetti a quel punto quando uso il comando rs.movenext, RS("Codice") è uguale a 2 ma nel DB sono finite le sottoclassi con valore 2 e quindi si verifica questo errore (almeno credo che questa sia la logica)

[NoMartinaNoPart]

grazie a tutti per l'interessamento al mio problema.

risolto con Exit do

speriamo che l'informazione sia di aiuto anche ad altri

ciao