codice:
<%
Dim dbc ' as ADODB.Connection
Dim rsQuery 'as ADOD.Recordset
Dim strSQLAzienda
Dim strArray(4,3)
strArray(0,1) = ("Massimo")
strArray(1,1) = ("Aldo")
strArray(2,1) = ("Flavio")
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;"_
& "Data Source=c:\Inetpub\wwwroot\crm.mdb"
dbc.Open
Set rsQuery = Server.CreateObject("ADODB.Recordset")
nome1 = "Massimo"
strSQLAzienda = "SELECT * FROM tbl_feedback WHERE Nome = nome1"
rsQuery.Open strSQLAzienda, dbc, adOpenKeyset, adLockOptimistic
rsQuery("Nome")= "Gianni"
rsQuery.Update
rsQuery.Close
dbc.Close
%>
mi da:
Tipo di errore:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.
/cambio nome.asp, line 22
..ossia come all'inizio