高手帮看看这段代码什么地方错了

<!--#include file="conn.asp"-->

<%
        dim rs,sql,pb,house_ms,bh

        bh=replace(now(),left(now(),2),"")
    bh=replace(bh,"-","")
    bh=replace(bh,":","")
    bh=replace(bh," ","")
        bh="cs" & bh
    
        pb=request("pb")
    pb=replace(pb," ","&nbsp;")
        pb=replace(pb,chr(13)&chr(10),"<Br>")

        house_ms=request("house_ms")
    house_ms=replace(house_ms," ","&nbsp;")
        house_ms=replace(house_ms,chr(13)&chr(10),"<Br>")
    

    sql="select * from [house_sell]"
    set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("bh")=bh
        rs("house_name")=request("house_name")

  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")=request("sy_area")
  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("tel")=request("tel")

        rs("email")=request("email")
        rs("house_ms")=house_ms
        rs("date")=now()
[color=808080][color=FFFF00][color=00FF00][color=00FFFF][color=FF00FF][color=C0C0C0][color=FF0000]if isnumeric(jz_area)=true and isnumeric(pay)=true then
if Csng(jz_area)<=50 then 
   M="A"
end if 
if 50<Csng(jz_area) and Csng(jz_area)<=70 then 
   M="B"
end if 
if 70<Csng(jz_area) and Csng(jz_area)<=90 then 
   M="C"
end if 
if 90<Csng(jz_area) and Csng(jz_area)<=110 then 
   M="D"
end if 
if 110<Csng(jz_area) and Csng(jz_area)<=150 then 
   M="E"
end if 
if 150<Csng(jz_area)then 
   M="F"
end if 
if Csng(pay)<=8 then 
   J="A"
end if 
if 8<Csng(pay) and Csng(pay)<=10 then 
   J="B"
end if 
if 10<Csng(pay) and Csng(pay)<=12 then 
   J="C"
end if 
if 12<Csng(pay) and Csng(pay)<=15 then 
   J="D"
end if 
if 15<Csng(pay) and Csng(pay)<=20 then 
   J="E"
end if 
if 20<Csng(pay) and Csng(pay)<=25 then 
   J="F"
end if 
if 25<Csng(pay) and Csng(pay)<=30 then 
   J="G"
end if
if 30<Csng(pay) and Csng(pay)<=40 then 
   J="H"
end if 
if 40<Csng(pay) and Csng(pay)<=50 then 
   J="I"
end if 
if 50<Csng(pay) and Csng(pay)<=100 then 
   J="J"
end if 
if 100<Csng(pay) and Csng(pay)<=200 then 
   J="K"
end if 
if 200<Csng(pay) then 
   J="L"
end if         [/color][/color][/color][/color][/color][/color][/color]        
        
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

%>
<% End If %>
<% 
rs.close
set rs=nothing
 %>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("您所发布的信息已成功提交!")
window.top.location.href="../dj_sell.asp"
-->
</SCRIPT>