Este script esta funcionando con unos .swf en una base de datos Access entra a
www.eradiomx.com/estudiantes y vas a escuchar música actualiza y escucharas otro tema
<%
Dim oConn, RS, registros, registro_azar
' Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("
tubase.mdb ")&";"
' seleccionamos todos los registros.
sql = "SELECT * FROM tablita"
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(registro_azar)
'Mostramos donde estamos parados.
response.write RS(0)
'Cerramos y limpiamos (como siempre).
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
%>
Muy simple y sin mayor problema