Microsoft VBScript 运行时错误

Microsoft VBScript 运行时错误 (0x800A005E)
无效使用 Null: 'split'

dim jzid,jzname,jzsm,jzpicurl,jzdata,jzq

if rs("jzdata")=" " or rs("jzdata")="0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||" then'把rs("jzdata")=" "改成""
  response.write "要努力哦！你暂时没有什么勋章！"
  rs.close
  else
    jzdata=split(rs("jzdata"),"|||")
    for i=0 to ubound(jzdata)-1
        jzq=jzdata(i)
                if jzq<>"0" then
        set jzrs=conn.execute("select * from kk_jzdata where jzid="&jzq)
        jzid=jzrs("jzid")
        jzname=jzrs("jzname")
        jzsm=jzrs("jzsm")
        jzpicurl=jzrs("jzpicurl")
        response.write "  "
        end if
    next
end if