William-Adolphe Bouguereau -- "The Dance", 1856, oil on canvas, Musée d'Orsay. <% fHideNavBar = False fHideNumber = False fHideRequery = False fHideRule = False stQueryString = "" fEmptyRecordset = False fFirstPass = True fNeedRecordset = False fNoRecordset = False tBarAlignment = "Left" tHeaderName = "DataRangeHdr1" tPageSize = 10 tPagingMove = "" tRangeType = "Text" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fSupportsBookmarks = True fMoveAbsolute = False If Not IsEmpty(Request("DataRangeHdr1_PagingMove")) Then tPagingMove = Trim(Request("DataRangeHdr1_PagingMove")) End If If IsEmpty(Session("DataRangeHdr1_Recordset")) Then fNeedRecordset = True Else If Session("DataRangeHdr1_Recordset") Is Nothing Then fNeedRecordset = True Else Set DataRangeHdr1 = Session("DataRangeHdr1_Recordset") End If End If If fNeedRecordset Then Set DataConn1 = Server.CreateObject("ADODB.Connection") DataConn1.ConnectionTimeout = Session("DataConn1_ConnectionTimeout") DataConn1.CommandTimeout = Session("DataConn1_CommandTimeout") DataConn1.Open Session("DataConn1_ConnectionString"), Session("DataConn1_RuntimeUserName"), Session("DataConn1_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT Women.Site, Women.URL, Women.Desc, Category.Category, Category.ID FROM { oj Category RIGHT OUTER JOIN Women ON Category.ID = Women.Category } WHERE (Women.Category = 21) ORDER BY Women.Site" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn1 DataRangeHdr1.Open cmdTemp, , 1, 1 End If On Error Resume Next If DataRangeHdr1.BOF And DataRangeHdr1.EOF Then fEmptyRecordset = True On Error Goto 0 If Err Then fEmptyRecordset = True DataRangeHdr1.PageSize = tPageSize fSupportsBookmarks = DataRangeHdr1.Supports(8192) If Not IsEmpty(Session("DataRangeHdr1_Filter")) And Not fEmptyRecordset Then DataRangeHdr1.Filter = Session("DataRangeHdr1_Filter") If DataRangeHdr1.BOF And DataRangeHdr1.EOF Then fEmptyRecordset = True End If If IsEmpty(Session("DataRangeHdr1_PageSize")) Then Session("DataRangeHdr1_PageSize") = tPageSize If IsEmpty(Session("DataRangeHdr1_AbsolutePage")) Then Session("DataRangeHdr1_AbsolutePage") = 1 If Session("DataRangeHdr1_PageSize") <> tPageSize Then tCurRec = ((Session("DataRangeHdr1_AbsolutePage") - 1) * Session("DataRangeHdr1_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 Session("DataRangeHdr1_PageSize") = tPageSize Session("DataRangeHdr1_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True fHideRule = True Else tPrevAbsolutePage = Session("DataRangeHdr1_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "Requery" DataRangeHdr1.Requery fMoveAbsolute = True Case "<<" Session("DataRangeHdr1_AbsolutePage") = 1 Case "<" If Session("DataRangeHdr1_AbsolutePage") > 1 Then Session("DataRangeHdr1_AbsolutePage") = Session("DataRangeHdr1_AbsolutePage") - 1 End If Case ">" If Not DataRangeHdr1.EOF Then Session("DataRangeHdr1_AbsolutePage") = Session("DataRangeHdr1_AbsolutePage") + 1 End If Case ">>" If fSupportsBookmarks Then Session("DataRangeHdr1_AbsolutePage") = DataRangeHdr1.PageCount End If End Select Do If fSupportsBookmarks Then DataRangeHdr1.AbsolutePage = Session("DataRangeHdr1_AbsolutePage") Else If fNeedRecordset Or fMoveAbsolute Or DataRangeHdr1.EOF Then DataRangeHdr1.MoveFirst DataRangeHdr1.Move (Session("DataRangeHdr1_AbsolutePage") - 1) * tPageSize Else intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize intNewPos = ((Session("DataRangeHdr1_AbsolutePage") - 1) * tPageSize) + 1 DataRangeHdr1.Move intNewPos - intCurPos End If If DataRangeHdr1.BOF Then DataRangeHdr1.MoveNext End If If Not DataRangeHdr1.EOF Then Exit Do Session("DataRangeHdr1_AbsolutePage") = Session("DataRangeHdr1_AbsolutePage") - 1 Loop End If Do If fEmptyRecordset Then Exit Do If tRecordsProcessed = tPageSize Then Exit Do If Not fFirstPass Then DataRangeHdr1.MoveNext Else fFirstPass = False End If If DataRangeHdr1.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %>

"><%= DataRangeHdr1("Site") %>
<%= DataRangeHdr1("Desc") %> <% Loop If tRangeType = "Table" Then Response.Write "

" If tPageSize > 0 Then If Not fHideRule Then Response.Write "
" If Not fHideNavBar Then %>

>

" value=" << "> " value=" < "> " value=" > "> <% If fSupportsBookmarks Then %> " value=" >> "> <% End If %> <% If Not fHideRequery Then %> " value=" Requery "> <% End If %>

<% 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 %>

If you have a link which you would like us to add to the database, please
e-mail boots@mail.everperfect.com.

Painting by William-Adolphe Bouguereau -- The Dance, 1856, oil on canvas, Musée d'Orsay.