% dim str1(6),http(6)
dim lnTot
set Rs=server.createobject("adodb.recordset")
if Session("IP")=Session("cmpIP") then
sql="select * from news order by fdate desc"
else
sql="select * from news where tt<>2 order by fdate desc "
end if
Rs.open sql,conn,1,3
lnTot=rs.recordcount
lnPer=20
Rs.pagesize=lnPer
totpage=rs.pagecount
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
i=0
%>