Si leyeron el ejemplo anterior, ya vieron como trabaja la función Rnd() y saben que es necesario
poner la instrucción Randomize para que funcione. Si no lo leyeron, ya se los dije recien. :)
<%
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 'Ahora mostraremos el color y su código...
%>
<FONT COLOR="<%=color%>">Este color es: <B><%=color%></B></FONT><BR><BR>
<A HREF="mismapagina.asp"><FONT COLOR="<%= color %>">Para actualizar, haga click aqui!</FONT></A>
El código trabando funcionaria de la siguiente manera:
