" & pageObj.p_title & "

" & VbCrLf) call pageObj.getPageContent() call pageObj.writePageContent("") dim documentsPerPage documentsPerPage = 10 strSQL = "SELECT * from files where ia_parentid = " & getFileFolderID(this_page_id) &_ " ORDER BY file_publication_date DESC, file_title" paginationURL = request.servervariables("URL") & "?page_id=" & this_page_id if len(strSQL) then Set rs = LoadRSFromDB(strSQL) rs.PageSize = documentsPerPage 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 for intRecord = 1 to rs.PageSize if not intRecord = 1 then response.write("

") end if set fileObj = new cFile call fileObj.makeFile("","",rs("file_id"),"","") call fileObj.writeFile() set fileObj = 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("