<% '*********************************************************************** '******* XcInfoBase Copyright 2000 XCENT www.xcent.com ************** '*********************************************************************** lCurrentPage = FVal(Request.QueryString("page")) If lCurrentPage < 1 Then lCurrentPage = 1 End If sSQL = "Select * FROM tblIBSelectees WHERE selValidated = 'Y' ORDER By selDate DESC" DoPageHeader OpenDBConn Set rsSEL = Server.CreateObject("ADODB.Recordset") rsSEL.CursorLocation = adUseClient rsSEL.PageSize = giSearchPageSize rsSEL.Open sSQL, gobjConn, adOpenStatic, adLockReadOnly, adCmdText lPageCount = rsSEL.PageCount If lCurrentPage > lPageCount Then lCurrentPage = lPageCount Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") If rsSEL.eof then Response.Write("") Else rsSEL.AbsolutePage = lCurrentPage iLineFlag = True Do While rsSEL.AbsolutePage = lCurrentPage And Not rsSEL.EOF sLineTag = AlternateTag(lLineFlag, gsLineColorEven, gsLineColorOdd) Response.Write("") Response.Write("") Response.Write("") rsSEL.MoveNext Loop End If rsSEL.close Set rsSEL = Nothing Response.Write("") Response.Write("") Response.Write("

" & gsSelecteesTitle & "
") Response.Write("Nobody listed yet.") Response.Write("
" & gsTableLineOpen & " " & rsSEL.Fields("selName") & " " & gsTableLineClose & "	" & gsTableLineOpen & " " & FormatDateTime(rsSEL.Fields("selDate"),2) & " " & gsTableLineClose & "
") ShowNavigationBar Response.Write("

") ShowPageNavigation DoPageFooter CloseDBConn Sub ShowPageNavigation Response.Write("") If lCurrentPage <> 1 AND lCurrentPage <> 0 Then Response.Write ("Previous" & vbCrLf ' Spacer - inside the if so we don't get it unless needed Else Response.Write("Previous") End If Response.Write "   Page " Response.Write lCurrentPage Response.Write " of " Response.Write lPageCount Response.Write "    " If lCurrentPage < lPageCount Then Response.Write ("Next" & vbCrLf Else Response.Write("Next") End If Response.Write("") End Sub %>