اين الخطاء في هذا؟

الاخوه حياكم الله:

من خلال هذا الكود يقوم المستخدم بتغير بياناته من اسم ورقم سرى .....الخ

قعند عمليه الربط وعملية التغير قال بان الخطاء في جملة ubdate

ماهو الخطاء فعلا؟

الجزء المهم من الكود هو:

_____________

<%
Temp1=session("userid")
  'اخذ البيانات من الجدول
name=Request.Form("name")
password=Request.Form("password1")
sex=Request.Form("sex")
byear=trim(Request.Form("year"))
bmonth=trim(Request.Form("month"))
bday=trim(Request.Form("day"))
rank=Request.Form("rank")
job=Request.Form("job")
address=Request.Form("address")
if address="" then 
 address="غير صحيح"
end if
postnum=Request.Form("postnum")
if postnum="" then 
 postnum=0
end if
email=Request.Form("email")
question=Request.Form("question")
answer=Request.Form("answer")
birdate=byear&"年"&bmonth&"月"&bday&"日"
'عملية تغير البيانات

set Conn=server.createObject("ADODB.Connection")
ps="provider=microsoft.jet.OLEDB.4.0; data source="
ps=ps & server.MapPath("aspdata.mdb")
conn.open ps

 	set rs=server.createobject("ADODB.Recordset")


  set renew= Server.CreateObject("ADODB.Connection")
   renew.Open ps
   Renewstr = "UPDATE register SET name='"&name&"',"&"birdate='"&birdate&"',"&"password='"&password&"',"&"sex='"&sex&"',"&"rank='"&rank&"',"&"job='"&job&"',"&"address='"&address&"',"&"postnum='"&postnum&"',"&"email='"&email&"',"&"question='"&question&"',"&"answer='"&answer&"'where userid='"&Temp1&"'" 
    renew.execute(Renewstr)
   renew.close

'ربط ADO

set Conn=server.createObject("ADODB.Connection")
ps="provider=microsoft.jet.OLEDB.4.0; data source="
ps=ps & server.MapPath("aspdata.mdb")
conn.open ps

 	set rs=server.createobject("ADODB.Recordset")


    SQLstr = "SELECT * FROM register where userid='"&Temp1&"'"
    Set rs2 = Conn2.Execute(SQLstr)
%>