<%
Dim siteler(9)

siteler(0) = "http://www.google.com"
siteler(1) = "http://www.msn.com"
siteler(2) = "http://www.yahoo.com"
siteler(3) = "http://www.netsol.com"
siteler(4) = "http://www.hotscripts.com"
siteler(5) = "http://www.register.com"
siteler(6) = "http://www.webciyiz.com"
siteler(7) = "http://www.ranking-tr.com"
siteler(8) = "http://www.mynet.com"
siteler(9) = "http://www.google.com.tr"
Randomize
sayiiim = Int((9 * Rnd))

response.redirect siteler(sayiiim)
%>