后台管理员加分程序出错，各位帮忙看看

我做的是一个后台管理系统，如果管理员将文章设置推荐或者置顶，就将文章发表者的增加相应的积分，可结果提示：ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/admin/eidt_news.asp, 第 79 行（红色部分）
明明是有记录的，就是运行不了，请各位帮我看看怎么改？


 if  jian1=0 and  request("isjian")=1 then （管理员设置文章为推荐）
      call jia(jian)
    end if
    if  top1=0 and  request("istop")=1 then （管理员设置文章为置顶）

      call jia(top)
    end if

sub jia(action)    （加分程序）
    set rss=server.CreateObject("adodb.recordset")
     rss=conn.execute("select * from users  where username='"&rs("username")&"'")
     score=rss("score")
 
      if rss("leixing")=1 then
       set jf1=server.createobject("adodb.recordset")
       sql3="select jifen_vip from  jifen where sub='"&action&"'"
       jf1.open sql3,conn,1,3
       sql4="update users  set score=(score+'"&jf1("jifen_vip")&"') where  id="&rss("id")
       conn.execute(sql4)
      else
       set jf1=server.createobject("adodb.recordset")
       sql3="select jifen from  jifen where sub='"&action&"'"
       jf1.open sql3,conn,1,3
       ji_fen=jf1("jifen")
       sql4="update users  set  score=(score+'ji_fen') where  id="&rss("id")
       conn.execute(sql4)
      end if
   response.write "<script language='javascript'>"&"alert('已修改成功！');"&"location.href='edit_news.asp?id="&request("id")&"</script>"
   end sub