Hent tilfældig fra databasen

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open strDSN
Rs.Open "SELECT * FROM tabel", Conn,1,3
Randomize timer
newId = Int (rnd*rs.RecordCount)
rs.move newId,1
'Her udskriver du så den tilfældige post fra tabellen
  response.write rs("kolonnenavn")     
Rs.Close