<% Dim vTool, vColour vTool = Request("tool") If vTool = "" Then vTool = "pen" Session("tool") = vTool %> <% vColour = "#CCCCCC" : If vTool = "erase" Then vColour = "#FFFF00" %> <% vColour = "#FFFFFF" : If vTool = "flood" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "cpick" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "zoom" Then vColour = "#FFFF00" %> <% vColour = "#FFFFFF" : If vTool = "pen" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "airb" Then vColour = "#FFFF00" %> <% vColour = "#FFFFFF" : If vTool = "line" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "curve" Then vColour = "#FFFF00" %> <% vColour = "#FFFFFF" : If vTool = "rect" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "poly" Then vColour = "#FFFF00" %> <% vColour = "#FFFFFF" : If vTool = "circ" Then vColour = "#FFFF00" %> <% vColour = "#CCCCCC" : If vTool = "text" Then vColour = "#FFFF00" %>
Tools:
Erase
Flood
Pick
Zoom
Pen
Air B
Line
Curve
Rect
Poly
Circ
Text