<%@LANGUAGE = JScript%>
<%
// Creo gli oggetti Connection e Recordset
    var Cn = new ActiveXObject("ADODB.Connection");
    var Rs = new ActiveXObject("ADODB.Recordset");

// Apro la connessione ed il Recordset
    Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("nome_database.mdb"));
    Rs.Open("SELECT campo FROM tabella", Cn, 3, 3);

// Conto i record nel database e mi posiziono sul primo
    var Quanti = parseInt(Rs.RecordCount);
    Rs.MoveFirst();

// Estraggo il primo record a caso
    var Casuale = parseInt(Math.random() * Quanti);
    Rs.Move(Casuale); // Mi muovo verso un record a caso
    Response.Write(Rs("campo") + "<br>")

// Conto i record nel database e mi posiziono sul primo
    var Quanti = parseInt(Rs.RecordCount);
    Rs.MoveFirst();

// Estraggo il secondo record a caso
   var Casuale = parseInt(Math.random() * Quanti);
    Rs.Move(Casuale); // Mi muovo verso un record a caso
    Response.Write(Rs("campo") + "<br>")
    
// Conto i record nel database e mi posiziono sul primo
    var Quanti = parseInt(Rs.RecordCount);
    Rs.MoveFirst();
    
// Estraggo il terzo record a caso
    var Casuale = parseInt(Math.random() * Quanti);
    Rs.Move(Casuale); // Mi muovo verso un record a caso
    Response.Write(Rs("campo") + "<br>")


    Rs.Close();
    Cn.Close();
%>

strAccessDB = "Tuo_Database.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
Conn.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM NomeTabella"
rs.Open query,Conn,3,3
if not rs.EOF then
  N = 3 'numero di record casuali da visualizzare
  Randomize
  max = rs.RecordCount-1
  redim arr(max)
  'popolo l'array da 0 al numero di record 
  for i=0 to max
  arr(i)=i
  next
  'mischio i numeri in modo casuale
  for i=0 to max
    casuale = Int((max)*Rnd)
  temp = arr(i)
  arr(i) = arr(casuale)
  arr(casuale) = temp
  next
  'visualizzo gli N record casuali
  for i=0 to N-1
    rs.Move arr(i)
    Response.Write rs("Campo") & "<br>"
    rs.MoveFirst 
  next
end if