Related Topic
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=20689
To avoid the problem discussed in above topic the following
sub TopicPaging()
mxpages = (rs("T_REPLIES") / strPageSize)
if mxPages <> cint(mxPages) then
mxpages = int(mxpages) + 1
end if
may be modified as below
dim mxpages : mxpages = 0
if rs("T_REPLIES") > strPageSize then
mxpages = (rs("T_REPLIES") \ strPageSize)
if ((rs("T_REPLIES") Mod strPageSize) > 0) then
mxpages = mxpages + 1
end if
end if
www.forumSquare.com - GauravBhabu - It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Edited by - GauravBhabu on 18 January 2002 13:40:09