- <TABLE cellpadding="0" cellspacing="1">
- <TR>
- <%
- Dim R, V, B, i, x
- Dim TblColor(6)
- TblColor(1) = "00"
- TblColor(2) = "33"
- TblColor(3) = "66"
- TblColor(4) = "99"
- TblColor(5) = "cc"
- TblColor(6) = "ff"
-
- R = 1
- V = 1
- B = 1
- x = 1
- i = 1
- For i = 1 to 216
-
- if x = 16 then
- response.write "</TR><TR>"
- x = 1
- end if
- %>
- <TD bgcolor="#<%=TblColor(R) & TblColor(V) & TblColor(B)%>" width="10" height="10" title="#<%=TblColor(R) & TblColor(V) & TblColor(B)%>"></TD>
- <%
- x = x + 1
- B = B + 1
-
- if B = 7 then
- V = V + 1
- B = 1
-
- if v = 7 then
- v = 1
- R = R + 1
- end if
-
- end if
- next
- %>
- </TR>
- </TABLE>
<TABLE cellpadding="0" cellspacing="1">
<TR>
<%
Dim R, V, B, i, x
Dim TblColor(6)
TblColor(1) = "00"
TblColor(2) = "33"
TblColor(3) = "66"
TblColor(4) = "99"
TblColor(5) = "cc"
TblColor(6) = "ff"
R = 1
V = 1
B = 1
x = 1
i = 1
For i = 1 to 216
if x = 16 then
response.write "</TR><TR>"
x = 1
end if
%>
<TD bgcolor="#<%=TblColor(R) & TblColor(V) & TblColor(B)%>" width="10" height="10" title="#<%=TblColor(R) & TblColor(V) & TblColor(B)%>"></TD>
<%
x = x + 1
B = B + 1
if B = 7 then
V = V + 1
B = 1
if v = 7 then
v = 1
R = R + 1
end if
end if
next
%>
</TR>
</TABLE>