<%
Veritabani = Server.MapPath("banner.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & veritabani
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set webkodlama = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM bannersistem"
webkodlama.open sql, bag, 1, 3
rsx = webkodlama.RecordCount
Randomize
id = Int((rsx * Rnd)+ 0)
webkodlama.Move(id)
%>
MAKENSİS
