赋值出现的信息

Sub ParseTopicNode(sToken) Rem 转换普通帖子数据
    Dim title  
    Select Case sToken
        Case "folder"
            If CInt(Topic(14,i))>0 Then     
                TPL_Echo Dvbbs.mainpic(4)
            ElseIf CInt(Topic(13,i))>0 Then   就是提示 这里的CInt 出错
                TPL_Echo Dvbbs.mainpic(5)
            ElseIf CInt(Topic(12,i))>0 Then
                TPL_Echo Dvbbs.mainpic(6)
            ElseIf CInt(Topic(6,i))>CInt(Dvbbs.Forum_Setting(44)) Then
                TPL_Echo Dvbbs.mainpic(3)
            Else
                TPL_Echo Dvbbs.mainpic(2)
            End If

朋友们，请帮我看看这段代码
提示的错误是
无效使用 Null: 'Cint'
/bbs/index.asp, 第 690 行

一般数据库中的字段 出这样的错，可以给他赋值
但是提示的是  ElseIf CInt(Topic(13,i))>0 Then   中的
CInt  不能为Null，应该怎么办呢？
各位哥哥姐姐  帮帮忙