% '--------------------------- 'Variables and Class Instantiation '--------------------------- dim link_strLinkTruncated dim link_search_id 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 '--------------------------- link_search_id = CLASS_cCast.cast(request("searchcategoryid"),"lng","") If NOT PARAM.SearchValue = "" Then CLASS_cLink.LoadCollectionSearch "SearchActiveAndApproved",PARAM.SearchValue,link_search_id Else CLASS_cLink.LoadCollectionFromIDParent "ActiveAndApproved",PARAM.SearchCategoryID End If 'Record Count Total PARAM.CollectionCountTotal = CLASS_cLink.dsCollectionRecordCount '--------------------------- 'Pagination - Move to correct page '--------------------------- If NOT CLASS_cLink.dsCollection.eof Then CLASS_cLink.dsCollection.move(((PARAM.PageNumber-1)*PARAM.PageResultsPerPage)) '--------------------------- 'MAIN '--------------------------- %>
<%If NOT PARAM.SearchValue = "" then %> Search Results for: <%=PARAM.SearchValue%> <%Else%> Favorite <%=CONFIG.Setting("META_SiteTitle")%> restaurants are indicated with a: /images/featured.gif" width="20" height="15" alt="Favorite" title="Favorite" /> <%End If%> | Sort By: " title="Sort by Date">Date " title="Sort by Name">Name " title="Sort by Rating">Rating " title="Sort by Favorite">Favorite |
No Restaurants Found
|