<%'determine what page is currently displayed and show that menu Dim showMenu If inStr(request.ServerVariables("URL"),"vanAllsburg.asp") Then showMenu = "print19" End If If inStr(request.ServerVariables("URL"),"williams.asp") Then showMenu = "print18" End If If inStr(request.ServerVariables("URL"),"bear10.asp") Then showMenu = "print17" End If If inStr(request.ServerVariables("URL"),"hopwoodAd.asp") Then showMenu = "print16" End If If inStr(request.ServerVariables("URL"),"kadohata.asp") Then showMenu = "print15" End If If inStr(request.ServerVariables("URL"),"curtis.asp") Then showMenu = "print1" End If If inStr(request.ServerVariables("URL"),"bear.asp") Then showMenu = "print2" End If If inStr(request.ServerVariables("URL"),"born.asp") Then showMenu = "print3" End If If inStr(request.ServerVariables("URL"),"knott.asp") Then showMenu = "print4" End If If inStr(request.ServerVariables("URL"),"genPop.asp") Then showMenu = "print5" End If If inStr(request.ServerVariables("URL"),"lemJ.asp") Then showMenu = "print6" End If If inStr(request.ServerVariables("URL"),"hartman.asp") Then showMenu = "print7" End If If inStr(request.ServerVariables("URL"),"nelp.asp") Then showMenu = "print8" End If If inStr(request.ServerVariables("URL"),"homi.asp") Then showMenu = "print9" End If If inStr(request.ServerVariables("URL"),"pcap.asp") Then showMenu = "print10" End If If inStr(request.ServerVariables("URL"),"handler.asp") Then showMenu = "print11" End If If inStr(request.ServerVariables("URL"),"bear08.asp") Then showMenu = "print12" End If If inStr(request.ServerVariables("URL"),"roethke.asp") Then showMenu = "print13" End If If inStr(request.ServerVariables("URL"),"bailey.asp") Then showMenu = "print14" End If %>
<% If inStr(request.ServerVariables("URL"),"vanAllsburg.asp") Then %> Chris Van Allsburg <% Else %> Chris Van Allsburg <% End If %> <% If inStr(request.ServerVariables("URL"),"williams.asp") Then %> Williams <% Else %> Williams <% End If %> <% If inStr(request.ServerVariables("URL"),"bear10.asp") Then %> Bear River Writers' Conference 2010 <% Else %> Bear River Writers' Conference 2010 <% End If %> <% If inStr(request.ServerVariables("URL"),"hopwoodAd.asp") Then %> Hopwood Awards <% Else %> Hopwood Awards <% End If %> <% If inStr(request.ServerVariables("URL"),"kadohata.asp") Then %> Kadohata <% Else %> Kadohata <% End If %> <% If inStr(request.ServerVariables("URL"),"bailey.asp") Then %> Bailey <% Else %> Bailey <% End If %> <% If inStr(request.ServerVariables("URL"),"roethke.asp") Then %> Roethke <% Else %> Roethke <% End If %> <% If inStr(request.ServerVariables("URL"),"nelp.asp") Then %> NELP <% Else %> NELP <% End If %> <% If inStr(request.ServerVariables("URL"),"handler.asp") Then %> Daniel Handler/Lemony Snicket <% Else %> Daniel Handler/Lemony Snicket <% End If %> <% If inStr(request.ServerVariables("URL"),"bear08.asp") Then %> Bear River 08 <% Else %> Bear River 08 <% End If %> <% If inStr(request.ServerVariables("URL"),"curtis.asp") Then %> Christopher Curtis <% Else %> Christopher Curtis <% End If %> <% If inStr(request.ServerVariables("URL"),"bear.asp") Then %> Bear River Writers' <% Else %> Bear River Writers' <% End If %> <% If inStr(request.ServerVariables("URL"),"born.asp") Then %> Bornstein <% Else %> Bornstein <% End If %> <% If inStr(request.ServerVariables("URL"),"knott.asp") Then %> John Knott <% Else %> John Knott <% End If %> <% If inStr(request.ServerVariables("URL"),"genPop.asp") Then %> Gender and Pop Culture <% Else %> Gender and Pop Culture <% End If %> <% If inStr(request.ServerVariables("URL"),"lemJ.asp") Then %> Lem Johnson <% Else %> Lem Johnson <% End If %> <% If inStr(request.ServerVariables("URL"),"hartman.asp") Then %> Hartman <% Else %> Hartman <% End If %> <% If inStr(request.ServerVariables("URL"),"pcap.asp") Then %> PCAP <% Else %> PCAP <% End If %> <% If inStr(request.ServerVariables("URL"),"homi.asp") Then %> Homi Bhabba <% Else %> Homi Bhabba <% End If %>