Estrarre un record a caso dal database con Asp

Autore: Luca Ruggiero | Tell a Friend eBook ASP base Impara a creare siti dinamici con ASP e VBScript da zero! Corso ASP Impara a creare siti dinamici professionali con ASP! E-Commerce con ASP Impara a creare un sito di E-Commerce con carrello della spesa!

Grazie all'oggetto Recordset di ADO è molto semplice estrarre un record a caso da un database. L'esempio che segue, ampiamente commentato, mostra come estrarre un record casuale dal database database.mdb, composto dalla tabella persone col solo campo di tipo testo nome:

<%@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("database.mdb"));
    Rs.Open("SELECT nome FROM persone", Cn, 3, 3);

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

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

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