Random fra en Database

Jeg skal have lavet en funktion som tager en tilfældig post ud af en database, men den post skal kunne passe på nogle værdier.

Scripttet ser sådan ud:

idag = date()

    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database/database.mdb")
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open strDSN
    Sql = "Select count(*) as Found from reklamer where datotil > " & idag & ""
      Set Rs =  myConn.Execute(Sql)
      Ialt = Rs("found")
      Sql = "Select * from reklamer where datotil > " & idag & " and datofra > " & idag & " and flyvin = true"
      Set Rs =  myconn.Execute(Sql)
   
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    Rs.MoveFirst
    For i = 1 to RandNum - 1
      Rs.MoveNext
    next
   

%>


-Søren