Hi,
here is part of my code:
Dim IntPageSize, PageIndex, TotalPages, TotalRecords, intPrev, intNext
IntPageSize = 3
PageIndex = Request("PageIndex"
if PageIndex = "" then PageIndex = 1
objRec.PageSize = intPageSize ' Set the number of records per page
objRec.AbsolutePage = PageIndex 'Define what page number on which the current record resides.
TotalPages = objRec.PageCount
intPrev = PageIndex - 1
intNext = PageIndex + 1 'same as objRec.AbsolutePage
Thanks
H2
here is part of my code:
Dim IntPageSize, PageIndex, TotalPages, TotalRecords, intPrev, intNext
IntPageSize = 3
PageIndex = Request("PageIndex"
if PageIndex = "" then PageIndex = 1
objRec.PageSize = intPageSize ' Set the number of records per page
objRec.AbsolutePage = PageIndex 'Define what page number on which the current record resides.
TotalPages = objRec.PageCount
intPrev = PageIndex - 1
intNext = PageIndex + 1 'same as objRec.AbsolutePage
Thanks
H2