粉面搭档是用什么做的:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
Modify_User.asp, 第 37 行

源码:
<!-- #include file="../conn/conn.asp"-->
<%
'================================================================================
'名 称：保存用户
'功 能：保存修改了的用户信息。
'创建日期：2001年03月16日
'作 者：kitty
'最后更新：2003年04月17日
'更新作者：kitty
'版 权：kitty
'================================================================================

'Set obj = Server.CreateObject("LyfUpload.UploadFile")

'obj.extname="gif,jpg,bmp"

set myfileobject=server.CreateObject("scripting.filesystemobject")

mypath=server.MapPath("../")

mypathnew=mypath+"/Sysmana_02022005/photos"

if myfileobject.FolderExists(mypathnew) then

'id= Obj.request("id")

'SurName=obj.Request ("surname")
Name=" "
userName=SurName
'yxbh=obj.Request("yxbh")
'UserMemo=obj.request("usermemo")
'ZhZt = Obj.Request("ZhZt")
Set Rs = createobject("ADODB.RecordSet")

strQ="select SurName,Jysbh,UserName,Name,Password,yxbh,UserMemo,UserPicture,ZhZt from UserTable where [DAV:id]="& id

Rs.Open strQ, conn,3,2
rs.fields("SurName")=trim(Surname)
rs.fields("UserName")=trim(UserName)
rs.fields("Name")=trim(Name)
rs.fields("Password")=(obj.Request("password"))
rs.Fields("yxbh") =yxbh
rs.fields("Jysbh")=(obj.Request("Jysbh"))
Rs.Fields ("UserMemo") = Trim(UserMemo)
Rs.Fields("ZhZt") = ZhZt

if instr(obj.request("userpicture"),"\") < 1 then
else
aa=obj.SaveFile("userpicture",""&mypathnew&"",false)
FileNames=split(obj.request("userpicture"),vbcrlf)
UserPicture=myfileobject.GetFileName( replace(FileNames(0),"""",""))
rs("UserPicture")=UserPicture
end if
'on error resume next
Rs.Update
'response.write err.description
'response.end
set rs=nothing

Response.Write "<script>alert('用户信息保存成功!')</script>"
Response.Write "<script>javascript:opener.location.reload()</script>"
Response.Write "<script>window.close()</script>"
else
myfileobject.CreateFolder mypathnew
end if

%>
请给出具体解决的方法,谢谢