Library.asp
<%@ Language=VBScript %>
<% ' Copyright 1998-1999 Microsoft Corporation. All rights reserved. %>
<% Option Explicit
Response.Expires = 0
%>
<html>
<head>
<title>Library Catalog</title>
<object id="UserInfo"
classid="CLSID:81163377-6EC1-11D2-9BF0-080009DC024D"
codeBase="../CMLC.CAB#version=1,0,0,0"
height="0" width="0" VIEWASTEXT>
</object>
<link type="text/css" rel="stylesheet" href="../_Themes/fm/theme.css">
<script LANGUAGE="VBSCRIPT">
Option Explicit
<!-- #include file="adcvbs.inc" -->
' Dim strSource
Dim sLogon
Function GetUserInfo()
Dim uiOnPC
uiOnPC = False
On Error Resume Next
uiOnPC = IsObject(CreateObject("CMLC.UserInfo"))
If uiOnPC = False Then
MsgBox "You must install the CMLC.UserInfo component in order to request books." &_
vbCrLf & "Please check your security settings and reload this page.", _
vbCritical, "UserInfo Component Not Installed"
Else
GetUserInfo = UserInfo.Logon
End If
Err.Clear
End Function
Sub Window_OnLoad()
<% If Application("Debug") = True Then %>
document.all.ifControl.style.display = ""
<% End If %>
'--- Confirm the download of the CMLC.UserInfo component, and
'--- retreive current user logon
sLogon = GetUserInfo()
<% IF Session("LastPage") = "" THEN %>
gettingStarted.style.display = ""
initialinfo.style.display = ""
txtWord.Focus
<% END IF %>
End Sub
'--- Invoked by child pages to reset display to a known state
Sub ClearAllDivs()
ClearAllSortBy()
ClearAllDetails()
Parent.searchresults.style.display ="none"
parent.gettingStarted.style.display = "none"
parent.initialinfo.style.display = "none"
parent.pleasewait.style.display = "none"
parent.norecords.style.display = "none"
parent.request.style.display = "none"
parent.requestok.style.display = "none"
parent.document.all.ifRequest.style.display = "none"
End Sub
Dim nLastSearch
Dim nLastAuthor
Dim nLastSubject
Const cAuthor = 1
Const cSubject = 2
Const cSearch = 3
Function DoLong(bibno)
document.all.ifControl.src = "details.asp?BibNo=" & bibno
END Function
Function DoSubject(subjectno)
nLastSearch = cSubject
nLastSubject = subjectno
document.all.ifControl.src = "subject.asp?SubjectNo=" & subjectno
End Function
Function DoAuthor(authorno)
nLastSearch = cAuthor
nLastAuthor = authorno
document.all.ifControl.src = "author.asp?AuthorNo=" & authorno
End Function
SUB DoRequest(bibno)
document.all.ifRequest.src = "request.asp?Logon=" & sLogon & "&BibNo=" & bibno
END SUB
SUB ReDoCurrent()
document.all.ifRequest.src = "current.asp"
End Sub
Sub ReDoLong()
' readjust DIVs to return to previous display
Request.style.display = "none"
document.all.ifRequest.style.display = "none"
LongDisplay.style.display = ""
Details.style.display = ""
End Sub
</script>
</head>
<body>
<img class="logo" SRC="../images/fmlogo.gif" WIDTH="187" HEIGHT="90">
<img class="sublogo" SRC="../images/Fmcorplib.gif" WIDTH="180" HEIGHT="18">
<img class="line" SRC="../images/vertline.gif" WIDTH="1" HEIGHT="100">
<div STYLE="POSITION:absolute; LEFT:30px; TOP:120px;z-index:5;color:blue;font-weight:bold;">
<a href ="../default.asp">Home</a> <a href="../viewmyrequests.asp">View Requests</a>
</div>
<!-- #include file="DFilter.asp" -->
<!-- FIRST PAGE -- Getting Started -->
<div ID="GettingStarted" STYLE="DISPLAY: none; FONT-FAMILY: Verdana, Arial; FONT-SIZE: 10pt; FONT-WEIGHT:BOLD;POSITION: absolute; LEFT: 275px; TOP: 85px">
SEARCHING THE LIBRARY
</div>
<div ID="InitialInfo" STYLE="DISPLAY: none; POSITION: absolute; LEFT: 300px; TOP: 113px; WIDTH: 350px">
To search for materials in the library's collection, just enter your keywords in the box on the left. The results of your search
will appear in this window. Click on an item's title to get more details on that item. When you find an item that you'd like to borrow, click the
<b>Request Title</b> button to make your request. We'll have the item sent to your location.
<p>If you can't find what you're looking for, <a HREF="mailto:<%= Application("DefaultContactEmail")%>@<%= Application("DefaultDomainName")%>"><b>e-mail us</b></a> and let us know—we'll track it down for you.
</div>
<!-- #include file="DSearch.asp" -->
<!-- #include file="DDetails.asp" -->
<!-- Request Page -->
<div ID="request" STYLE="DISPLAY: none; LEFT: 265px; POSITION: absolute; TOP: 50px; HEIGHT:50px; Z-INDEX: 5">
<span class="UpButton" onClick="ReDoLong()" OnMouseDown="javascript:push()" OnMouseUp="javascript:unPush()" style="POSITION: relative; TOP: 5px; WIDTH: 120px" title="Return to Detail">Return to Detail</span>
<span class="UpButton" onClick="ReDoCurrent()" OnMouseDown="javascript:push()" OnMouseUp="javascript:unPush()" style="POSITION: relative; TOP: 5px; WIDTH: 100px" title="Return to List">Return to List</span>
<br>
</div>
<!-- Request Confirmation Page -->
<div ID="requestok" STYLE="DISPLAY: none; LEFT: 265px; POSITION: absolute; TOP: 50px;HEIGHT:50px; Z-INDEX: 5">
<span class="UpButton" onClick="ReDoCurrent()" style="POSITION: relative; TOP: 5px; WIDTH: 100px" title="Return to List">Return to List</span>
<br>
</div>
<script LANGUAGE=VBScript>
Dim screenWidth,screenHeight,x
screenWidth = CInt((screen.availWidth - 265) * 0.75)
screenHeight = CInt((screen.availHeight - 113) * 0.70)
x = "<iframe ID=""ifRequest"" STYLE=""display:none;POSITION:absolute;top:113;left:265;height:" & screenHeight & " px;width:" & screenWidth & " px"" FRAMEBORDER=0 NORESIZE SCROLLING=no></iframe>"
document.write x
</script>
<!-- This child window controls the parent -->
<% ' ASP Session object retains the current location, so that refresh doesn't restart us from the beginning. %>
<iframe ID="ifControl" STYLE="display:none;top:0;left:250;height:40 px;width:540 px;POSITION:absolute" FRAMEBORDER=0 NORESIZE SCROLLING=none SRC="<%= Session("LastPage") %>"></iframe>
</body>
</html>