<%
rs.PageSize =""&TD_newsclass&""
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
%>