<% 

' numero massimo di record casuali
n = 4

 ' query SQL
 strSQLMax = "SELECT Max(ID) as MaxVal FROM tabella"
 strSQL = "SELECT ID, titolo FROM tabella Where ID IN ("

 ' apertura conn
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open strConn ' la stringa di conn

 ' estrai valore massimo
 Set rs = conn.Execute(strSQLMax)
 intMax = rs("maxVal")
 rs.Close
 set rs = Nothing

 ' genera valora casuale
Randomize()

for i = 1 to n
 intRandom = CInt ((Rnd() * intMax) + 1)
 strRandom = intRandom & "," & strRandom
next

' tolgo l'ultimo carattere
strRandom = Left(strRandom, Len(StrRandom)-1)

 ' estrai record
 Set rs = conn.Execute(strSQL & strRandom & ")")

for i = 1 to n
   ' visualizza in qualche modo
   ' ...
  rs.MoveNext
next

 rs.Close
 set rs = Nothing

' chiusura conn
 conn.Close
 set conn = Nothing

%>