<% strPageTitle = Application("STORE_NAME")%> <% strPageKeywords = Application("STORE_NAME")%>
<% dim bolShowProducts dim bolHasCategories dim intProductCount intProductCount = 0 bolHasCategories = False bolShowProducts = False if request("cid") <> "" then bolHasCategories = fCheckCategoryHasProducts(fCalculateCategoryID(request("cid"))) intProductCount = fProductCountbyCategory(fCalculateCategoryID(request("cid"))) if bolHasCategories = True then 'Show all sub categories %>
<% end if if intProductCount <> 0 or bolHasCategories = False then 'Show all products %>
<% end if elseif request("mid") <> "" then 'Show Manufacturers List %>
<% else 'Show New products and homepage text %>
<% end if if (request("cid") = "" and request("mid") = "") or bolHasCategories = True then %>
<% end if %>
<% if bolDEBUG then sDebugApplicationSettings %>