求助 Microsoft VBScript 编译器错误 '800a03ea' 语法错误

Microsoft VBScript 编译器错误 '800a03ea'

语法错误

\taobao\myww.asp, line 67

<%
keeper=Replace(Trim(Request.Form("keeper")),"'","''")
action=Replace(Trim(Request.Form("action")),"'","''")
if action="ok" then
  if Replace(Trim(request("code")),"'","''")<>czm then
           Response.Write("<script>alert('操作码错误!');window.location.href='myww.asp';</script>")
         response.End()
  end if
        
Sql = "select count(*) as yu  from   "&jieducm&"_keeper where username='"&session("useridname")&"' and class=1"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,conn,1,1
IF not(Rs.Eof) Then
coun=rs("yu")
end if

if jifei<2000 and coun>=2  then
      Response.Write("<script>alert('2000积分以下，最多可绑定2个店铺!');window.location.href='myww.asp';</script>")
    response.End()
elseif jifei>2000 and jifei<5000 and coun>=4 then
      Response.Write("<script>alert('2000-5000积分，最多可绑定4个店铺!');window.location.href='myww.asp';</script>")
    response.End()
elseif jifei>5000 and jifei<8000 and coun>=8 then
      Response.Write("<script>alert('5000-8000积分，最多可绑定8个店铺!');window.location.href='myww.asp';</script>")
    response.End()
elseif jifei>9000  and coun>=10 then
      Response.Write("<script>alert('9000积分以上，最多可绑定10个店铺!');window.location.href='myww.asp';</script>")
    response.End()
end if

         
      Set rs=server.createobject("ADODB.RECORDSET")
      rs.open "Select * From "&jieducm&"_keeper where keeper='"&keeper&"'" ,Conn,3,3  
      if rs.eof then
        rs.addnew
        rs("username")=session("useridname")
        rs("keeper")=keeper
        rs("now")=now()
        rs("class")=1
        rs.update
        rs.close
         Response.Write("<script>alert('绑定成功!');window.location.href='myww.asp';</script>")
         response.End()
     else
          Response.Write("<script>alert('此帐号已被其它用户绑定!');history.back();</script>")
         response.End()
     end if
end if

elseif action="del" then
id=request.QueryString("id")
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "delete  from "&jieducm&"_keeper where id="&id&" and username='"&session("useridname")&"'",conn,3,3
rs.close
Response.Write("<script>window.location.href='MyWw.asp';</script>")
response.End()
end if
%>
   


这段代码是我添加的
elseif action="del" then        '问题出在这一行。求大神教教吧
id=request.QueryString("id")
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "delete  from "&jieducm&"_keeper where id="&id&" and username='"&session("useridname")&"'",conn,3,3
rs.close
Response.Write("<script>window.location.href='MyWw.asp';</script>")
response.End()
end if