Código fuente de 'Colores al azar.asp'
<html>
<head>
<title>Colores al azar - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<CENTER>
<b><font face="Arial">Colores al azar</font></b>
<P>
<% 'Código ASP
Dim numero_azar2
'Empezamos la función Ramdomize.
randomize
'Buscamos solo 5 valores.
numero_azar2=int(rnd*5)+1
' Basandonos en el número hacemos un Case Select.
select case numero_azar2
'En caso de que el numero sea 1... el color será...
case "1"
color ="#003366"
'En caso de que sea 2...
Case "2"
color ="#006633"
Case "3"
color ="#999966"
Case "4"
color ="#663399"
Case else
color ="#660000"
end select
%>
<!--Mostramos el color y su código -->
<FONT COLOR="<%=color%>">
Este color es: <B><%=color%></B></FONT><BR><BR>
<A HREF="Colores al azar.asp"><FONT COLOR="<%= color %>">Para actualizar, haga click aqui!</FONT></A>
</body>
</body>
</html>