sos，请路过的各位帮帮忙。

Microsoft   VBScript   运行时错误   错误   '800a01b6'     
   
  对象不支持此属性或方法:   'execute'     
   
  /cj3.asp，行   20     
   
   
  出错代码如下：   
  <%   
  dim   sql,tmp   
  Set   rs=   Server.CreateObject("ADODB.Recordset")   
  if   request.form("ab")=3   then   
        'sql="update   goods   set   xy='xy-3'     where   id=   '"&Session("lsid")&"   '"   
      '   rs.execute(sql)   
   
  set   rs=server.CreateObject("adodb.recordset")   
  sql="update   manager   set   xy=xy-3,   where   id=   '"&Session("lsid")&"   '"   
  rs.execute(sql)   
   
   
  else     
   
    if   request.form("ab")>=8   then   
        sql="update   goods   set   xy=xy-8     where   id=   '"&Session("lsid")&"   '"   
          rs.execute(sql)   
    else   
        sql="update   goods   set   xy=xy-5     where   id=   '"&Session("lsid")&"   '"   
        rs.execute(sql)   
    end   if   
      
  end   if   
   
  %>   
   
  conn.inc数据库连接文件：   
  <%     
  option   explicit     
  dim   conn,db,rs   
  db="data   k.mdb"     
  Set   rs   =   Server.CreateObject("ADODB.Connection")     
  conn="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   Server.MapPath(""&db&"")     
  rs.Open   conn     
  %>