<%dim mainpicture
if not isempty(request("catid")) then
mainpicture=getstr("select mainpicture from T_category where categoryid="&request("catid"))
else
mainpicture=""
end if
if mainpicture="" then mainpicture="product_top.jpg"
dim rs1,rs2
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
rs1.open "select categoryid,categorycnname,categoryenname from T_category where parentid=0",conn,1,1
%>
