<% 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.synod") = "" Session("menu.calendar") = "" Session("menu.bhrm") = "" Session("menu.ojmhg") = "" Session("menu.contact") = "" Select Case Session("menu.option") Case "home" Session("menu.home") = currentItem Case "about" Session("menu.about") = currentItem Case "coat" Session("menu.synod") = currentItem Case "calendar" Session("menu.calendar") = currentItem Case "bhrm" Session("menu.bhrm") = currentItem Case "ojmhg" Session("menu.ojmhg") = currentItem Case "contact" Session("menu.contact") = currentItem End Select %>

> Home

> Who We Are

> Synod

> Calendar

> BHRM

> OJ-MHG

> Contact Us