% dim scid,bcid,id id=trim(request("id")) scid=trim(request("scid")) bclassid=trim(request("bcid")) if bclassid<>"" then Set pro_b = Server.CreateObject("ADODB.Recordset") sqlb="select BigClassName from BigClass where BigClassID="&bclassid pro_b.open sqlb,conn,1,1 bclass=pro_b("BigClassName") pro_b.close set pro_b=nothing else bclass="" end if if scid<>"" then Set pro_c = Server.CreateObject("ADODB.Recordset") sql="select SmallClassName,BigClassName,sclassimg from SmallClass where SmallClassID="&scid pro_c.open sql,conn,1,1 sname=pro_c("SmallClassName") bname=pro_c("BigClassName") simg=pro_c("sclassimg") pro_c.close set pro_c=nothing else sname="" bname="" end if sql="select * from Product where id="&id set rs=Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %>