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

• >Home
• >About
• >Product Gallery
• >Lettering
• >Cleaning
• >Contact