" & VbCrLf) response.write("

" & pageObj.p_title & "

" & VbCrLf) call pageObj.getPageContent() call pageObj.writePageContent("") dim linksPerPage linksPerPage = 10 strSQL = "SELECT * from links where ia_parentid = " & getFileFolderID(this_page_id) &_ " ORDER BY link_title" paginationURL = request.servervariables("URL") & "?page_id=" & this_page_id if len(strSQL) then Set rs = LoadRSFromDB(strSQL) rs.PageSize = linksPerPage rs.CacheSize = rs.PageSize intPageCount = rs.PageCount intRecordCount = rs.RecordCount if cint(intPage) > cint(intPageCount) then intPage = intPageCount if cint(intPage) <= 0 then intPage = 1 if intRecordCount > 0 Then rs.AbsolutePage = intPage intStart = rs.AbsolutePosition if cint(intPage) = cint(intPageCount) then intFinish = intRecordCount else intFinish = intStart + (rs.PageSize - 1) end if end if '-- Concatenate the pagination string dim paginationString if cint(intPage) > 1 then paginationString = "Previous" else paginationString = "Previous" end if paginationString = paginationString & " | " if cint(intPage) < cint(intPageCount) then paginationString = paginationString & "Next" else paginationString = paginationString & "Next" end if if not rs.EOF then response.write("" & VbCrLf) for intRecord = 1 to rs.PageSize 'if not intRecord = 1 then response.write("

---

") set linkObj = new cLink call linkObj.makeLink("","",rs("link_id"),"","") call linkObj.writeLink() set linkObj = nothing rs.movenext if rs.EOF then exit for next end if end if response.write("

Print this page | Back to top

" & VbCrLf) response.write("