%
dim rs1,sql1
set rs1=server.CreateObject("ADODB.RecordSet")
sql1="select top 8 * from da where lm='gsxw' order by id desc"
rs1.open sql1,conn,1,1
dim rs2,sql2
set rs2=server.CreateObject("ADODB.RecordSet")
sql2="select top 8 * from da where lm='syxw' order by id desc"
rs2.open sql2,conn,1,1
dim rs3,sql3
set rs3=server.CreateObject("ADODB.RecordSet")
sql3="select top 7 * from da where lm='ssyw' order by id desc"
rs3.open sql3,conn,1,1
dim rs4,sql4
set rs4=server.CreateObject("ADODB.RecordSet")
sql4="select top 5 * from da where lm='tzgg' order by id desc"
rs4.open sql4,conn,1,1
%>