set con = server.CreateObject("ADODB.connection")
set com = server.CreateObject("ADODB.command")
Con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("/saharat/db/database.mdb")
Con.Open
com.ActiveConnection = con
com.CommandText = "UPDATE Province Set Place='" & place & "', Address='" & address & "', Province='" & province & "' WHERE id=" & id
com.Execute
con.Close
Response.Redirect("default1.asp")
%>
</BODY>
</HTML>