Errore random su più record

[Psycho Mantys]

Ho questo codice per mostrare un record casuale che deve corrisponde a determinati requisiti (in questo caso che il valore clickunici sia uguale o maggiore di 50).

Se utilizzo il codice per estrarre un solo record va tutto bene, se invece lo utilizzo per estrarne 3 allora iniziano i problemi in quanto a volte il secondo o terzo record non mi compaiono, a volte invece appare il messaggio di errore:
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.



Questo è il sorgente:

<%
Response.Expires = -1000
Dim oRS3, oConn3, sSQL3
Dim rndMax3, rndNumber3 
Set oConn3 = Server.CreateObject("ADODB.Connection")
oConn3.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/books.mdb"))
sSQL3 = "SELECT * FROM Libri WHERE clickunici >= 50"
Set oRS3 = Server.CreateObject("ADODB.Recordset")
oRS3.Open sSQL3 , oConn3, 3
rndMax3 = CInt(oRS3.RecordCount)
oRS3.MoveFirst
Randomize Timer
rndNumber3 = Int(RND * rndMax3) 
oRS3.Move rndNumber3

%>


<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='450' id='AutoNumber1' height='94'>
<tr>
  <td width='33%' height='94' valign="top" align="center">

<a target='_blank' href='redir.asp?id=<%=oRS3("ID")%>'>
  <font color="#000000">
  [img]<%=oRS3("url_immagine")%>[/img]" height="130"></font></a>
<%=oRS3("titolo_libro")%></td>
  <% oRS3.MoveNext %>
<td width='33%' height='129' valign="top" align="center"><a target='_blank' href='redir.asp?id=<%=oRS3("ID")%>'>
  <font color="#000000">
  [img]<%=oRS3("url_immagine")%>[/img]" height="130"></font></a>
<%=oRS3("titolo_libro")%></td>
  <% oRS3.movenext %>
<td width='33%' height='129' valign="top" align="center"><a target='_blank' href='redir.asp?id=<%=oRS3("ID")%>'>
  <font color="#000000">
  [img]<%=oRS3("url_immagine")%>[/img]" height="130"></font></a>
<%=oRS3("titolo_libro")%></td></tr>
</table>

<%
set oRS3 = nothing
set oConn3 = nothing
%> 

Perché mi da questo errore e come risolvo il problema?

[optime]

il perché è semplice: se hai 50 records, e l'estrazione random ti porta 49, al terzo .movenext sei fuori... per risolvere, prima di ogni .movenext testa .eof

[Psycho Mantys]

Ho provato qualche tentativo ma ho sempre lo stesso problema.
Suggerimenti?

[optime]

fa' vedere quello che hai fatto, posta un po' di codice dei tuoi tentativi