<% ' Show Main Category's %> <% If catid = "" Then %> <% End If %> <% ' Show Pages %> <% If catid <> "" Then %> <% Dim catname : catname = Request.querystring("catname") %> <% End If %> <% ' Show SubCategory %> <% If catid <> "" AND pageid <> "" Then %> <% catname = Request.querystring("catname") %> <% Dim pagename : pagename = Request.querystring("pagename") %> <% End If %> <% ' Show SubCategory %> <% If catid <> "" AND pageid <> "" AND subcatid <> "" Then %> <% catname = Request.querystring("catname") %> <% pagename = Request.querystring("pagename") %> <% Dim subcatname : subcatname = Request.querystring("subcatname") %> <% End If %> <% 'Check if the banner module is activated (value from inc_header.asp)%> <% If s_banner_module = "True" Then %> <% End If %>
Sitemap
<% GetMainMenu() %> <% Do While Not objRS.EOF %> <% objRS.MoveNext() %> <% Loop %> <% dbFree() %>
<%= catname %>
<% GetMenuItemPages(catid) %> <% Do While Not objRS.EOF %> <% objRS.MoveNext() %> <% Loop %> <% dbFree() %>
<%= catname %> - <%= pagename %>
<% GetMenuItemSubCategory(pageid) %> <% Do While Not objRS.EOF %> <% objRS.MoveNext() %> <% Loop %> <% dbFree() %>
<%= catname %> - <%= pagename %> - <%= subcatname %>
<% GetMenuItemSubPages(subcatid) %> <% Do While Not objRS.EOF %> <% objRS.MoveNext() %> <% Loop %> <% dbFree() %>