<% whitetext="" blacktext="" colortext="" & whitetext Response.Write " White Text " Response.Write "" & colortext & hexcolor & "'>" Response.Write " Colored Text " Response.Write "" & blacktext Response.Write " Black Text " Response.Write "" For counter4=1 To 4 Response.Write "" & spacer & "" Next Response.Write "" Next Next Next Response.Write "" %> <% 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 %>