do while non va...

[agenti]

ho questo codice:

Set rec = Server.CreateObject("ADODB.Recordset")
				strSQL="SELECT * FROM Messaggi WHERE  idpren="& request("idpren") &" "
				rec.open strsql, conn, 1, 3
				if not rec.eof then
				Do while not rec.eof%>
				<%=Replace(rec("messaggio_corpo"),vbcrlf, "
")%>
				<% rec.movenext
				   loop
				   end if%>

mi restituisce un errore:
ADODB.Field (0x80020009)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/last_3/sito/admin/admin.asp


Tipo di browser:
sarò fuso io..........
probabile....

il caldo comincia...