250807.



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>