codice:
<%
dim conn
dim cmd, sql, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
sql="update clienti set localita='" & request.form("localita") & "', immobile='" & request.form("immobile") & "', descrizione='" & request.form("descrizione") & "', mq='" & request.form("mq") & "', prezzo='" & request.form("prezzo") & "', cancellato='" & request.form("cancellato") & "', foto='" & request.form("foto") & "' "
sql=sql & " where id=" & request.form("id")
Conn.Execute(sql)
Conn.Close
set Conn = nothing
%>
Roby