Código fuente de 'Cita-aleatoria.asp'
<html>
<head>
<title>Cita aleatoria - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<center><b><font face="Arial" size="3">Cita aleatoria</font></b></center>
<br>
<%
'generate a random number 1-5
randomize
randomnum=int(rnd*5)+1
SELECT CASE randomnum
CASE 1 %>
No dejes para mañana lo que puedas hacer hoy<br>
<%CASE 2%>
Ser o no ser, esa es la cuestión<br>
<%CASE 3%>
Las desgracias nunca vienen solas<br>
<%CASE 4%>
El poder corrompe a los hombres<br>
<%CASE 5%>
No hay may que cien años dure<br>
<%END SELECT%>
</body></html>