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