Sitelerde reklam için kullanılan dönüşümlü banner sisteminin nasıl yapıldığını anlatacağım.Bu sistemde veritabanındaki kayıtlarımızdan rastgele seçme işlemi yapılıyor.
Bunun için tablo adında bir tablomuz id(autonumber),isim(text) 2 tane alanımız olsun.
Kodumuzda rastgele bir id seçimi yapılacak.

<%
'baglantim adında veritabanı bağlantınız olacak


set rs = server.createobject("ADODB.Recordset")
sql = "select * from tablo"
rs.open sql,baglantim,1,3

Randomize
rastgele = Int((rs.RecordCount*Rnd)+0)
rs.Move(rastgele)

response.write rs("isim")

%>

Böylece her seferinde farklı bir bir isim yazılacak.Buraya isim yerine resminizin yolunu koyabilirsiniz.Böylece her seferinde farklı bir banner gelen sistem olur.