asp增加修改功能，表中数据传不过来，并且修改不成功，请指教

<%if session("adminadmin")<>true then response.redirect("list.asp") end if%>

function check() { if(document.form1.fbt.value==""){ alert("标题不能为空!"); form1.fbt.focus(); return false; } if(document.form1.fcomtent.value==""){ alert("内容不能为空"); form1.fcomtent.focus(); return false; } }

<%id=request("id")
act=request("act")
if act="save" then
fbt=trim(request("fbt"))
sele_name=trim(request("sele_name"))
se_name=trim(request("se_name"))
userall=trim(request("userall"))
bumeng=trim(request("bumeng"))
fcomtent=trim(request("fcomtent"))
fj=trim(request("fj"))
set rs=server.createobject("ADODB.recordset")
sql = "select * from news where ID="&request("id")
rs.Open sql,conn,1,3
rs("fbt")=fbt
rs("fcomtent")=fcomtent
rs("fj")=fj
rs("sele_name")=sele_name
rs("se_name")=se_name
rs("bumeng")=bumeng
rs("userall")=userall

    rs.update
rs.close
   response.write "<script language=javascript>alert('修改成功！');window.location='list.asp';</script>"

end if
set rs=server.createobject("ADODB.recordset") 
    sql = "select * from news where ID="&id
rs.Open sql,conn,1,1

fbt=rs("fbt")
fcomtent=rs("fcomtent")
fj=rs("fj")

rs.close
%>

修改信息

<%doing=request.querystring("doing")%>

接受方 "list_user_all" then%> 所有人 > target="_blank">　 " end if%> 指定人： 显示所有人 　　　　　请输入收文人单位，多人以半角的“|”符号隔开。 选定人： '超级管理员' and 单位'"&sender&"' order by 序号 ASC" set rs=conn.execute(str) %> "> 文件主题： id="fbt" size="55"/> 文件内容： 添加附件

http://www.myexception.cn/asp/1178004.html