% 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 %>