<%@ Language=VBScript %><% '************************************************************ '* * '* By Downloading or using this software, you agree to * '* the terms and conditions as stated in the Software * '* License Agreement. An updated copy of this agreement * '* can be seen at http://www.pagedowntech.com/terms. * '* * '* NOTICE: We do not recommend changing the code below * '* as it may interfere with future updates/upgrades. * '* * '* PageDown Technology, LLC., Copyright 2005. * '* www.pagedowntech.com * '* * '************************************************************ %> <% sDBExtraPath = "../" sExtraTemplatePath = "../" sCurrentPage = "products" %> <% zpage=pg2 %> <% getleftside(zpage)%> <% getsecspace ()%> <% getHeading "hdcats", hdcats, "", 2 %> cellpadding="5" cellspacing="0" width="100%"> <% 'Open database get categories. set rs=openrs("SELECT * FROM category WHERE LangID=" & iEcommLangID & " AND subof=0 ORDER BY " & ord1) if not rs.eof then rs.movefirst while not rs.eof catname=rs("name") catid=rs("id") %> <% rs.movenext wend %> <% end if rs.close set rs=nothing %>

<% =catname %> <% if tlshowsub=1 or isnull(tlshowsub) then %> <% 'Open database get sub categories. set rs2=openrs2("SELECT * FROM category WHERE subof=" & catid & " ORDER BY " & ord1) if not rs2.eof then %> <% end if%> <%=rs("shortdesc")%>   <% rs2.movefirst while not rs2.eof subcatname=rs2("name") subcatid=rs2("id") %><%=subcatname%> <% rs2.movenext if not rs2.eof then response.write (" | ") end if wend response.write (" ") end if rs2.close set rs2=nothing %>

<% getrightside(zpage)%>