<% '--------------------------- '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.LoadCollectionTopRated "ActiveAndApprovedCategoryActive", CONFIG.Setting("ResultsMaxTopRated") '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 '--------------------------- %>
Top <%=CONFIG.Setting("ResultsMaxTopRated")%> Rated Restaurants
<% If CONFIG.Setting("AD_Google") = True Then %>
<%Else%>
<%End If%> <% if CLASS_cLink.dsCollectionRecordCount = 0 then %>
No Restaurants Found
<% else %> <% Do until CLASS_cLink.dsCollection.eof OR CLASS_cLink.dsCollectionCounter = CONFIG.Setting("ResultsMaxTopRated") %> <% CLASS_cLink.dsCollectionCounter = CLASS_cLink.dsCollectionCounter + 1 CLASS_cLink.dsCollection.movenext Loop End If '--------------------------- 'Clean Up '--------------------------- Set CLASS_cCategory = nothing Set CLASS_cLink = nothing set CLASS_cEmailTemplate = nothing set CLASS_cEmailTemplateB = nothing %>