X antal tilfældige billeder uden gentagelse

Jeg har lavet en kode som henter tilfældige billeder fra en db, men nu har jeg bohov for at sikre mig, at den ikek henter det samme billede to gange på samme tid. Der hentes nemlig x antal billeder af gange. Hvordan gøres det?

<%
antalRandom = rs("ABilPri")
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