Link casuali

Questo script permette di visualizzare dei link a caso da una lista predefinita in una pagina web:

<%@ Page language="VB" %> <script runat="server">
Sub page_load( obj As object, e As EventArgs)
Dim strLink As String 
strLink = ""
Dim intCasuale As Integer 
intCasuale = (5-1)Rnd + 1
intCasuale = cint( intCasuale )
Select Case intCasuale
Case 1:
strLink = "http://www.indirizzo.it"
Case 2:
strLink = "http://www.indirizzo.it"
Case 3:
strLink = "http://www.indirizzo.it"
Case 4:
strLink = "http://www.indirizzo.it"
Case 5:
strLink = "http://www.indirizzo.it"
End Select 
myLink.NavigateUrl = strLink
End sub </script> <asp:hyperlink id="myLink" 
runat="server">
Link Casuale </asp:hyperlink>