Update records

[Dirk Pitt]

<%
Dim objConn 
Set objConn= Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("AddressBook.mdb")
objConn.open
' Recupero variabili provenienti da Flash
Notes = request("Notes")
sq_casa = request("sq_casa")
sq_trasf = request("sq_trasf")
id = request("id") 

sqlString = "UPDATE Contacts SET Notes = '" & Notes & "', sq_casa ='" & sq_casa & "' , sq_trasf = '" & sq_trasf & "' WHERE id = " & id

objConn.Execute sqlString

Response.write("insereted=true")

objConn.Close
Set objConn = Nothing

%>