<%
DIM strScriptName, intStep, strColor, str_rr, str_gg, str_bb

'get the name of the current page
strScriptName = Request.ServerVariables("SCRIPT_NAME")

%>
<Form name="MyForm" Action= "<%=strScriptName%>?key=1" >
Select Step Size: <SELECT Name = "StepSize" SIZE="1">
<OPTION>3</OPTION>
<OPTION>4</OPTION>
<OPTION SELECTED>5</OPTION>
<OPTION>10</OPTION>
</SELECT>
<INPUT TYPE="Submit" Value="Submit">
</Form>


<%
If len(Request("StepSize")) then

intStep= Request("StepSize")

for str_rr = 0 to 15 step intStep
    for str_gg = 0 to 15 step intStep
        Response.write("<TABLE width='100%'><TR>")
        for str_bb = 0 to 15 step intStep
            strColor="#" & hex(str_rr) & hex(str_rr) & _
hex(str_gg) & hex(str_gg) & hex(str_bb) & hex(str_bb)
            Response.write("<TD align='right' width='*'><font face='Courier New' size='2'>" & _
strColor & "</font></TD>")
            Response.write("<TD width='50' bgcolor=" & _
strColor & "></TD>")
        next
        Response.write("</TR>")
    next
next
        Response.write("</TABLE>")
End if
%>