%
dim smenu
GetDBConnect
set srs = server.CreateObject("ADODB.RECORDSET")
srs.open "select * from producttype",conn,1,1
if not(srs.eof and srs.bof) then
while not srs.eof
smenu = smenu&"
"
set prs = server.CreateObject("ADODB.RECORDSET")
prs.open "select * from product where typeid="&srs("id"),conn,1,1
if not(prs.eof and prs.bof) then
while not prs.eof
smenu = smenu&"