Mostrando un registro aleatorio de una tabla


http://www.asptutor.com

Mostrando un registro aleatorio de una tabla


<%' mostrando un registro aleatorio de una tabla
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=Pruebas"


sql = "SELECT * FROM Tu_Tabla"

set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql, conn, 3, 1


intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
response.write rs(0)


rs.Close
conn.close
%>