更新数据的问题~

[mwmwmw]

dim sql
sql="update tbl_house set HMark='" & HMark & "',EndDate='" & EndDate & "',HSection='" & HSection & "',HAddress='" & HAddress & "',HFloor='" & HFloor & "' ,HDate='" & HDate & "',HType='" & HType & "',Area='" & Area & "',Price='" & Price & "',PersonName='" & PersonName & "',Tel='" & Tel & "',PersonEmail='" & PersonEmail & "', Remark='" & Remark & "' where HouseID ='" & TitleID & "'"
set rs = objDB.execute(sql)
objDB.Close
这个语句提示有错误，对的应该怎样写哩？
请高手给我指点指点啊~

[mwmwmw]

HMark= trim(request.Form("mark"))
EndDate = trim(request.Form("eyear")+"-"+request.Form("emonth")+"-"+request.Form("eday"))
HSection = trim(request.Form("section"))
HAddress = trim(request.Form("address"))
HFloor = trim(request.Form("louceng"))
还有这些参数我忘了给了，呵呵~

HDate= trim(request.Form("year")+"-"+request.Form("month")+"-"+request.Form("day"))
HType= trim(request.Form("type"))
HArea = trim(request.Form("area"))
HAge = trim(request.Form("age"))
HPrice = trim(request.Form("price"))
PersonName= trim(request.Form("name"))
Tel = trim(request.Form("phone"))
PersonEmail = trim(request.Form("email"))
Remark = trim(request.Form("meno"))