Código fuente de 'Caras-y-cruces.asp'
<html>
<head>
<title>Caras y cruces - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<% Response.Buffer = TRUE
'Esto abriría un fichero de Excel
' Response.ContentType = "application/vnd.ms-excel"%>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Caras y cruces</font></b></p>
<br>
<%
response.write "<b>¡Moneda lanzada!</b><br><br>"
randomize
randomnum=int(rnd*2)+1
IF randomnum=1 THEN
session("Caras")=session("Caras")+1
ELSE
session("Cruces")=session("Cruces")+1
END IF
response.write "Caras= " & session("Caras") & "<br>"
response.write "Cruces= " & session("Cruces") & "<br>"
%>
</body></html>