Registros aleatorios no repetidos

[mrgubu]

A mí lo único que se me ocurre para llegar a donde yo quiero a partir del primer código y con mi actual nivel de asp (califiqúemoslo benévolamente como nivel 'intuitivo-chapucero') es lo siguiente:

almacenar en un array id() las ids aleatorias que saco de aplicar la función RAMDOM RS. Luego, con este vector yo lo único que sabría hacer es un bucle-chapuza (recuerdese mi nivel actual de asp) que repetiría el rs tantas veces como elementos tenga el vector (es decir, tantas veces como númeor de registros aleatorios queramos obtener. O sea, desde esto:


Set ObjRandom = New RandomRS
ds = ObjRandom.GetRandomRS("SELECT id FROM excavaciones")
dim id(9)
if isArray(ds) then
For i = 0 to 9
id(i) = ds(i,1)
Next
else
response.Write("no")
end if


Luego haría esto:

For i = 0 to 9

strSQL = "select * from excavaciones where id = "& id(i) &" "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn

Response.write rs("yacimiento") & " | " & rs("ciudad") & " | ,etc"
rs.close
set rs nothing

Next

Creo que funcionaría, todavía no lo he probado, pero sería una chapuza, ya que tendría que abrir y cerrar rs tantas veces como registros aleatorios quiera obtener.