De tre nyeste

Vent. Det er ikke de tre nyeste, men tre tilfældige.
Undskyld.

Jeg har lavet dette scrip som vælger 3 tilfædige records, måske det noget du kan bruge:

Rs.Open "SELECT * FROM abbtabel", myConn,1,1
inDB = rs.RecordCount
If inDB > 3 then
  Randomize timer
  newId = Int (rnd*inDB)
  strIndex = "," & newid & ","
  indexFound = 1
  Do while indexFound <3
    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 " UDSKRIV DATA HER med rs("img1") .... "
  next
end if
Rs.Close

Tak