Random Response.Redirect:

Code Only

<%
Response.Buffer = True
Randomize

Dim arrsites(3), websites

arrsites(0) = "http://www.webitcorp.com"
arrsites(1) = "http://dhdusa.net"
arrsites(2) = "http://www.onenuttyweb.com"
arrsites(3) = "http://turnwall.com"

websites = Cint(3*Rnd)
Response.Redirect arrSites(websites)

%>