Enter your first
name,
last
name,
and ID
number. Then click
send
and all books currently checked out on your ID card will be renewed.
Note: If your books are overdue they will be renewed, but a
fine will be posted to your record.
<%
Dim strCalendarConn
strCalendarConn = "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=calendar;" & _
"Uid=sgray;" & _
"Pwd=vaesrt"
Dim connCategory
Set connCategory = Server.CreateObject("ADODB.Connection")
With connCategory
.ConnectionString = strCalendarConn
.CursorLocation = adUseClient
End With
connCategory.Open()
Dim commCalendarCategory, rsCalendarCategory
Set commCalendarCategory = Server.CreateObject("ADODB.Command")
With commCalendarCategory
.ActiveConnection = connCategory
.CommandType = adCmdStoredProc
.CommandText = "calendarCategorySelectAllLMC"
End With
Set rsCalendarCategory = commCalendarCategory.Execute
Dim strID
While NOT rsCalendarCategory.EOF
If InStr(Replace(rsCalendarCategory("name"), " ", ""), strSchool) Then
strID = rsCalendarCategory("id")
End If
rsCalendarCategory.movenext
Wend
'Response.Write("strID: " & strID & " ")
'Response.Write("strSchool: " & strSchool & " ")
'Response.End
Dim connCustomPages
Set connCustomPages = Server.CreateObject("ADODB.Connection")
With connCustomPages
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connCustomPages.Open()
Dim commCustomPages, rsCustomPages
Set commCustomPages = Server.CreateObject("ADODB.Command")
With commCustomPages
.ActiveConnection = connCustomPages
.CommandType = adCmdStoredProc
.CommandText = "lmcRecReadsSelectByLocation"
.Parameters.Append( .CreateParameter ("docType", adVarChar, adParamInput, 50, NULL ) )
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 50, strSchool ) )
End With
Dim connDownloads
Set connDownloads = Server.CreateObject("ADODB.Connection")
With connDownloads
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connDownloads.Open()
Dim commDownloads, rsDownloads
Set commDownloads = Server.CreateObject("ADODB.Command")
With commDownloads
.ActiveConnection = connDownloads
.CommandType = adCmdStoredProc
.CommandText = "lmcDownloadInfo"
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 75, strSchool ) )
End With
Set rsDownloads = commDownloads.Execute
%>
<% End If
commCustomPages.Parameters("docType") = "Research_Resources"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<% End If
commCustomPages.Parameters("docType") = "Local Libraries"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<%
End If
commCustomPages.Parameters("docType") = "Custom"
Set rsCustomPages = commCustomPages.Execute
While NOT rsCustomPages.EOF
If Not IsNull(rsCustomPages("buttonline1")) And Not IsNull(rsCustomPages("buttonline2")) Then
%>
