ASP Color Picker

Dim colors(7)
colors(1)="FF"
colors(2)="CC"
colors(3)="99"
colors(4)="66"
colors(5)="33"
colors(6)="00"

Response.Write "<Select name='pick_color'>"

For a=1 To 6
For b=1 To 6
For c=1 To 6

newcolors="#" & colors(a)&colors(b)&colors(c)

Response.Write "<Option value='"& newcolors &"' style='background:" & newcolors & ";'>" &newcolors&"</Option>"

Next
Next
Next

Response.Write "</Select>"