<%
'*******************************************************
'*     Fuente                http://www.asp101.com     *
'*                                                     *
'*   Traducido al castellano por www.asptutor.como     *
'*                                                     *
'* Please direct all inquiries to webmaster@asp101.com *
'*******************************************************
%>

<%
' Tabla de colores usables
Dim arrColors   
' LBound de la tabla
Dim iMinColor
' UBound de la tabla   
Dim iMaxColor   
' Variables indice para el bucle de cada color
Dim iR, iG, iB  
' Variable temporal para montar la cadena de color
Dim strColor    

' Asignamo digitos hexadecimales para montar los colores
' estos son los digitos pra la paleta de 216 colores
arrColors = Array("00", "33", "66", "99", "CC", "FF")

iMinColor = LBound(arrColors)
iMaxColor = UBound(arrColors)

' Tabla de colores
Response.Write "<table cellspacing=""0"" cellpadding=""0"" " _
    & "border=""0"">" & vbCrLf

' bucle para los rojos
For iR = iMinColor To iMaxColor
    Response.Write "<tr>" & vbCrLf
    ' bucle para los verdes
    For iG = iMinColor To iMaxColor
        ' bucle para los azules
        For iB = iMinColor To iMaxColor
            ' calculo del color y muestra de este
            strColor = "#" & arrColors(iR) & arrColors(iG) & arrColors(iB)
            Response.Write "<td bgcolor=""" & strColor & """>" _
                & "<a href=""selectcolor.asp?color=" & Server.URLEncode(strColor) _
                & """><img src=""http://www.asptutor.com/images/pixel.gif"" width=""15"" height=""15"" " _
                & "alt=""" & strColor & """ border=""0""></a></td>" & vbCrLf
        Next 'iB
    Next 'iG
    Response.Write "</tr>" & vbCrLf
Next 'iR
Response.Write "</table>" & vbCrLf
%>

<p>
<strong>
<font color="<%= Request.QueryString("color") %>">
Este texto aparece en el color elegido.
</font>
</strong>
</p>