<% dim currentItem = "class=active" If Session("menu.option") Is Nothing Then Session.Add("menu.option", "home") End If Session("menu.home") = "" Session("menu.gallery") = "" Session("menu.process") = "" Session("menu.tools") = "" Session("menu.instruction") = "" Session("menu.contact") = "" Select Case Session("menu.option") Case "home" Session("menu.home") = currentItem Case "gallery" Session("menu.gallery") = currentItem Case "process" Session("menu.process") = currentItem Case "tools" Session("menu.tools") = currentItem Case "instruction" Session("menu.instruction") = currentItem Case "contact" Session("menu.contact") = currentItem End Select %>

• >Home
• >Gallery
• >Process
• >Tools/Supplies
  • >Seat Blanks
  • >Maple Turning Blanks
  • >Turnings
  • >11 Degree Reamer
  • >6 Degree Reamer
  • >½" Pilot for 6 Degree Reamer
  • >Coupler
  • >Drill Stops
  • >Milk Paint
  • >Shave Horse & Work Bench
• >Instruction
• >Contact