Link casuali

Visualizzare link casuali da una lista 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.innovatel.it"

Case 2:

strLink = "http://www.html.it"

Case 3:

strLink = "http://www.flash5.it"

Case 4:

strLink = "http://www.gifanimate.it"

Case 5:

strLink = "http://www.freeasp.it"

End Select

myLink.NavigateUrl = strLink

End sub

</script>

<asp:hyperlink id="myLink" runat="server">

Link Casuale

</asp:hyperlink>