obtener varios registros aleatoriamente

[jorel]

Hola que tal, espero me puedan ayudar.

Necesito obtener varios registros de forma Aleatoria.

Tengo este código...

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("Mi_basededatos.mdb")
SQL="SELECT * FROM tabla"
rs.OPEN sql, oconn, 3, 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber


response.write(rs("nombre"))
response.write(rs("desc1"))


Este me obitene de mi tabla registros de forma aleatoria, pero como le puedo hacer si quiero obtener varios registros de la tabla sin que se repitan.

Es decir me gustaria poner varios response.write

response.write(rs("nombre"))
response.write(rs("desc1"))
response.write(rs("nombre"))
response.write(rs("desc1"))
response.write(rs("nombre"))
response.write(rs("desc1"))

Pero asi solo me trae el mismo registro, es aleatorio cada vez que actualizo, pero es una acutalizada en los mismos campos me trae la misma información ¡

Ok mchas gracias de Antemano.

Jorge Alberto Santana Hernández.

[Mulato]

Saludos...

Aqui te coloco una semichuleta para que te ayudes.... termina de adaptarlo...

sql = "SELECT nombre, desc1 FROM tabla ORDER BY nombre"
sql2 = "SELECT COUNT(*) total FROM tabla"

Set result = con.Execute(sql)
Set result2 = con.Execute(sql2)



<%'Escribe el Registro
Response.Write result.Fields("nombre") &", " &result.Fields("des1") %>

<%'Pasa a la siguiente fila
result.MoveNext
Loop%>


Suerte...

[maestro]

<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("Mi_basededatos.mdb")
SQL="SELECT * FROM tabla"
rs.OPEN sql, oconn, 3, 1
for contador=1 to 10 ' Esto nos da 10 registros aleatorios
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
response.write(rs("campo"))
next
%>

[josego]

Saludos.

Amigo aquí te va una propuesta en el SELECT:

"SELECT TOP N FROM TABLA WHERE condición ORDER BY newid()"

donde:

N: número de registros máximos que deseas devolver.

Espero te sirva.

Saludos.

Jo