udtræk tilfældig post fra databse

LowerBound = 1
UpperBound = AntalPoster

Randomize
    RandomNumber = Int(Rnd * UpperBound) + LowerBound
    strSQL = "Select * From dintabel Where ID = " & RandomNumber
    Set rs = Conn.Execute(strSQL)

Takker for det oasen

Forudsat at ID-nr. antager værdier fra 1 til antallet af poster.
Lidt mere fleksibelt:

LowerBound = 1
UpperBound = Højeste ID-værdi

Do
  Randomize
    RandomNumber = Int(Rnd * UpperBound) + LowerBound
    strSQL = "Select * From dintabel Where ID = " & RandomNumber
    Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
  Response.Write rs("ID"
  Count = 1
End If
Loop While Count <> 1

Så lidt da :)