ASP中一个常见分页程序的问题...还请高手指点...

MaxPerPage=20
totalPut=rs.recordcount
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then

showContent
showpage totalput,MaxPerPage,"grhouse.asp"

else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage '******
dim bookmark '******************
bookmark=rs.bookmark '********

showContent
showpage totalput,MaxPerPage,"grhouse.asp"

else
currentPage=1

showContent
showpage totalput,MaxPerPage,"grhouse.asp"

end if
end if

请注意带*号的位置...
dim bookmark '******************