<%@ 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 2004. * '* www.pagedowntech.com * '* * '************************************************************ %>[an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive]

[an error occurred while processing this directive]

<% 'Open database get categories. set rs=opendb("SELECT * FROM category WHERE subof=0 ORDER BY name") 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 %> <% getHeading "", "hdcats", "" %> <% =catname %> <%=rs("shortdesc")%> [more]   <% 'Open database get sub categories. set rs2=openrs2("SELECT * FROM category WHERE subof=" & catid & " ORDER BY name") if not rs2.eof then %>Also see:  <% 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 %> Click on category name to view category items!

[an error occurred while processing this directive]