![]() |
![]() |
<%
dim site1,site2,site3,saysay
site1=http://www.site1.com
site2=http://www.site2.com
site3=http://www.site3.com
sitesayisi=3
intLowerBound = 1
intUpperBound = sitesayisi
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = "site"&Int(sngRandomValue)
Response.Redirect (intRandomInteger)
%>