<%
dim currentItem = "class=active"
If Session("menu.option") Is Nothing Then
Session.Add("menu.option", "home")
End If
Session("menu.home") = ""
Session("menu.areas") = ""
Session("menu.about") = ""
Session("menu.resources") = ""
Session("menu.contact") = ""
Select Case Session("menu.option")
Case "home"
Session("menu.home") = currentItem
Case "areas"
Session("menu.areas") = currentItem
Case "about"
Session("menu.about") = currentItem
Case "resources"
Session("menu.resources") = currentItem
Case "contact"
Session("menu.contact") = currentItem
End Select
%>
>Home
>Practice Areas
>About
>Contact