%
fistclass=request("fistclass")
if fistclass="" or isnull("fistclass") then
Response.Write("")
Response.End
end if
set rsb=server.createobject("adodb.recordset")
sqlb="select * from flgx where fistclass like '%"& fistclass &"%' "
rsb.open sqlb,conn,1,1
%>
<%do while not rsb.eof
set rsa=server.createobject("adodb.recordset")
sqla="select * from new where ntype like '%"& fistclass &"%' and keys like '%"&rsb("secondclass")&"%' order by ndate desc"
rsa.open sqla,conn,1,1
%>