条件语句为什么出错

<% bianhao=request("bianhao")
 fs=request("fenshu")
 if bianhao<>"" and fs<>0  then            
              DBPath = Server.MapPath("jsbwsdc.mdb")   
                       Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath   
                       Set rs = Server.CreateObject("ADODB.Recordset")
                             sql="select * from lll"
                            rs.open sql,conn,1,3
                            rs.addnew
                                  rs("bianhao")=bianhao
                                   Userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
                                   If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
                                   rs("ip")=userip
                            Rs.Update
                            rs.close
                            conn.close
                            set rs=nothing
                            set conn=nothing
                  response.write("<font color=red size=4><img src=jsbpost.gif>信息发布成功啦！<a href=index.htm>返回</a>　<a href=find.htm>查询</a></font>")
   else      response.write("<font color=red size=4>请按规定填写完整！（注意：为方便查询管理，节目名称最先填写）<a href=index.htm>返回</a></font>")
  end if
 %>  

 帮我看段代码  为什么当bianhao不为空而fs=0时，程序出错，而不执行else语句呢？,bianhao、fenshu是web页面post过来的值