<%
if RsNews.RecordCount>0 then
if cint(intCurPage)>RsNews.PageCount then intCurPage=RsNews.PageCount
intTotPages=RsNews.PageCount
RsNews.AbsolutePage=cint(intCurPage)
'Response.Write " RsNews.AbsolutePage = " & RsNews.AbsolutePage
intRec=0
while not (RsNews.EOF or intRec > RsNews.PageSize-1)
intRec=intRec + 1
%>
<%
RsNews.MoveNext
Wend
strPaging=""
if int(intTotPages)>1 then
strFileName="news_new.asp"
if bSort=true then
strFileName= strFileName & "?Publication_Sort="&Publication_Sort
else
strFileName= strFileName & "?Publication_Search="&Publication_Search
end if
strPaging = "
"
strPaging= strPaging & ""
if cint(intCurPage)=1 then
'strPaging=strPaging & "Previous"
else
strPaging=strPaging & "Previous"
end if
for iPg = 1 to cint(intTotPages)
if iPg=cint(intCurPage) then
strPaging=strPaging & " " & cstr(iPg)
else
strPaging=strPaging & " "&ipg&""
end if
next
if cint(intCurPage)=cint(intTotPages) then
'strPaging=strPaging & " Next"
else
strPaging=strPaging & " Next"
end if
strPaging=strPaging & ""
strPaging=strPaging & "
"
end if
else
end if
Response.Write strPaging
RsNews.Close
Set RsNews = Nothing
'WEBFRONT_conn.Close
%>
