<% Response.Buffer=true %> <% createPageObject() pageObj.getPageContent() writeHTMLTop() writeActiveBreadcrumb() response.write("
" & VbCrLf) writeLeftCol() response.write("
" & VbCrLf) response.write("
" & VbCrLf) response.write("

" & pageObj.p_title & "

" & VbCrLf) dim pageCollection set pageCollection = new cPageCollection call pageCollection.getPageCollection(pageObj.p_id, session("languageID"), displayMode, "", "cd.dateRange_start desc, pv.page_version_id desc, ia.ia_sortorder", 1000) if pageCollection.pc_childCount = 0 then response.write("

There are currently no " & pageObj.p_title & " aticles.

" & VbCrLf) else response.write("
" & VbCrLf) call pageCollection.writePagination("listchildren.asp","page_id=" & this_page_id & "","Previous","next") call pageCollection.writeChildrenIntro(150, false) response.write("
" & VbCrLf) end if response.write("

Print this page | Back to top

" & VbCrLf) response.write("
" & VbCrLf) response.write("
" & VbCrLf) response.write("
" & VbCrLf) writeHTMLBottom() %>