SQL写入数据库有问题

<%   
  On   Error   Resume   Next   
  %>   
   
  <!--#include   file=conn_view.asp-->   
  <!--#include   file=lib.asp   -->   
  <META   http-equiv=Content-Type   c>   
  <%   
                  dim   rs,sql,pb,house_ms,bh,email,man,tel,sy_area,house_name,n,zj,bus,qy,telj,xxdz               
   
                  bh=replace(now(),left(now(),2),"")   
  bh=replace(bh,"-","")   
  bh=replace(bh,":","")   
  bh=replace(bh,"   ","")   
                  bh="cz"   &   bh   
   
                  pb=request("pb")   
  pb=replace(pb,"   "," ")   
                  pb=replace(pb,chr(13)&chr(10),"<Br>")   
   
                  house_ms=request("house_ms")   
  house_ms=replace(house_ms,"   "," ")   
                  house_ms=replace(house_ms,chr(13)&chr(10),"<Br>")   
   
              email=request("email")   
      man=request("man")   
      tel=request("tel")   
      sy_area=request("sy_area")   
      house_name=request("house_name")   
      n=request("n")   
      zj=request("zj")   
      bus=request("bus")   
      qy=request("qy")   
                                                      telj=request("telj")   
                                                      xxdz=request("xxdz")   
   
        
   
      fname   =   makefilename(now())     'makefilename为自定义函数     
      folder   =   "html/"&date()&"/"   
      filepath   =   folder&fname   
  sql="select   *   from   [house_hack]"   
  set   rs=server.createobject("adodb.recordset")   
                  rs.open   sql,conn,3,3   
                  rs.addnew   
                    
                  rs("bh")=bh   
                  rs("house_name")=request("house_name")   
  dim   i     
  select   case   request("house_name")   
  case   "房产信息"   
  rs("n")=1   
  case   "车辆信息"   
  rs("n")=2   
  case   "商铺厂房"   
  rs("n")=3   
  case   "征婚交友"   
  rs("n")=4   
  case   "求购信息"   
  rs("n")=5   
  case   "出售信息"   
  rs("n")=6   
  case   "招聘信息"   
  rs("n")=7   
  case   "求职信息"   
  rs("n")=8   
  case   "商务服务"   
  rs("n")=10   
  case   "教育培训"   
  rs("n")=11   
      
  end   select   
   
   
      if   trim(request("address"))=""   then   
            rs("address")="未知"   
      else   
            rs("address")=request("address")   
      end   if   
   
            rs("qy")=request("qy")   
   
      if   request("wylx")=""   then   
            rs("wylx")="未知"   
      else   
            rs("wylx")=request("wylx")   
      end   if   
   
      if   trim(request("sy_area"))=""   then   
            rs("sy_area")="未知"   
      else   
            rs("sy_area")="#"   &   dateadd("d",request("sy_area"),date)   &   "#"   
      end   if   
                    
      if   trim(request("jg_time"))=""   then   
            rs("jg_time")="未知"   
      else   
            rs("jg_time")=request("jg_time")   
      end   if   
   
      if   trim(request("bus"))=""   then   
            rs("bus")="未知"   
      else   
            rs("bus")=request("bus")   
      end   if   
      if   request("zxcd")=""   then   
            rs("zxcd")="未知"   
      else   
            rs("zxcd")=request("zxcd")   
      end   if   
        
   
                  rs("hx")=request("hx")   
                  rs("jz_area")=request("jz_area")   
                  rs("jg")=request("jg")   
   
   
                  rs("sum_floor")=request("sum_floor")   
                  rs("pay")=request("pay")   
                  rs("do_floor")=request("do_floor")   
                  rs("pb")=pb   
                  rs("man")=request("man")   
  rs("sy_area")=request("sy_area")   
                  rs("tel")=request("tel")   
  rs("telj")=request("telj")   
  rs("xxdz")=request("xxdz")   
   
                  rs("email")=request("email")   
  rs("c_filepath")=filepath   
                  rs("house_ms")=house_ms   
                  rs("date")=now()   
  if   session("user_name")="xiao"   then   
        rs("pass")="否"     
  else   
        rs("pass")="是"   
  end   if   
                  rs("zj")=request("zj")   
   
    if   session("adminlogin")   =   "ok"   then   
                  rs("user_id")=session("user_id")   
    end   if   
   
    if   session("zjlogin")   =   "ok"   then   
                  rs("zj_id")=session("zj_id")   
    end   if   
   
   
                  rs.update   
  set   rs2=server.createobject("adodb.recordset")   
  sql="select   *   from   house_hack   order   by   infotime   desc"   
  rs2.open   sql,conn,1,1   
  if   not   rs2.eof   then   
  newsid=rs2("id")   
  end   if   
  rs2.close   
  set   rs2=nothing   
  sql1="select   m_id,m_html   from   c_moban   where   m_id=1"   
  set   rs1=Server.CreateObject("adodb.recordset")   
  rs1.open   sql1,conn,1,1   
  mb_code=rs1("m_html")   
  rs1.close   
  set   rs1=nothing   
  conn.close   
  set   conn=nothing   
  c_title=htmlencode(title)   
  c_content=mcontent   
  mb_code=replace(mb_code,"$cntop$",now())   
  mb_code=replace(mb_code,"$pb$",pb)   
  mb_code=replace(mb_code,"$house_name$",house_name)'分类   
  mb_code=replace(mb_code,"$zj$",zj)'类型   
  mb_code=replace(mb_code,"$house_ms$",house_ms)'内容   
  mb_code=replace(mb_code,"$man$",man)'用户名   
  mb_code=replace(mb_code,"$tel$",tel)'电话   
  mb_code=replace(mb_code,"$email$",email)   
  mb_code=replace(mb_code,"$sy_area$",sy_area)'有效期限   
  mb_code=replace(mb_code,"$date$",date)'发布时间   
  mb_code=replace(mb_code,"$n$",n)'发布时间   
  mb_code=replace(mb_code,"$bus$",bus)'发布时间   
  mb_code=replace(mb_code,"$qy$",qy)'发布时间   
  mb_code=replace(mb_code,"$telj$",telj)'发布时间   
  mb_code=replace(mb_code,"$xxdz$",xxdz)'发布时间   
   
   
   
  Set   fso   =   Server.CreateObject("Scripting.FileSystemObject")   
  fso.CreateFolder(Server.MapPath(folder))   
  Set   fout   =   fso.CreateTextFile(Server.MapPath(filepath))   
  fout.WriteLine   mb_code   
  fout.close   
   
  %>   
   
  <!--#include   file=foot.asp-->   
  <SCRIPT   LANGUAGE=vbscript>   
  <!--   
  msgbox("您所发布的信息已成功提交!")   
  window.top.location.href="../index.asp"   
  -->   
  </SCRIPT>   
  ----------------------------------------   
  这是执行页面,但提示成功,并没提示错误,但数据库里却没有数据,请大家帮忙解决,谢谢