<%

set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open(server.mappath("train.mdb"))
sql="update register set "
sql=sql & "user='" & Request.Form("user") & "',"
sql=sql & "country='" & Request.Form("country") & "',"
sql=sql & "cellphone='" & Request.Form("cellphone") & "',"
sql=sql & "email='" & Request.Form("email") & "',"
sql=sql & "fixed='" & Request.Form("fixed") & "',"
sql=sql & "asian='" & Request.Form("asian") & "'"
on error resume next
conn.execute sql,recaffected
if err<>0 then
response.write(sql &" "& err.description & "No update permissionS!")
else
response.write("Record was updated")
end if
conn.close
%>