错误，急寻解决办法

[dairy1]

我想做的是：另一网页传来参数，在数据库中找到数据后，将值显示在form中的文本框中
如果用户需要修改，就直接改动文本框，再按提交就可以把文本框中的更新的文字保存回数据库中
源代码如下
<%

dim string
string = request.querystring("string")

set rs=server.createobject("adodb.recordset")
rs.open "select dep_id,depname,updep from dep where dep_id=" & string ,session("conn")

sub updatedept()
if trim(request("t2")) <> "" and trim(request("t1"))<>"" then
dim dname,did
dname= request("t2")
did=request("t1")
dim exsql
exsql="update dep set depname='" & dname & "',did=" & did & " where dep_id=" & string
response.redirect"editdept.asp"
end if

end sub
%>

现在情况是能正常显示，更改了值后，就出现
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'dep_id=' 中。

/qb/doeditdep.asp，行17

是怎么一回事

[dairy1]

<form method="POST" action="doeditdep.asp" onsubmit="updatedept()" name="myform">

<p>ID<input type="text" name="T3" size="20" value ="<% =rs(0)%>"><br>
<br>
部门名<input type="text" name="T2" size="50" value ="<% =rs(1)%>"></p>
<p>上级部门ID<input type="text" name="T1" size="45" value ="<% =rs(2)%>"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>

[xutao888]

set rs=conn.execute("select dep_id,depname,updep from dep where dep_id=" & string &"")

[dairy1]

好象没改变，对了
我的那句exsql是用
session("conn").execute exsql
上面程序漏了

[itzhiren]

exsql="update dep set depname='" & dname & "',did=" & did & " where dep_id=" & string
这一句里面的string为空

[asp120]

string 为关键词, 换成其它变量名