% '--------------------------- 'Variables and Class Instantiation '--------------------------- Set CLASS_cCategory = new CCategory Set CLASS_cLink = new CLink set CLASS_cEmailTemplate = new CEmailtemplate set CLASS_cEmailTemplateB = new CEmailtemplate CLASS_cEmailTemplate.LoadFromTemplateName("Broken Link") CLASS_cEmailTemplateB.LoadFromTemplateName("Tell Friend") '--------------------------- 'Order / Sort - Overide default sort order if new sort information exists '--------------------------- 'Order By - Changed based on PARAM settings If NOT PARAM.OrderField = "" Then CLASS_cLink.dsOrderBy = PARAM.OrderField&" "&PARAM.OrderDirection '--------------------------- 'Load Collection / Data '--------------------------- CLASS_cLink.LoadCollectionLatestLinks "ActiveAndApprovedCategoryActive", CONFIG.SETTING("ResultsMaxLatestLinks") 'Record Count Total PARAM.CollectionCountTotal = CLASS_cLink.dsCollectionRecordCount '--------------------------- 'Pagination - Move to correct page '--------------------------- If NOT CLASS_cLink.dsCollection.eof Then CLASS_cLink.dsCollection.movefirst '--------------------------- 'MAIN '--------------------------- %>
Latest Links
|