<%
if id=0 then
set rs_dir=conn.execute("select * from product_dir order by dir_order")
else
set rs_dir=conn.execute("select * from product_dir where dir_id="&id)
end if
while not rs_dir.eof
dirr_name=left((replace(rs_dir("dir_name")," ","")),34)
set rs_product=conn.execute("select file_name,product_photo,post_title from product where dir_id="&rs_dir("dir_id")&" order by post_order")
while not rs_product.eof
Response.Write("
"&vbcrlf)
rs_product.movenext
wend
set rs_product=nothing
Response.Write(""&vbcrlf)
rs_dir.movenext
wend
set rs_dir=nothing
%>
<%=title%>