paging

<%
dim psize
psize = 20
'Current Page No Check
If isEmpty(request.querystring("PageNo")) or request.QueryString("pageno")="" then
CurrPage = 1
else
CurrPage = Cint(request.querystring("PageNo"))
end if

'Setting Page Size
if request.Form("psize")<>"" then
psize=request.Form("psize")
elseif Request.QueryString("psize")<>"" then
psize=request.QueryString("psize")
end if

'Paging Function for Next and Previous 10
function getnext10(num)
pageLen = len(num)
if pageLen = 1 then
next10 = 10
elseif pageLen = 2 then
pageRem = 10
pageTen = right(num, 1)
next10 = num + pageRem - pageTen
elseif pageLen = 3 then
pageRem = 10
pageTen = right(num, 1)
next10 = num + pageRem - pageTen
end if
getnext10 = next10
end function

function getPrev10(num)
pageLen = len(num)
if pageLen = 1 then
Prev10 = 1
elseif pageLen = 2 then
firstDig = left(num, 1)
secondDig = right(num, 1)
Prev10 = num - secondDig - 10
elseif pageLen = 3 then
firstDig = left(num, 1)
secondDig = right(num, 2)
ThirdDig=right(secondDig,1)
Prev10 = num - ThirdDig - 10
end if
if Prev10 = 0 then
Prev10 = 1
end if
getPrev10 = Prev10
end function

function PageNoShow(PageName)
qry_search=server.URLEncode(qry_search)
RSPrevPage = CurrPage -1
RSNextPage = CurrPage + 1
if next10 > RecordPagecount then
next10 = RecordPagecount
end if
if Prev10 = 1 AND next10 - 1 < 10 then
start = 1
else
start = next10 - 10
if right(start, 1) > 0 then
start = replace(start, right(start, 1), "0")
start = start + 10
end if
end if

If RecordPagecount > 1 then
if next10 > 10 then
response.write("< & PageName & "site=" & SiteName & "&PageNo=" & Prev10 & "&qry_search=" & qry_search & "&cat=" & cat & "'> ")
end if
if not RSPrevPage = 0 then
response.write("   Previous   ")
end if
for P = start to next10
if not P = CurrPage then
response.write("" & P & " ")
else
response.write(" " & P & " ")
end if
Next
if not RSNextPage > RecordPagecount then
response.write("   Next   ")
end if
if not next10 = RecordPagecount then
response.write(" >>")
end if
end if
end function

%>