Ciao a tutti,

sto facendo delle prove sulla possibilā di inserire record multipli utilizzando un form con dei campi dinamici e una query che inserisca i dati, per quanto riguarda l'INSERT non ho avuto problemi mentre per l'UPDATE mi continua a dare errore:

Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione UPDATE

vi posto il codice del form e della query


codice:
FORM -------------------------

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Pratiko\mdb-database\PROVA1.mdb;"
%>

<form method="POST" action="InserisciProva2.asp">
<table border="0" width="50%" id="table1" cellspacing="1" cellpadding="0">
		
<%
Set RS=Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM PROVA1"
set Rs=Conn.execute(Sql)	
Sql2 = "SELECT COUNT(*) AS CONTA FROM PROVA1"
set Rs2=Conn.execute(Sql2)
CONTA = Rs2("CONTA")		
%>
<% 
for i = 1 to CONTA
if Rs.Eof = true then exit for
%> 
<tr>
<td width="500">
<input type="text" name="CODICE<%=i%>" size="4" style="border: 1px solid #000000" value="<%=RS("ID")%>">
<input type="text" name="NOME<%=i%>" size="20" style="border: 1px solid #000000" value="<%=RS("NOME")%>">
<input type="text" name="COGNOME<%=i%>" size="20" style="border: 1px solid #000000" value="<%=Rs("COGNOME")%>">
</td>
</tr>
<%
Rs.MoveNext
next
%>
</table>
<p style="margin-top: 0; margin-bottom: 0">
<input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
<input type="hidden" name="CAMPI" value="<%=CONTA%>">
</form>
</body>
</html>



codice:
QUERY-------------------------

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Pratiko\mdb-database\PROVA1.mdb;"

intNumForm = Request("CAMPI")
	For i=1 to intNumForm 
		Codice = request("CODICE"&i&"")     'campo testo
		Nome = request("Nome"&i&"")         'campo testo
		Cognome = request("Cognome"&i& "")  'campo testo
		
		SQL = "UPDATE PROVA2 SET NOME = '"&NOME&"', SET COGNOME = '"&COGNOME&"', WHERE ID = '"&CODICE&"'"
		Set RS = Conn.Execute(SQL)

	Next
Conn.Close
Set Conn = Nothing

%>

ATTENZIONE ! il campo ID del Database Access č un campo testo


Sono nelle vostre mani ..