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>