29/04/2003, 14:58
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 3 meses Puntos: 1 | |
| Cuanta complicacion.
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("mibase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.OPEN sql, oconn, 3, 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
response.write("campo1")
response.write("campo2")
' etc etc
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%> |