遇到问题了

想出来的效果是：如果没有选课的人点击就出现：“您还没有选择任何课程，请先选择！"
已经选了课程的人点击就可以看到所选的课程，以下是代码：
                        <%
        call CheckLogin()
         set RS=Server.CreateObject("ADODB.RecordSet")
         infolist2="select * from 学生表_student where name='"&session("XZW_xsID")&"' "
         RS.open infolist2,conn,1,3
        if rs("SXKC")="" then
        
                str="您还没有选择任何课程，请先选择！"
                url="xuanke.asp"
                MsgShow str,"0",url   
                call CloseDatabase()
                response.end
            else
                kcid=split(RS("SXKC"),",")
                kcidnum = Ubound(kcid)
            for i = 0 to kcidnum
        rs.close
        ysj_sql = "Select * from 教师表_teacher where id="&kcid(i)
        'Response.Write(ysj_sql)
        'Response.End()
        rs.open ysj_sql,conn,1,1

%>
         运行的时候错误提示是Microsoft VBScript 运行时错误 '800a005e'

无效使用 Null: 'split'