per ordinare in modo casuale il mio recordset utilizzo:

<%
Dim Rs
Dim Rs_numRows
Randomize()
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = MM_amore_STRING
Rs.Source = "SELECT top 10 User FROM indirizzi WHERE account = 1 ORDER BY rnd(Contatore)"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
%>

funziona benissimo.
peccato che quando rifaccio il refresh della pagina continua a farmi vedere sempre la stessa sequenza ...
solo cliccando innumerevoli volte sul pulsante refresh , dopo un po' comincia a funzionare.. PERCHE??????
grazie