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