Registros aleatorios

[Biopepe]

Uso este codigo para mostrar registros de un bd Access aleatoriamente,pero quiero que no me muestre el mismo dos veces seguidas.

set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/db/datos.mdb")

set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from datos"
rs.OPEN sql, conn,3,1
intTotalRecords = rs.RecordCount
Randomize()
session("random")=0
intRandomNumber = Int((intTotalRecords * Rnd))
if session("random")<>intRandomNumber then
rs.Move intRandomNumber
session("random")=intRandomNumber
redimImage ""&rs("nombre_fich")&"", 225, 275, 300, 300
else
Randomize()
intRandomNumber = Int ((intTotalRecords * Rnd))
end if
rs.close
conn.close
Set RS = nothing
Set conn = nothing

redimimage es un procedimiento(creo que se llama asi) que he declarado mas alante. El caso es que hay veces que no carga. ¿hay algo masl en el codigo?
Gracias

[bakanzipp]

entonces copia el trozo que muestra el reg dos veces

redimImage ""&rs("nombre_fich")&"", 225, 275, 300, 300
redimImage ""&rs("nombre_fich")&"", 225, 275, 300, 300

[Biopepe]

Asi lo que consigo es que lo haga dos veces.
Gracias

Lo he solucionado con un Do While

Do while session("random")=0
if session("random")<>intRandomNumber then
rs.Move intRandomNumber
session("random")=intRandomNumber
redimImage ""&rs("nombre_fich")&"", 225, 275, 300, 300
else
session("random")=0
end if
loop

Gracias de todas formas bakanzipp

[bakanzipp]

Uso este codigo para mostrar registros de un bd Access aleatoriamente,pero quiero que no me muestre el mismo dos veces seguidas.

jaa..disculpa lei al vere

[maestro]

amelborp yah on

[josego]

-----------------------------
SELECT top 10 cedula
from USUARIOS
order by newid()
-----------------------------
espero te sirva.

Salu2

Jo