<%
Blanco="<font face='arial black' size='4' color='white'>"
negro="<font face='arial black' size='4'>"
color="<font face='arial black' size='4' color='"
spacer=" "
response.write negro & "<table border=0>"
for counter=1 to 6
safecolor1=websafe(counter)
for counter2=1 to 6
safecolor2=websafe(counter2)
for counter3= 1 to 6
safecolor3=websafe(counter3)
hexcolor=convertToHex(safecolor1,safecolor2,safecolor3)
response.write "<tr><td>" & hexcolor & "</td>"
response.write "<td bgcolor='" & hexcolor & "'>" & Blanco
response.write " Texto Blanco </td>"
response.write "<td bgcolor='" & white & "'>" & color & hexcolor & "'>"
response.write " Texto de color </font></td>"
response.write "<td bgcolor='" & hexcolor & "'>" & negro
response.write " Texto Negro </td>"
response.write "</tr>"
for counter4=1 to 4
response.write "<td bgcolor='#FFFFF'>" & spacer & "</td>"
next
response.write "<tr>"
next
next
next
response.write "</table>"
%>
<%
function websafe(mynumber)
SELECT CASE mynumber
CASE 1
websafe=0
CASE 2
websafe=51
CASE 3
websafe=102
CASE 4
websafe=153
CASE 5
websafe=204
CASE 6
websafe=255
END SELECT
end function
%>
<script language=jscript runat=server>
// codigo ofrecido por tutores.org
function convertToHex(R, G, B) {
var n = B;
n += G << 8;
n += R << 16;
return convertBase(n);
}
function convertBase(num) {
var i = 0; var j = 20;
var str = "#";
while(j >= 0) {
i = (num >> j)%16;
if(i >= 10) {
if(i == 10) str += "A";
else if(i == 11) str += "B";
else if(i == 12) str += "C";
else if(i == 13) str += "D";
else if(i == 14) str += "E";
else str += "F";
} else
str += i;
j -= 4;
}
return str;
}
</script>