<% dim currentItem = " active" If Session("menu.option") Is Nothing Then Session.Add("menu.option", "home") End If Session("menu.home") = "" Session("menu.service") = "" Session("menu.product") = "" Session("menu.project") = "" Session("menu.gallery") = "" Session("menu.blog") = "" Session("menu.about") = "" Session("menu.contact") = "" Session("description.home") = "Visit the home page of J&R General, LLC - the residential and commercial roofing, siding, and window professionals in Pawcatuck, CT." Session("description.services") = "Learn about the residential and commercial roofing, siding, and window services which are offered by the professionals at J&R General, LLC, of Pawcatuck CT." Session("description.products") = "View some the roofing, siding, and window products which are commonly utilized by J&R General in the completion of their residential and commercial roofing, siding, and window projects throughout RI and Southeastern CT." Session("description.projects") = "Review some of the residential and commercial roofing, siding, and window projects which have been completed by the professionals at J&R General, LLC, of Pawcatuck CT." Session("description.gallery") = "View a gallery of completed projects from the roofing, siding, and window professionals at J&R General of Pawcatuck, CT." Session("description.blog") = "Read J&R General's Blog posts to catch up on some of our projects throughout Southeastern New England." Session("description.about") = "View background information and the mission of J&R General, LLC, of Pawcatuck CT." Session("description.contact") = "Contact information for the commercial and residential roofing, siding, and window professionals at J&R General of Pawcatuck, CT." Select Case Session("menu.option") Case "home" Session("menu.home") = currentItem Case "services" Session("menu.service") = currentItem Case "products" Session("menu.product") = currentItem Case "projects" Session("menu.project") = currentItem Case "gallery" Session("menu.gallery") = currentItem Case "blog" Session("menu.blog") = currentItem Case "about" Session("menu.about") = currentItem Case "contact" Session("menu.contact") = currentItem End Select %>