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

archivio_eventi.asp, line 158



codice:
<%	


i = 0

Do Until RS.EOF 
Do While iRecordsShown < iPageSize And Not RS.EOF 		
         if i mod 2 = 0 then 'numero di colonne
                  if i > 0 then
                           response.write "</tr>"
                  end if

                  response.write "<tr>"
         end if
		 id = rs("id")
		 immagine = rs("immagine")
		 evento = rs ("Evento")
		 sottotitolo = rs("sottotitolo")
		 citta = rs("citta")
		 luogo = rs("luogo")
		 data = rs("data")
		 ore = rs("ore")
		 
		 
         response.write "<td width='50%' >"		 
		 if len(rs("immagine")) > 0 then
		 response.write "<div >[img]&immagine&[/img]</div>"
		 end if
		 response.write "
" 
		 response.write "<div class=""TitoloEventi"">"&Evento&"</div>"
         response.write "<div class=""titoli-1""> "&sottotitolo&" </div>"
		 response.write "<div class=""titoli-1""> "&citta&" </div>"
		 response.write "<div class=""titoli""> "&luogo&" </div>"
		 response.write data
		 response.write ""
		 response.write ore		

'====================tronca il messaggio===============
lunghezzaMassima = 500
testo = rs("contenuto")

if len(testo) > lunghezzaMassima then

for i = lunghezzaMassima to 1 step -1
tempCarattere = mid(testo,i,1)
	if tempCarattere = " " then
	testo = left(testo,i-1) & "..."
	exit for
	end if
next

end if

response.write testo
'================fine tronca il messaggio===============
 response.write "
continua a leggere...&raquo;" 



         response.write "</td>"
		 
		 





         RS.MoveNext

         i = i + 1
		 iRecordsShown = iRecordsShown + 1
Loop
		RS.MoveNext
Loop

%>
in rosso la linea 158.
a me sembra tutto a posto voi che dite?