01.<%
02. Dim Conn,strSQL,objExec
03. Set Conn = Server.Createobject("ADODB.Connection")
04. Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
05. strSQL = "UPDATE customer SET "
06. strSQL = strSQL&"CustomerID = '"&Request.Form("txtCustomerID")&"' "
07. strSQL = strSQL&",Name = '"&Request.Form("txtName")&"' "
08. strSQL = strSQL&",Email = '"&Request.Form("txtEmail")&"' "
09. strSQL = strSQL&",CountryCode = '"&Request.Form("txtCountryCode")&"' "
10. strSQL = strSQL&",Budget = '"&Request.Form("txtBudget")&"' "
11. strSQL = strSQL&",Used = '"&Request.Form("txtUsed")&"' "
12. strSQL = strSQL&"WHERE CustomerID = '"&Request.QueryString("CusID")&"' "
13. Set objExec = Conn.Execute(strSQL)
14. If Err.Number = 0 Then
15. Response.write("Save Done.")
16. Else
17. Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
18. End IF
19. Conn.Close()
20. Set objExec = Nothing
21. Set Conn = Nothing
22.%>
