Microsoft VBScript 运行时错误 错误 '800a000b'

我有一段代码
C# code

<%
    arr=split(session("fail"),"@")
    '************************************
    '*   方法：数组分页
    '*   方法名：SetPage(nowP,reCount,num)
    '*   nowP : 记录当前页
    '*   reCount：数组大小
    '*   num：一页显示多少条数据
    '************************************
    Page=cint(request("page"))
    
    
    UBoundArr=UBound(arr)
    num=cint(request("num"))
    response.Write(num)
    TrContent=""

    call SetPage(Page,UBoundArr,num)
    public Function SetPage(nowP,reCount,num)
            if nowP="" then
                nowP=1
            end if
            if num=""then
                num=20
            end if
            nowPage=nowP      '记录当前页数
            RsCount=reCount   '总记录
            pageNumber=num    '一页显示多少条记录
            If nowP=1 then      '记录上一次最大的记录
                MaxCount=0
            Else
                nowP=nowP-1
                MaxCount=cint(nowP*pageNumber)
            End if
            ApageCount=(reCount/num)     '共多少页
            response.Write(reCount/num)
            if instr(ApageCount,".")>0 then
                ApageCount=cint(ApageCount)+1
            end if
            '上一次最大记录加上 一页显示多少条数据
            '得出本次最次最大显示条数
            rs=MaxCount+pageNumber
            '判断是否超过了最大下标
            If rs>UBound(arr) then
                rs =UBound(arr)
            Else
                rs=MaxCount+pageNumber
            End if
            For i=MaxCount to rs-1
                'Response.Write(arr(i)&"<br />")
            Next
    End function
    'response.Redirect("Frame.html")    
%>

加上最后一句就报 '800a000b'的错误。、求解释
问题补充：
ApageCount=(reCount/num) '共多少页

加上最后一句的话。就说 上面那句的错误。

不加最后跳转 一点错误都没有。

来个人好么。别让我寒心。

1、检查你的数据库中是否有记录
2、 800a000b一般是被0除，检查数据库记录
3、在response.Redirect("Frame.html")前判断ApageCount是否为空或者0。  

1,记录都能取出来。
2.应该是被0除了。怎么解决呢？