random in loop

[agenti]

ciao a tutti...

vorrei mandare un random in loop...

ho provato così ma mi da un errore...

<%                                                        
	Set rec = Server.CreateObject("ADODB.Recordset")
	strSQL="SELECT descr,localita,destinazione,codoff,idop,tipoofferta,prezzo_cat FROM search WHERE tipoofferta <> 'Solo volo' ORDER BY prezzo_cat Desc"
	rec.open strsql, conn, 3, 3
	do while not rec.eof
%>
<%
Randomize 
Vai = Int((rec.RecordCount * Rnd)+ 1)
rec.Move
%>
<div class="link">
<font color="#000080">
<%=rec("localita")%>(<%=rec("destinazione")%>)</font>:
<%
sText = rec("descr")
iMaxChar = 60
sResult = sText
If Len(sResult) > iMaxChar Then 
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "[...]"  %>
<%End If%>

[b]<font face="Verdana" size="1" color="#FF0000">
da € <%=rec("prezzo_cat")%></font>
</div>
<% rec.movenext
loop
%>

in poche parole non trova il record...

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/public/default.asp

spero in un aiuto...
grazie.

[Roby_72]

rec.Move vai

Roby