Recuperar registros al azar con BD

[[Fer]_[123]]

Hola gracias por la respuesta, lo solucione con esto:

' seleccionamos todos los registros.
sql = "SELECT * FROM Productos where flag_oferta = 'Si'" '
RS.OPEN sql, oConn, 1, 1
'los contamos con RecordCount.
registros = rs.RecordCount

minimo = 1
maximo = registros
'Iniciamos randomize
Randomize
'obtenemos un regitro al azar entre 1 y la cantidad de registros.
registro_azar = Int(((maximo-minimo+1) * Rnd) + minimo)'''''

'Vamos hasta el registro.
RS.Move(regitro_azar)


<<<<<< Luego recupero los registros: >>>>>>>
EL Problema es que me muestra siempre los mismos 5 y yo quiero que al actualizar la pagina me muestre al azar.

'Tomo solo 5 registros para que me muestre si no se descontrola la pagina
<% I=0
do while not rs.eof and contador <= cint(tamanopagina) and I < 5 %>

<font size="1" face="Tahoma, arial"><strong><font size="2" face="arial, Tahoma" color="#BF1704"><%= RS("Titulo_prod")%></font></strong></font>
<%
Rs.movenext
I = I+1
LOOP
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing

%>

-------------------------------------------------------------------------------
alguna idea de porque? :(
Saludos!