Código fuente de 'Vinculo-aleatorio.asp'

<html>

<head>
<title>Vínculo aleatorio - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<p align="center"><b><font size="3">Vínculo aleatorio</font></b>
<body style="font-family: Arial; font-size: 11pt">

</p>
Se presenta como enlace aleatorio una dirección de internet entre 6 posibles. <%
				  'variables used
					Dim RandomLink ,  strURL , strDesc
					Randomize
					'a random number between 1 and 6
					RandomLink = Int(Rnd  * 6) + 1
					'select a link depending on the random number selected
					Select Case RandomLink
						Case "1"
								strURL ="http://www.yahoo.com"
								strDesc = "Yahoo"
						Case "2"
								strURL ="http://www.google.com"
								strDesc ="Google"
						Case "3"
								strURL = "http://www.excite.com"
								strDesc ="Excite"
						Case "4"
								strURL ="http://www.altavista.com"
								strDesc = "Altavista"
						Case "5"
								strURL ="http://www.msn.com"
								strDesc = "MSN"
						Case "6"
								strURL ="http://www.alltheweb.com"
								strDesc = "Alltheweb"
						Case Else
								strURL ="http://www.astalaweb.com"
								strDesc = "Astalaweb.com"
					End Select														
					%> <br>
<br>
El vínculo actual es: <a href="<%=strURL %>"><%= strDesc %></a><br>

</body>

</html>