<% 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.members") = "" Session("menu.code") = "" Session("menu.events") = "" Session("menu.elearning") = "" Session("menu.contact") = "" Select Case Session("menu.option") Case "home" Session("menu.home") = currentItem Case "about" Session("menu.about") = currentItem Case "members" Session("menu.members") = currentItem Case "code" Session("menu.code") = currentItem Case "events" Session("menu.events") = currentItem Case "elearning" Session("menu.elearning") = currentItem Case "contact" Session("menu.contact") = currentItem End Select %>

>Home

>About

>Members

>CODE

>Events

>E-Learning

>Contact