<% dim id,rs,exec,rstt,exectt,tt,tt2 id = Server.Htmlencode(request.querystring("id")) if id = "" or not isnumeric(id) then set rs=server.createobject("adodb.recordset") exec="select * from shop order by px_id asc,id desc" rs.open exec,conn,1,1 titlefl = "Product Center" else set rstt=server.createobject("adodb.recordset") exectt="select * from shop_fl where id="&id rstt.open exectt,conn,1,1 titlefl = rstt("etitle") if rstt.eof then rstt.close set rstt = nothing conn.close set conn = nothing response.write "" response.end end if set rs=server.createobject("adodb.recordset") exec="select * from [shop] where ssfl="&id&" or sid="&id&" order by px_id asc,id desc" rs.open exec,conn,1,1 tt = rstt("id") tt2 = rstt("sid") end if %> <%=titlefl%>-<%=config("etitle")%> " /> " />