Random más ágil

[emajesus]

Estimados amigos:

Empleo el siguiente código para rescatar registros aleatorios de mi BD. No obstante, me da la impresión de que al ser la BD muy voluminosa, retarda 'bestialmente' la carga del registro y con ello de la página. ¿Existe alguna manera de agilizar este código o existe alguno más simple?

Gracias,

Emajesus


<%
set objCON = Server.CreateObject("ADODB.Connection")

objCON = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= diccionario.mdb"

set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT palabra, descripcion FROM glosario", objCON, 3, 1

Dim rndMax
rndMax = CInt(objRS.RecordCount)

objRS.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

objRS.Move rndNumber

response.write("<center><b>[" & objRS("palabra") & "]</b></center><br>")
response.write(objRS("descripcion"))
%>

[maestro]

Ese codigo esta bastante optimo porque no usas objRS.open "SELECT * FROM glosario", objCON, 3, 1, que haria mayor gasto de memoria al traer todos los campos.

Ten en cuenta que lo unico que realiza es un avance del puentero hasta el final de la tabla, trayendo los minimos datos, en tu caso palabra y descripcion.

Si alguien tiene otra opinion......