<%

dim reklamlar(4),rndSayi

reklamlar(0) = "<a href=""http://google.com.tr""><img src=""resimler/a.jpg"">"
reklamlar(1) = "<a href=""http://youtube.com""><img src=""resimler/b.jpg"">"
reklamlar(2) = "<a href=""http://r10.net""><img src=""resimler/c.jpg"">"
reklamlar(3) = "<a href=""http://facebook.com""><img src=""resimler/d.jpg"">"
reklamlar(4) = "<a href=""http://bloxoo.com""><img src=""resimler/e.jpg"">"

Randomize
rndSayi = Int ( Rnd * Ubound( reklamlar ) ) + 1
Response.Write reklamlar(rndSayi)

%>