%
page=Request.QueryString("page")
if page<=1 or page="" then page=1
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where SmallClassID=31 order by NewsID desc"
rs.Open rs.Source,conn,1,1
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select * from News where SmallClassID=32 order by NewsID desc"
rs1.Open rs1.Source,conn,1,1
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * from News where SmallClassID=49 order by NewsID desc"
rs2.Open rs2.Source,conn,1,1
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select * from News where SmallClassID=50 order by NewsID desc"
rs3.Open rs3.Source,conn,1,1
rs.PageSize=5
rs1.PageSize=5
rs2.PageSize=5
rs3.PageSize=5
for i=1 to rs.PageSize *( page-1)
if not rs.EOF then
rs.MoveNext
end if
next
%>