Visita Casuale

Grazie al seguente script, è possibile inviare il visitatore a visitare in modo casuale un web tra quelli in elenco:

<%

function pagina()

randomize()

dim strLink(4)

strLink(0) = "http://www.innovatel.it"

strLink(1) = "http://www.html.it"

strLink(2) = "http://freeasp.html.it"

strLink(3) = "http://pro.html.it"

strLink(4) = "http://freephp.html.it"

dim intCasuale

intCasuale = ubound(strLink) * rnd()

response.redirect strLink(intCasuale)

end function

call pagina()

%>