<%
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
%>