<% Dim menuActive As String menuActive = " class=""active""" Session.Add("menu.home", "") Session.Add("menu.services", "") Session.Add("menu.portfolios", "") Session.Add("menu.learn", "") Session.Add("menu.news", "") Session.Add("menu.employment", "") Session.Add("menu.about", "") Session.Add("menu.contact", "") select case Session("menu.selection") case "home" Session("menu.home") = menuActive case "services" Session("menu.services") = menuActive case "portfolios" Session("menu.portfolios") = menuActive case "learn" Session("menu.learn") = menuActive case "news" Session("menu.news") = menuActive case "employment" Session("menu.employment") = menuActive case "about" Session("menu.about") = menuActive case "contact" Session("menu.contact") = menuActive end select %>

> Home

> Services

> Portfolio

> Learn

> News

> Employment

> About

> Contact