290807.



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
%>