modifica record

[pagineasp2]

salve ho scritto lo script per modificare un record ma mi da sempre un errore: questro è lo scirpt
<%

If request.form("sistema") = "" then
campi_OK=false
Msg=Msg & "

1. <span style=font-family:arial;font-size:12px;>Sistema</span>
   

"
end if

If request.form("PeriodoRetentionLOGOnLlineMesi") = "" then
campi_OK=false
Msg=Msg & "

1. <span style=font-family:arial;font-size:12px;>Periodo Retention LOG OnLine Mesi</font></span>
   

"
end if

If request.form("PeriodoRetentionBackUPDeLOgMesi") = "" then
campi_OK=false
Msg=Msg & "

1. <span style=font-family:arial;font-size:12px;>Periodo Retention BackUP De LOg Mesi</span>
   

"
end if

If request.form("TracciamentoAccessoUtentiSistema") = "" then
campi_OK=false
Msg=Msg & "

1. <span style=font-family:arial;font-size:12px;>Tracciamento Accesso Utenti Sistema </span>
   

"
end if

If request.form("TracciamentoAccessoVisualizzazioneSt ampaAnagrafica") = "" then
campi_OK=false
Msg=Msg &"

1. <span style=font-family:arial;font-size:12px;>Tracciamento Accesso Visualizzazione Stampa Anagrafica </span>
   

"
end if


If Campi_OK = false then

response.write "<span style=font-family:arial;font-size:18px;>I campi con l'asterisco sono obbligatori:</span>
"
response.write Msg
%>
</table>
<p align="center"><input type="image" src="precedente.gif" onclick="history.back()"></p>


<%
else
cod=request.querystring("cod")

set objconn = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
objconn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")
SQL= "UPDATE T_anagrafica set"
SQL = SQL & " ("
SQL = SQL & "sistema,"
SQL = SQL & "note_anag,"
SQL = SQL & "SM_riferimento_nuovo,"
SQL = SQL & "Presenza_Anagrafica_Cliente_Storica,"
SQL = SQL & "PeriodoRetentionLOGOnLlineMesi,"
SQL = SQL & "PeriodoRetentionBackUPDeLOgMesi,"
SQL = SQL & "TracciamentoAccessoUtentiSistema,"
SQL = SQL & "TracciamentoAccessoVisualizzazioneStampaAnagrafic a,"
SQL = SQL & "Referenti,"
SQL = SQL & "Descrizione,"
SQL = SQL & "Interfaccia_utenti,"
SQL = SQL & "Tipologia_cliente"
SQL = SQL & ") "
SQL = SQL & "VALUES "
SQL = SQL & " ("
SQL = SQL & "'" & replace(Request.form("sistema"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("note_anag") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("SM_riferimento_nuovo"),"'"," ''") & "',"
SQL = SQL & "'" & replace(Request.form("Presenza_Anagrafica_Cliente_ Storica"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("PeriodoRetentionLOGOnLlineMe si"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("PeriodoRetentionBackUPDeLOgM esi"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("TracciamentoAccessoVisualizz azioneStampaAnagrafica") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("TracciamentoAccessoUtentiSis tema") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Referenti"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Descrizione"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Interfaccia_utenti"),"'","'' ") & "',"
SQL = SQL & "'" & replace(Request.form("Tipologia_cliente") ,"'","''") & "'"
SQL = SQL & ") "
response.write(SQL)
objrs.Open SQL, objconn,1,3

%>
<%
Response.Redirect "visualizza_anagrafica1.asp"
%>


<%

objconn.close
Set objrs =Nothing
Set objconn =Nothing
end if
%>
l'errore è il seguente:
Tipo di errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione UPDATE.
/inserisci_modifica_anagrafica.asp, line 103


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

Pagina:
POST 305 bytes to /inserisci_modifica_anagrafica.asp

POST Data:
sistema=sss&SM+riferimento+nuovo=ss&PeriodoRetenti onLOGOnLlineMesi=ss&PeriodoRetentionBackUPDeLOgMes i=ss&TracciamentoAccessoUtentiSistema=sss&Tracciam entoAccessoVisualizzazioneStampaAnagrafica=ss&Refe . . .
grazie mille

[fraude]

Stampati al query di update e controlla l'esatta configurazione dei campi previsti nel db.

[maximum]

Metti un response.end alla fine:

SQL= "UPDATE T_anagrafica set"
SQL = SQL & " ("
SQL = SQL & "sistema,"
SQL = SQL & "note_anag,"
SQL = SQL & "SM_riferimento_nuovo," 
SQL = SQL & "Presenza_Anagrafica_Cliente_Storica,"
SQL = SQL & "PeriodoRetentionLOGOnLlineMesi,"
SQL = SQL & "PeriodoRetentionBackUPDeLOgMesi,"
SQL = SQL & "TracciamentoAccessoUtentiSistema,"
SQL = SQL & "TracciamentoAccessoVisualizzazioneStampaAnagrafica,"
SQL = SQL & "Referenti,"
SQL = SQL & "Descrizione,"
SQL = SQL & "Interfaccia_utenti,"
SQL = SQL & "Tipologia_cliente"
SQL = SQL & ") "
SQL = SQL & "VALUES "
SQL = SQL & " ("
SQL = SQL & "'" & replace(Request.form("sistema"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("note_anag") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("SM_riferimento_nuovo"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Presenza_Anagrafica_Cliente_Storica"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("PeriodoRetentionLOGOnLlineMesi"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("PeriodoRetentionBackUPDeLOgMesi"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("TracciamentoAccessoVisualizzazioneStampaAnagrafica") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("TracciamentoAccessoUtentiSistema") ,"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Referenti"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Descrizione"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Interfaccia_utenti"),"'","''") & "',"
SQL = SQL & "'" & replace(Request.form("Tipologia_cliente") ,"'","''") & "'"
SQL = SQL & ") "
response.write(SQL)
response.end 
objrs.Open SQL, objconn,1,3