Seleccionar un registro al azar

[Kalamor]

Hola,

Tengo una BD Access en la cual tengo varios registros.
Para la página index de mi site quiero enseñar 1 registro de la BD al azar, cual seria la cadena SELECT?

Gracias

[Cbas]

Fijate si te sirve algo así...
Lo que hago es pasar a un Array todo el Recordset de la tabla.



sSQL = "SELECT min(ID) FROM tabla"
oRc.Open sSQL, oCOn
nr_min = oRc(0)
sSQL = "SELECT max(ID) FROM tabla"
oRc.Open sSQL, oCOn
nr_max = oRc(0)

sSQL = "SELECT * from tabla"
oRc.Open sSQL, oCOn
arr_oRc = oRc.GetRows

nr_Aleatorio = Int(nr_max * Rnd() + nr_min)

for x=LBound(arr_oRc,2) to UBound(arr_oRc, 2)
if int(arr_oRc(0, x)) = nr_Aleatorio then
exit for
end if
Next

Response.Write "Noticia Aleatoria: " & arr_oRc(0, x)

[Kalamor]

Gracias Sebas, pero he probado tu codigo con mi Base de datos y a la linea del:
Response.write "Noticia Aleatoria: " & arr_oRc(0, x)
Me da un error porque dice que el subíndice está fuera del intervalo
Puede ser porque hay varios registro eliminados?

[Kalamor]

Gracias Sebas, pero he probado tu codigo con mi Base de datos y a la linea del:
Response.write "Noticia Aleatoria: " & arr_oRc(0, x)
Me da un error porque dice que el subíndice está fuera del intervalo
Puede ser porque hay varios registro eliminados?

[Kalamor]

Gracias Sebas, pero he probado tu codigo con mi Base de datos y a la linea del:
Response.write "Noticia Aleatoria: " & arr_oRc(0, x)
Me da un error porque dice que el subíndice está fuera del intervalo
Puede ser porque hay varios registro eliminados?