Un ejemplo corto, fácil de entender, y muy útil si queremos en nuestra web mostrar un mensaje
al azar de alguna Base de datos. Puede usarse para presentar novedades, servicios, etc... de manera aleatoria.
<%
Dim oConn, RS, registros, registro_azar ' Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=C:\carpeta\bd\tubase.mdb" ' seleccionamos todos los registros.
sql = "SELECT * FROM tu_tabla"
RS.OPEN sql, oConn, 1, 1 'los contamos con RecordCount.
registros = rs.RecordCount 'Iniciamos randomize para que funcione el Rnd.
Randomize() 'obtenemos un regitro al azar.
registro_azar = Int((registros * Rnd)) 'Vamos hasta el registro.
RS.Move(regitro_azar) 'Mostramos donde estamos parados.
response.write RS(0) 'Cerramos y limpiamos (como siempre).
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
%>
