% const MaxPerPage=3 dim totalPut dim CurrentPage dim TotalPages dim a,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %>