???

end if
writetodatabase datas
else
errmsgbox(strings)
end if
%>
<%
function writetodatabase(datas)
set objconn = server.createobject("adodb.connection")objconn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("../project.mdb")
strname=request("姓名")
stremail=request("email")sql = "update user  set datas=' " & datas & " 'where 电子邮件='" & session("usersdata")(7,0) & "'"
'on error resume next
set rs = objconn.execute(sql)
response.Redirect "change_finish.asp?姓名="&strname&"&电子邮件="&stremail&""end function