错误，急寻解决办法

我想做的是：另一网页传来参数，在数据库中找到数据后，将值显示在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

是怎么一回事

[823 byte] By [msdn] at [2007-8-14 21:43:09]