Random af x antal billeder uden gentagelser

Jeg har lave en kode, som burde vælge x antal billeder fra en database. Det gør den også, men den tager ikke forskellige, så derfor er der tit 2 eller 3 ens billeder.

Dette er den kode jeg bruger nu:

<%
antalRandom = (x)
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


%>

Er der nogen der kan se fejlen eller evt. komme med et nyt kodeeksempel. Jeg er kørt helt fast.

Håber i guruer kan hjælpe