sql 数据库更新语句 哪里错了

[heartbreaking2003]

<%
set conn=opendb("oabusy","conn","accessdsn")
sql="select * from wra100 where id=" & request("id")
'sql="select * from wra100"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
%>
<center>

<form method=post name="form1" action="bjwra100.asp?id=<%=rs("id")%>" onSubmit="return checkdata();">
<table border="1" cellpadding="0" cellspacing="0" width="60%">

<tr>
<td align=center>件号/文件号</td><td align=center><input type="text" name="jianhao" size=50 value="<%=rs("jianhao")%>">*</td></tr>
<tr>
<td align=center>状 态</td><td align=center><input name="rdo" type="radio" <% If rs("zhuangtai")="完成" then%> checked="checked" <%End if%> value="完成"/>完成 <input name="rdo" type="radio" <% If rs("zhuangtai")="未完" then%> checked="checked" <%End if%>value="未完"/>未完 </td></tr>
<tr>
<td align=center>问题描述</td><td align=center> <textarea rows="6" name="wentimiaosu" cols="50" ><% =rs("wentimiaosu")%></textarea>*</td></tr>
<tr>
<td align=center>处理情况</td><td align=center><textarea rows="6" name="chuliqingk" cols="50"><%=rs("chuliqingk")%></textarea>*</td></tr>
<tr>
<td align=center>完成日期</td><td align=center><input type="text" name="workdate" size=50 value="<% =rs("wanchengriqi")%>" onFocus="CalendarWebControl.show(this,false,this.value);"></td></tr>
<tr>
<td align=center>领导批示</td><td align=center> <input type="text" name="lingdaoyijian" size=50> </td></tr>


</table>
<input type="submit" name="submit" value="确定修改">
</form>
<% End If %>
<% rs.close %>

</center>


<%
'更新内容
if request("submit")="确定修改" & onsubmit then
jianhao=request("jianhao")
wentimiaosu=request("wentimiaosu")
chuliqingk=request("chuliqingk")
wanchengriqi=request("wanchengriqi")
zhuangtai=request("rdo")
'content=request("content")
'ttime=request("ttime")
set conn=opendb("oabusy","conn","accessdsn")

sql = "UPDATE wra100 Set jianhao=jianhao wentimiaosu=wentimiaosu chuliqingk=chuliqingk wanchengriqi=wanchengriqi zhuangtai=rdo where id= " & request("id")

conn.Execute(sql)
conn.close
End If
%>

哪里错了，更新不了？

[hygs12315]

sql = "UPDATE wra100 Set jianhao=jianhao wentimiaosu=wentimiaosu chuliqingk=chuliqingk wanchengriqi=wanchengriqi zhuangtai=rdo where id= " & request("id")


应该改为：
sql = "UPDATE wra100 Set jianhao='"&jianhao&"' ,wentimiaosu='"&wentimiaosu&"', chuliqingk='"&chuliqingk&"', wanchengriqi='"&wanchengriqi&"', zhuangtai='"&rdo&"' where id= " & request("id")

[月光下的土豆]

用的是谁的系统