asp网页分页代码出现问题 Division by zero

其代码如下：

-------------------------------------

<%

Set ObjReference = Server.CreateObject("DllStock.LAspFLib")

Dim conUser
Dim rstInfo
Dim m_sql

set rstInfo = Server.CreateObject ("ADODB.RecordSet")
m_sql = "SELECT * FROM RY_JCSJ "
rstInfo.Open m_sql,con,1,1' adOpenDynamic

if rstInfo.EOF then
Response.Write "<BR>没有任何信息!"
showContent
' Response.Write "<BR><A href='javascript:history.back()'>返回</A>"
'Response.End
else
totalPut=rstInfo.recordcount
totalPut=rstInfo.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

end

asp分页代码问题 asp分页代码问题!!! 求助asp分页代码问题 ASP网页分列分页问题 asp代码分页显示小问题 asp分页显示代码的问题 asp 按日期查询 分页代码问题 ASP分页代码问题！高手过来看看？ asp网页制作中的分页问题 求ASP分页代码