Random udtræk fra db

strSQL = "SELECT * FROM TABEL_NAVN"

rs.Open strSQL, Conn, 3, 1
rndMax = CInt(rs.RecordCount)

if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax)) 'Find et random nummer
  rs.Move rndNumber 'Flyt til den første valgte record
  Response.Write rs("navn") 'udskriver her
  end if
rs.Close

Oki jeg tjekker det lige...