<%
fHideNavBar = False
fHideNumber = False
fHideRequery = False
fHideRule = False
stQueryString = ""
fEmptyRecordset = False
fFirstPass = True
fNeedRecordset = False
fNoRecordset = False
tBarAlignment = "Center"
tHeaderName = "guests"
tPageSize = 10
tPagingMove = ""
tRangeType = "Table"
tRecordsProcessed = 0
tPrevAbsolutePage = 0
intCurPos = 0
intNewPos = 0
fSupportsBookmarks = True
fMoveAbsolute = False
If Not IsEmpty(Request("guests_PagingMove")) Then
tPagingMove = Trim(Request("guests_PagingMove"))
End If
If IsEmpty(Session("guests_Recordset")) Then
fNeedRecordset = True
Else
If Session("guests_Recordset") Is Nothing Then
fNeedRecordset = True
Else
Set guests = Session("guests_Recordset")
End If
End If
If fNeedRecordset Then
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set guests = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT TblGuests.* FROM TblGuests ORDER BY Date DESC"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
guests.Open cmdTemp, , 1, 1
End If
On Error Resume Next
If guests.BOF And guests.EOF Then fEmptyRecordset = True
On Error Goto 0
If Err Then fEmptyRecordset = True
If fNeedRecordset Then
Set Session("guests_Recordset") = guests
End If
guests.PageSize = tPageSize
fSupportsBookmarks = guests.Supports(8192)
If Not IsEmpty(Session("guests_Filter")) And Not fEmptyRecordset Then
guests.Filter = Session("guests_Filter")
If guests.BOF And guests.EOF Then fEmptyRecordset = True
End If
If IsEmpty(Session("guests_PageSize")) Then Session("guests_PageSize") = tPageSize
If IsEmpty(Session("guests_AbsolutePage")) Then Session("guests_AbsolutePage") = 1
If Session("guests_PageSize") <> tPageSize Then
tCurRec = ((Session("guests_AbsolutePage") - 1) * Session("guests_PageSize")) + 1
tNewPage = Int(tCurRec / tPageSize)
If tCurRec Mod tPageSize <> 0 Then
tNewPage = tNewPage + 1
End If
If tNewPage = 0 Then tNewPage = 1
Session("guests_PageSize") = tPageSize
Session("guests_AbsolutePage") = tNewPage
End If
If fEmptyRecordset Then
fHideNavBar = True
fHideRule = True
Else
tPrevAbsolutePage = Session("guests_AbsolutePage")
Select Case tPagingMove
Case ""
fMoveAbsolute = True
Case "Requery"
guests.Requery
fMoveAbsolute = True
Case "<<"
Session("guests_AbsolutePage") = 1
Case "<"
If Session("guests_AbsolutePage") > 1 Then
Session("guests_AbsolutePage") = Session("guests_AbsolutePage") - 1
End If
Case ">"
If Not guests.EOF Then
Session("guests_AbsolutePage") = Session("guests_AbsolutePage") + 1
End If
Case ">>"
If fSupportsBookmarks Then
Session("guests_AbsolutePage") = guests.PageCount
End If
End Select
Do
If fSupportsBookmarks Then
guests.AbsolutePage = Session("guests_AbsolutePage")
Else
If fNeedRecordset Or fMoveAbsolute Or guests.EOF Then
guests.MoveFirst
guests.Move (Session("guests_AbsolutePage") - 1) * tPageSize
Else
intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
intNewPos = ((Session("guests_AbsolutePage") - 1) * tPageSize) + 1
guests.Move intNewPos - intCurPos
End If
If guests.BOF Then guests.MoveNext
End If
If Not guests.EOF Then Exit Do
Session("guests_AbsolutePage") = Session("guests_AbsolutePage") - 1
Loop
End If
Do
If fEmptyRecordset Then Exit Do
If tRecordsProcessed = tPageSize Then Exit Do
If Not fFirstPass Then
guests.MoveNext
Else
fFirstPass = False
End If
If guests.EOF Then Exit Do
tRecordsProcessed = tRecordsProcessed + 1
%>
<%
Loop
If tRangeType = "Table" Then Response.Write ""
If tPageSize > 0 Then
If Not fHideRule Then Response.Write "
"
If Not fHideNavBar Then
%>
|
>
|
<%
If Not fHideNumber Then
If tPageSize > 1 Then
Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & ""
Else
Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & ""
End If
End If
%>
|
<%
End If
End If
%>