<%@ LANGUAGE="VBSCRIPT" %> <% HTMLtitle="Products by group" %> <% response.write(HTMLtop) %> <% '----------------------------------------------- 'PRODTYPE QUERY '----------------------------------------------- theQuery = "SELECT ProdType.* FROM ProdType WHERE PT_MotherProdtype=0 AND PT_Live='y' ORDER BY Prodtype.PT_Pos, Prodtype.PT_Name;" Call ExecuteSQL(theQuery,cursortype,rs_main) do while not rs_main.EOF %> <% rs_main.moveNext loop rs_main.Close %>

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

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

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(HTMLbottom) '----------------------------------------------- 'CLOSE DATABASE CONNECTIONS '----------------------------------------------- DataConn.Close set DataConn = nothing %>