<%setvar PreviousPage=CInt(CurrentPage)-CInt(1)%> <%setvar NextPage=CInt(CurrentPage)+CInt(1)%> <%setvar PageRange=CInt(3)%> <%if (CInt(CurrentPage) > 0) then%> <%end if%> <%if (CInt(CurrentPage) = CInt(0)) then%> 1 <%else%> 1 <%end if%> <%if ( CInt(CurrentPage) - CInt(PageRange) > CInt(1) ) then%> ... <%end if%> <%set value=MenuPage,1%> <%while ( CInt(MenuPage) < (CInt(PageCount)-CInt(1)) )%> <%setvar DisplayPage=CInt(MenuPage)+CInt(1)%> <%if (MenuPage = CurrentPage) then%> <%DisplayPage%> <%else%> <%if ( Abs(CInt(MenuPage) - CInt(CurrentPage)) <= CInt(PageRange)) then%> <%DisplayPage%> <%end if%> <%end if%> <%setvar MenuPage=CInt(MenuPage)+CInt(1)%> <%wend%> <%if ( CInt(CurrentPage) + CInt(PageRange) < CInt(PageCount) - 2 ) then%> ... <%end if%> <%if (CInt(PageCount) > 1) then%> <%setvar LastPage=CInt(PageCount)-1%> <%if (CInt(CurrentPage) = CInt(LastPage)) then%> <%PageCount%> <%else%> <%PageCount%> <%end if%> <%end if%> <%if (CInt(MenuPage) >= CInt(PageCount) - 1) then%> <%end if%>