10/06/2003, 13:19
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses Puntos: 1 | |
| <%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("Mi_basededatos.mdb")
SQL="SELECT * FROM tabla"
rs.OPEN sql, oconn, 3, 1
for contador=1 to 10 ' Esto nos da 10 registros aleatorios
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
response.write(rs("campo"))
next
%> |