Consigliare un sito web casuale

Grazie al seguente script, è possibile mostrare al proprio visitatore un sito web casuale tra quelli contenuti in un array specifico.

<% @page language="Vb" %>

<script runat="server">

Sub page_load(obj As object, e As eventargs)

randomize

Dim strSito() as string={ "html.it", "innovatel.it", "gifanimate.it", "freeasp.it", "freephp.it"}

Dim intCasuale As Integer

intCasuale =ubound(strSito)-lbound(strSito)

intCasuale = intCasuale * rnd

intCAsuale = intCasuale + lbound(strSito)

intCasuale = cint(intCasuale)

consiglio.text ="Sito consigliato: "+strSito(intCasuale)

End sub

</script>

<asp:Label id="consiglio" value="" runat="server"/>