Banner script

Jeg står og skal lave et banner script... Men jeg manlger ligesom den del som skal hente noget ud fra en database, tilfældigt, jeg har denne kode, som gør det:
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"cgi-bin/banner.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

Sql = \"Select count(*) as Found from banner\"
Set Record =  myConn.Execute(Sql)
Ialt = Record(\"found\")
Sql = \"Select * from banner\"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
bannerid = record(\"id\")
myConn.Close
Set myConn = Nothing

Men findes der ikke en metode, som var lidt mere simpler???