<%
'Codigo ofrecido por tutores.org
Dim bgcolor, textcolor
bgcolor = Request.Form("bg_red") & Request.Form("bg_green") & Request.Form("bg_blue")
textcolor = Request.Form("text_red") & Request.Form("text_green") & Request.Form("text_blue")
If len(bgcolor) = 6 Then
bgcolor = " BGCOLOR=#" & bgcolor
Else
bgcolor = ""
End If
If len(textcolor) = 6 Then
textcolor = " COLOR=#" & textcolor
Else
textcolor = ""
End If
%>
<TABLE BORDER="1" align="center" CELLPADDING="5" CELLSPACING="3"<%= bgcolor %>>
<TR>
<TD width="519" VALIGN="CENTER"><STRONG><FONT SIZE="6"<%= textcolor %>>Aqui
mostramos tu color en texto</FONT></STRONG></TD>
</TR>
</TABLE>
<table width="82%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><FORM ACTION="/public/69629184.asp" METHOD="POST">
<TABLE BORDER="0" CELLPADDING="3" CELLSPACING="0" bordercolor="<%= bgcolor %>">
<TR>
<TD> </TD>
<TD ALIGN="center"><font color="<%= textcolor %>">Rojo</font></TD>
<TD ALIGN="center"><font color="<%= textcolor %>">Verde</font></TD>
<TD ALIGN="center"><font color="<%= textcolor %>">Azul</font></TD>
</TR>
<TR>
<TD><font color="<%= textcolor %>">Color de fondo:</font></TD>
<TD> <select NAME="bg_red">
<OPTION><%= Request.Form("bg_red") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
<TD> <select NAME="bg_green">
<OPTION><%= Request.Form("bg_green") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
<TD> <select NAME="bg_blue">
<OPTION><%= Request.Form("bg_blue") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
</TR>
<TR>
<TD><font color="<%= textcolor %>">Color de texto:</font></TD>
<TD> <select NAME="text_red">
<OPTION><%= Request.Form("text_red") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
<TD> <select NAME="text_green">
<OPTION><%= Request.Form("text_green") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
<TD> <select NAME="text_blue">
<OPTION><%= Request.Form("text_blue") %></OPTION>
<OPTION>00</OPTION>
<OPTION>33</OPTION>
<OPTION>66</OPTION>
<OPTION>99</OPTION>
<OPTION>CC</OPTION>
<OPTION>FF</OPTION>
</select> </TD>
</TR>
</TABLE>
<INPUT name="submit" TYPE="submit" VALUE="Colorear">
</FORM></td>
</tr>
</table>