Cita:
Iniciado por ^engonga^ 
sacaron la solucion para que los saque al azar?
Si te sirve yo hago algo asi:
Dim conn, RS, registros, registro_azar, I, minimo1
' Conectamos a la BD.
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("NOM_BASEDATOS.mdb"))
rs.CursorType=adOpenStatic
RS.CursorType = 1
SQL = "SELECT * FROM Productos where flag_oferta ='Si'"
RS.Open SQL, conn,3,1
minimo1 = 1
'/*Tomo la cantidad de registros*/
registros = int(rs.RecordCount) 'maximo
for i=1 to registros
'Obtengo un numero al azar
randomize()
valor_aux = Int(RND * registros)
randomize()
'Pasamos a entero porque RND da decimales
num_aleatorio1 = Int(((registros-minimo1+1) * Rnd) + minimo1)
if num_aleatorio1 = registros then
num_aleatorio1 = num_aleatorio1 - 1
end if
RS.MoveFirst
RS.Move(num_aleatorio1)
----
'Recorro la tabla y tomo la foto del producto con el valor del ID igual al numero aleatorio "num_aleatorio1"
Rs.movenext
I = I+1
LOOP
RS.Close
conn.close
Set RS = Nothing
Set conn = Nothing
----
Es medio rebuscado pero por ahi podes adaptarlo o te da una idea.
Suerte. Saludos