Este ejemplo utiliza un archivo: Quote.asp, que genera un número aleatorio basado en el número total de citas de la tabla Quote y mueve el puntero de registro hasta dicho número aleatorio dentro del conjunto de registros.
Una vez que el conjunto de registros ha abierto la tabla, se ejecuta una rutina de Visual Basic Scripting Edition (VBScript) para generar el número aleatorio. La rutina utiliza el método Recordset.getCount para determinar el número de registros del conjunto de registros.
Cuando se ha generado el número aleatorio, se mueve el puntero de registro en el conjunto mediante el método Recordset.moveAbsolute. A continuación, se muestra el código para este proceso:
Sub QuoteRecordset_ondatasetcomplete()
Randomize()
intQuote
= Int((QuoteRecordset.getCount()) * Rnd + 1)
QuoteRecordset.moveAbsolute(intQuote)
End sub
La cita y el autor se muestran mediante dos etiquetas con enlace a datos. La primera está enlazada con el campo quote y la segunda con el campo author.