<% Icons = split("arrow_up_32.gif,arrow_down_32.gif,arrow_l_32.gif,comment_32.gif,home_32.gif,alert_32.gif,folder_open_32.gif,search_32.gif,user_32.gif,new_window_32.gif,document_32.gif,printer_32.gif,briefcase_32.gif,mail_32.gif,disk_32.gif,folder_32.gif,gift_32.gif,device_32.gif,cart_32.gif,pages_32.gif,doc_delete_32.gif,website_32.gif,doc_add_32.gif,locked_32.gif,delete_32.gif,images_32.gif,config_32.gif",",") Back = ucase(replace(Request.Form("Back"),"#","")) Front = ucase(replace(Request.Form("Front"),"#","")) if Back = "" then Back = "FFFFFF" if Front = "" then Front = "000000" ' Validate Image Color For Index = 1 To 6 ' if an invalid character was found If InStr(1, "0123456789ABCDEF", Mid(Back, Index, 1), vbTextCompare) = 0 Then ' set color to nothing Back = "" ElseIf InStr(1, "0123456789ABCDEF", Mid(Front, Index, 1), vbTextCompare) = 0 Then ' set color to nothing Front = "FFFFFF" End If Next %>
Back to Article
<% For each IMG in Icons response.write "" Next %>
 
 


To see this icon with your color scheme simply enter the hex colors you want for foreground and background colors and hit "update". Users with IE you can click on the colored boxes to select a color to use. To purchase this script for your own use: Purchase Script

There are many adjustments that can be made to the exact balance of colors before using the script and it can be applied to any greyscale icon matching it to any color scheme.