%languaGE=VBSCRIPT %>
<% dim rs1,flag
Set rs1 = conn.Execute("select * from infoxhdt where verify=1 order by date desc")
set rs2=conn.execute("select * from infojgxx where verify=1 order by date desc")
set rs3=conn.execute("select * from infoscxx where verify=1 order by date desc")
set rs4=conn.execute("select * from infogqxx where verify=1 order by date desc")
set rs5=conn.execute("select * from comqyhc where verify=1 order by date desc")
set rs6=conn.execute("select * from comrwfc where verify=1 order by date desc")
set rs7=conn.execute("select * from comxgcl where verify=1 order by date desc")
%>
奉贤印刷协会
<%if not rs1.eof then
rs1.movefirst
qq=0
do while not rs1.eof and qq<4
%>