Random fra db uden gentagelser

Jeg har følgende kode, som jeg har fundet her for et års tid siden.

<%
antalRandom = rs("ABilFor")
inDB = rs.RecordCount
If inDB > antalRandom then
    Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound < antalRandom
    Do
      Newid = Int (rnd*inDB)
    Loop while inStr(strIndex,"," & newid & ",") > 0
    strIndex = strIndex & newid & ","
    indexFound = indexFound + 1
  Loop
  strIndex = mid (strIndex,2,len(strIndex)-2)
  myArr=split(strIndex,",",-1)
  For i = Lbound(myArr) to Ubound(myArr)
   
    rs.move myArr(i),1
       
   
        Response.write "<img src='billeder/random/" & rs("Titel") & "' border='1' width='150' height='150'>"
        Response.Write("<br><br>")
  next
 
end if
%>

Problemet er nu at sådan som jeg læser koden, så skal den også tjekke for gentagelser så man ikke får det samme billede 2 gange.

Jeg kan bare ikke få det til at virke sådan.

Extra info for at det ikek skal forvirre. rs("ABilFor") er bare et tal som udtrækkes fra en db så jeg kan betemme hvor mange billeder der skal vises.