Recuperar registros al azar con BD

[Adler]

Hola

Tengo este script de hace una años, de cuando usaba access. Espero que te sirva

Código asp:

<%@LANGUAGE="VBSCRIPT"%>
<%
function getRandomNumber()
    Randomize()
    getRandomNumber = int (1000*Rnd)+1
end function
 
Response.Write "SACAR REGISTROS ALEATORIAMENTE<br> el order by ha de ser un número igual que los campos seleccionados menos 1"
 
'Numero de registros que devolveremos del recordset
recNo = 3
 
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./Prueba.mdb")&";" 
SQL = "SELECT TOP " & recNo & " id, referencia, nombre, tamano, Rnd(" & -1 * (getRandomNumber()) & "*id) FROM tabla5 ORDER BY 4"
 
'---Debug-----
'Response.Write(SQL)
'Response.End()
'-------------
 
 
set rs = oConn.Execute(SQL)
registros = rs.GetRows
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
 
For i = 0 To UBound(registros,2) 
Response.Write registros(0,i)  &" - " & registros(1,i)  &" - " & registros(2,i)  &" - " & registros(3,i) & "<br />"
Next
%>
 

En cuanto a migrar de access a MySQL tenemos la herramienta MySQLMigration

Suerte