18/11/2009, 12:51
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: de cai, picha!!!
Mensajes: 1.030
Antigüedad: 18 años, 9 meses Puntos: 41 | |
| Respuesta: Recuperar registros al azar con BD
Código:
Dim totalRegistros, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12
f1 = RandomNumber(1, totalRegistros)
f2 = RandomNumber(1, totalRegistros)
f3 = RandomNumber(1, totalRegistros)
f4 = RandomNumber(1, totalRegistros)
f5 = RandomNumber(1, totalRegistros)
f6 = RandomNumber(1, totalRegistros)
f7 = RandomNumber(1, totalRegistros)
f8 = RandomNumber(1, totalRegistros)
f9 = RandomNumber(1, totalRegistros)
f10 = RandomNumber(1, totalRegistros)
f11 = RandomNumber(1, totalRegistros)
f12 = RandomNumber(1, totalRegistros)
sql = "SELECT * FROM tutabla WHERE id in(" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & "," & f9 & "," & f10 & "," & f11 & "," & f12 & ")"' & Request.QueryString("id")
Set result = con.Execute(sql)
Quizas esto te sirva... tal vez sea un poco bestia, pero asi de pronto se me ocurre esto...
Saludos, Jose |