<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "155" %> <% Call ReadFromTemplate(templatelocation,aryPageTemplate,strBasketHTML,strCategoryListHTML) response.write(aryPageTemplate(0)) %> <% theQuery = "SELECT * FROM tbl_Prodtype WHERE PT_MotherProdtype = 0 AND PT_Live = 'y' ORDER BY PT_Name" Call ExecuteSQL(theQuery,cursortype,rs_main) do while not rs_main.EOF If rs_main("PT_MasterCategory")="y" then PT_MasterCategoryClause = "&PT_MasterCategory=y" else PT_MasterCategoryClause = "" %> <% rs_main.moveNext loop rs_main.Close %>

<% WriteString("PageTitle_ProductCategories") %>

"><% =rs_main("PT_Name")%>

<% response.write(rs_main("PT_Desc")) %>

<% response.write(aryPageTemplate(1)) DataConn.Close set DataConn = nothing %>