ASP退课功能以及分类选择课程

想 要这样的效果，点击退课按钮，就可以把所选择的全部课程退掉，也就是删掉。下面是退课代码：<%
CheckLogin()
%>
<%
sid=SafeRequest("sid",1)
kid=SafeRequest("kid",1)

if kid="" Or sid="" then
%>
<script language="JavaScript">
<!--
alert(" 错误的参数！可能还没有选择类别！");
history.back(-1);
-->
</Script>
<%
response.End()
end if

 set RS_News =Server.CreateObject("ADODB.Recordset")
 SQL_News = "select SXKC from [学生表_student] where name='"&sid&"'"
 RS_News.open SQL_News,Conn,1,3
   
If RS_News("SXKC")=""  then
    Response.Write "<script language=javascript>alert(' 该学生还未选择任何课程...');history.back();</script>"
    call CloseDatabase()
    Response.End
Else
    RS_News("SXKC") = Replace(RS_News("SXKC"),kid&",","")
    RS_News.update
end if
Set RS_News=Nothing
set RS_News =Server.CreateObject("ADODB.Recordset")'取消选择，则老师已被选数减1
SQL_News = "select yxrs from 教师表_teacher where id="&kid

RS_News.open SQL_News,Conn,1,3

if RS_News("yxrs")>0 then
 RS_News("yxrs")= RS_News("yxrs")-1
 else
  RS_News("yxrs")="0"
 end if
RS_News.update
if RS_News.state<>0 then
    RS_News.close
End if
Set RS_News=Nothing
str="退课成功！"
url="wdkc.asp"
MsgShow str,"1",url  
call CloseDatabase()
response.end
%>
一个下拉列 表，选 择了某个系点击确定后直接进入那个系的课程。可是点击确定以后数据没出来

有谁肯帮我修改下？

[ 本帖最后由 jessicecat 于 2010-9-16 20:08 编辑 ]