AFFICHER LA PALETTE DES 216 COULEURS WEB

<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>