<% 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.biography") = "" Session("menu.honors") = "" Session("menu.press") = "" Session("menu.interviews") = "" Session("menu.events") = "" Session("menu.weareprovidence") = "" Session("menu.murdercoaster") = "" Session("menu.writing") = "" Session("menu.fiction") = "" Session("menu.nonfiction") = "" Session("menu.anthologies") = "" Session("menu.blog") = "" Session("menu.media") = "" Session("menu.books") = "" Session("menu.somthing") = "" Session("menu.coming-down-fast") = "" Session("menu.sequela") = "" Session("menu.contact") = "" Select Case Session("menu.option") Case "home" Session("menu.home") = currentItem Case "about" Session("menu.about") = currentItem Case "biography" Session("menu.about") = currentItem Session("menu.biography") = currentItem Case "honors" Session("menu.about") = currentItem Session("menu.honors") = currentItem Case "press" Session("menu.about") = currentItem Session("menu.press") = currentItem Case "interviews" Session("menu.about") = currentItem Session("menu.interviews") = currentItem Case "events" Session("menu.about") = currentItem Session("menu.events") = currentItem Case "hwari" Session("menu.about") = currentItem Session("menu.weareprovidence") = currentItem Case "murdercoaster" Session("menu.about") = currentItem Session("menu.murdercoaster") = currentItem Case "writing" Session("menu.writing") = currentItem Case "fiction" Session("menu.writing") = currentItem Session("menu.fiction") = currentItem Case "nonfiction" Session("menu.writing") = currentItem Session("menu.nonfiction") = currentItem Case "anthologies" Session("menu.writing") = currentItem Session("menu.anthologies") = currentItem Case "blog" Session("menu.writing") = currentItem Session("menu.blog") = currentItem Case "media" Session("menu.writing") = currentItem Session("menu.media") = currentItem Case "books" Session("menu.books") = currentItem Case "somthing" Session("menu.books") = currentItem Session("menu.something") = currentItem Case "coming-down-fast" Session("menu.books") = currentItem Session("menu.coming-down-fast") = currentItem Case "sequela" Session("menu.books") = currentItem Session("menu.sequela") = currentItem Case "contact" Session("menu.contact") = currentItem End Select %>