BDG Scenario 2

Menu.asp

<%@ Language=VBScript EnableSessionState=False %>
<% ' Copyright 1998-1999 Microsoft Corp. All rights reserved. %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Administrative Menu</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link type="text/css" rel="stylesheet" href="../_Themes/fm/theme.css">    
<img class="logo" SRC="../images/fmlogo.gif" WIDTH="187" HEIGHT="90">
<img class="sublogo" SRC="../images/Fmcorplib.gif" WIDTH="180" HEIGHT="18">
</HEAD>
<BODY>

<% 
dim currentpage
sub Orange(description, page)
   dim imgx
    imgx="../images/orangedot.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
%>
<body>
<div class=menui id=menu>
<TABLE border=0 class="watermark" height=250 width=250 CELLSPACING=0 CELLPADDING=0>
<TR vAlign=top><TD>

  
   <TABLE class=admin WIDTH=75% BORDER=0 CELLSPACING=2 CELLPADDING=2>
   <TR>
   <TD BGCOLOR=#ce6300 valign=top ALIGN=middle NOWRAP id=mI>
       Administration</TD>
   </TR>
   </TABLE>
   <br>
    <DIV class=orangemenu>
    <TABLE class=small BORDER=0 CELLSPACING=2 CELLPADDING=2>
    <tr>
           <% orange "Library Home Page", "../default.asp" %>
       </tr>
    <tr>
           <% orange "View Library Catalog", "CFilter.asp" %>
       </tr>
    <tr>
           <% orange "Add New Title", "adnmat/AddTitles.asp" %>
       </tr>
   <tr>
           <% orange "View Requests and Check Out","ViewRequests.asp?ShowNoItems=1"%>
       </tr>
   <tr>
           <% orange "Check In Materials", "Checkin.asp" %>
       </tr>
   <tr>
           <% orange "Renew Materials", "Renew.asp" %>
       </tr>
    <tr>
           <% orange "Change Application Settings", "Appsettings.asp" %>
       </tr>
    
    </TABLE>
    </DIV>
</TD></TR>
</TABLE>

<% If Application("Debug") Then
      Dim strLogon
      strLogon = Request.ServerVariables("AUTH_USER")
      If strLogon = "" Then
         strLogon = "<font COLOR=Red>Anonymous</font>"
      End If
  %>
<br><br><center>
<font SIZE=-1>Administrative Logon: <strong><%= strLogon %></strong>
</center>
<% End If %>

</div>
</BODY>
</HTML>