本人菜鸟，asp下标越界: '[number: 0]'

dim num,mode,manager_code,manager_name,manager_title,manager_password,enable_flag,count,num1,manager_jb
mode=Request.QueryString ("mode")
if mode=9 then
manager_code=Request.Form ("manager_code")
sql="select * from [t_manager] where manager_code='"&manager_code&"'"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
if not err then
response.Write("<script>"& VbCrLf &"alert('这个用户名已经存在！');"& VbCrLf&"window.location.href='manager.asp';"&VbCrLf&"</script>")
Response.End
end if
end if
rs.Close
manager_name=Request.Form ("manager_name")
manager_title=Request.Form ("manager_title")
manager_password=Request.Form ("manager_password")
enable_flag=Request.Form ("enable_flag")
sel=Request.Form ("sel")
num=ubound(split(sel,","))
sel=split(sel,",")
for i=0 to num
sel(i)=split(sel(i),"|")(1)
next
for i=1 to num
sel(0)=sel(0)&"-"&sel(i)
next
' Response.Write sel(0)
' Response.End

sql="select * from [t_manager]"
rs.Open sql,conn,3,3
rs.AddNew
rs("manager_code")=manager_code
rs("manager_password")=md5(manager_password)
rs("manager_name")=manager_name
rs("shezhi")=request("shezhi")
rs("manager_title")=split(manager_title,"|")(1)
rs("manager_jb")=split(manager_title,"|")(0)
rs("enable_flag")=enable_flag
rs("manager_status")=sel(0) /////////问题行 59
rs("creatdate")=now()
rs.Update

rs.Close
if not err then
response.Write("<script>"& VbCrLf &"alert('添加成功！');"& VbCrLf&"window.location.href='manager.asp';"&VbCrLf&"</script>")
Response.End
end if
end if