Programalama > ASP

<%
'Tanımlamalarımızı yapalım.
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/myBanner.mdb") 

'Nesnelerimizi tanımlayalım
SET objConn = Server.CreateObject("ADODB.Connection")
SET objRS = Server.CreateObject("ADODB.Recordset")

'Bağlanalım
objConn.Open strConn

'Sorgumuz da hazırlansın
strSQL = "SELECT * FROM tblMyBanner"

'Ve tabloyu sorgulayalım
objRS.Open strSQL, objConn, 1, 3

'Zamana göre bir rastgele sayı aldıralım
Randomize Timer

'Aklından sıfırdan recordcount'a kadar bir sayı tut
iGidilecek = Int(objRS.RecordCount * Rnd)

'Ve o sayıya git
objRS.Move(iGidilecek)

'Gerisi size kalmış
%>