sub_menu.asp

<%
dim currentpage
currentpage = LCase(Request.ServerVariables("SCRIPT_NAME"))
currentpage = Mid(currentpage,InStrRev(currentpage,"/")+1)

sub Blue(description, page)
   dim imgx
    imgx = "images/bluedot.gif"
    if currentpage = page then imgx="images/bluearrow.gif"
    
    Response.Write("<TD><IMG src='" & imgx & "'WIDTH=21 HEIGHT=21 id=mI>")
    Response.Write("<TD nowrap class=menu><a class=menu href='" & page & "' id=mIa>" & description & "</a>")
end sub

sub Orange(description, page)
   dim imgx
    imgx = "images/orangedot.gif"
    if currentpage = page then imgx="images/orangearrow.gif"
    
    Response.Write("<TD><IMG src='" & imgx & "'WIDTH=21 HEIGHT=21 id=mI>")
    Response.Write("<TD nowrap class=menu><a class=menu href='" & page & "' id=mIa>" & description & "</a>")
end sub
%>

<div class=menui id=menu>
<TABLE border=0 class="watermark" height=250 width=250 CELLSPACING=0 CELLPADDING=0>
<TR vAlign=top><TD>

   <div class="bluemenu">
   <table class="small" BORDER="0" CELLSPACING="0" CELLPADDING="0">
   <tr> <% Blue "Library Home Page", "default.asp" %> </tr>
   <tr> <% Blue "Search for Library Materials", "librarysearch/Library.asp" %> </tr>
      <tr> <% Blue "View Current Requests", "ViewMYRequests.asp" %> </tr>
    </table>
   </div>
   <TABLE class=admin WIDTH=75% BORDER=0 CELLSPACING=2 CELLPADDING=2>
   <TR>
   <TD BGCOLOR=#ce6300 valign=top ALIGN=center NOWRAP id=mI>
       Administration</TD>
   </TR>
   </TABLE>
   <br>
    <DIV class=orangemenu>
    <TABLE class=small BORDER=0 CELLSPACING=2 CELLPADDING=2>
        <tr> <%Orange "Log On", "admin/Menu.asp"%> </tr>
    </TABLE>
    </DIV>
</TD></TR>
</TABLE>
</div>