Ragazzi cercando qua e la ho fatto così:

'Loop fisso
num = 1
Do while not num=6

sql = "SELECT COUNT(*) FROM modelle WHERE Suggest = true AND Livello_User >= 4 "
Set Rs = Connect.Execute(sql)
Max = Rs(0)
Rs.Close
Set Rs = Nothing
If Max > 0 Then
Max = Max -1
End If
Randomize()
Casuale = Int(Rnd() * Max)
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM model WHERE Suggest = true AND Livello_User >= 4 "
Set Rs = Connect.Execute(sql)
If Not Rs.EOF Then
Rs.MoveFirst
Rs.Move Casuale
cod = Rs("ID")
Else
Response.Write "Nessun contatto trovato"
End If

SQL="SELECT * FROM model WHERE ID= "&cod&" "

LOOP


Funziona correttamente, l'unica cosa che ho dei doppioni, come risolto il problema...