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?