SQL update - Errore di sintassi ma non c'è

[satwanted]

Non capisco com' è possibile ma è possibile mi dice errore di sintassi anche ne aggiorno un solo

<%
	Dim SQL, QScodice, NomeCasaProd, Codice, Descrizione, DescEstesa, PrezzoListino, PrezzoRivenditore, PrezzoPromo, importare, esterno, i
	
	Codice = Request.Form("Codice")
	NomeCasaProd = Request.Form("NomeCasaProd")
	
		
	

Descrizione = Request.Form("Descrizione")
DescEstesa = Request.Form("DescEstesa")
PrezzoListino = Replace(Request.Form("PrezzoListino"), ",", ".")
PrezzoRivenditore = Replace(Request.Form("PrezzoRivenditore"), ",", ".")
PrezzoPromo = Replace(Request.Form("PrezzoPromo"), ",", ".")
importare = Request.Form("importare")
esterno = Request.Form("esterno")

		
			i = "UPDATE dispotmp Set DescEstesa = '" & DescEstesa & "', PrezzoListino = " & PrezzoListino & ", PrezzoRivenditore = " & PrezzoRivenditore & ", importare= " & importare & ", esterno = " & esterno & "  WHERE Codice = " & Codice
		
			
		'Set RS = Conn.Execute(SQL)
		'Set RS = Nothing
		Conn.close
		Set Conn = Nothing

	 
	 	
	 
%>
<%=i%>

è una settimana che guardo e ri-guardo sta query ma non ne esco , allora finisco un altro lavorino e BUMM un altra query di update che mi da lo stesso errore di sintassi.
Non sono un fenonmeno, chiaramente, di ASP ma ne avevo gia rifatte delle query semplici.....

<%
	Dim QSID, Cod_Old, Errore, Tipologia, SQL, RS, Codice, Prodotto, PDescrizione, GDescrizione, PFoto,  CPrezzo, RPrezzo, SPrezzo, IVA, GiacenzaInfinita, Giacenza, Offerta, Spedizione, SpeseSpedizione, SCategoria, Categoria, Categorie, Correlati
	
	QSID = Request.Form("ID")
	
	
		Codice = Replace(Request.Form("Codice"), "'", "''")
	

CPrezzo = Request.Form("CPrezzo")
RPrezzo = Request.Form("RPrezzo")
SPrezzo = Request.Form("SPrezzo")

	
	
	Offerta = Request.Form("Offerta")
	
	If Offerta <> "true" Then Offerta = "False"
	
	
	
	
		
			SQL = "UPDATE Prodotti Set Codice = '" & Codice & "', CPrezzo = " & CPrezzo & ", RPrezzo = " & RPrezzo & ", SPrezzo = " & SPrezzo & ", Offerta = " & Offerta & "' WHERE ID = " &  QSID
		
			
		Set RS = Conn.Execute(SQL)
		Set RS = Nothing
		Conn.close
		Set Conn = Nothing

	 
	 	
	 
%>

perfavore mi dite dove sbaglio ??? mi incaxxo (con me stesso)come una bestia quando mi blocco in questa maniera !!

[optime]

fatti stampare la stringa a video e postala

[eliane]

prova così:

sql = "SELECT * FROM dispotmp where Codice =" & Codice


Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

rs("DescEstesa") =DescEstesa
rs("PrezzoListino") =PrezzoListino
rs("PrezzoRivenditore") =PrezzoRivenditore
rs("importare") =importare
rs("esterno") =esterno


rs.update


rs.Close
set rs = Nothing

così il codice difficilmente ha un errore

[Sypher]

nella seconda prova a mettere id fra quadre...la prima boh

[satwanted]

UPDATE dispotmp Set DescEstesa = '', PrezzoListino = 10, PrezzoRivenditore = 11, importare= , esterno = WHERE Codice = 5017A003

Ecco quello che stampa a video

GRAZIE ELIANE PROVERO' COME MI HAI SUGGERITO

mi dice cosi:

# Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query 'Codice =5017A003'.
/test/gest/modifica_db.asp, line 34

# Tipo di browser:
Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1

# Pagina:
POST 88 bytes to /test/gest/modifica_db.asp

# POST Data:
codice=5017A003&PrezzoListino=10&PrezzoRivenditore=11&PrezzoPromo=0&DataPromoDa=0&Go=mod

[optime]

vedi da te che importare e esterno non hanno valore...

[Sypher]

è sbagliata anche la condizione...devi mettere gli apici anche intorno al valore della condizione...io rivedrei il titolo del 3d

[satwanted]

anche se provo a togliere 'importare' ed 'esterno' mi ripropone lo stesso errore


mi faresti un esempio di come devo impostare la condizione ??

GRAZIE

[Roby_72]

i = "UPDATE dispotmp Set DescEstesa = '" & DescEstesa & "', PrezzoListino = " & PrezzoListino & ", PrezzoRivenditore = " & PrezzoRivenditore & " WHERE Codice = '" & Codice &"'"

Roby

[eliane]

' nel primo caso sopra
'questa parte del codice
'questo nomecasaprod,Descrizione,DescEstesa é testo
'fai cosi per non venire errore di '

NomeCasaProd = Replace(Request.Form("NomeCasaProd"), "'", "''")

Descrizione = Replace(Request.Form("Descrizione"), "'", "''")
DescEstesa = Replace(Request.Form("DescEstesa"), "'", "''")

PrezzoListino = Replace(Request.Form("PrezzoListino"), ",", ".")
PrezzoRivenditore = Replace(Request.Form("PrezzoRivenditore"), ",", ".")
PrezzoPromo = Replace(Request.Form("PrezzoPromo"), ",", ".")

' questo importare é numerico??
if Request.Form("importare")="" then
importare =0
else
importare = Request.Form("importare")
end if
'esterno é numerico???
if Request.Form("esterno")="" then
esterno =0
else
esterno = Request.Form("esterno")
end if

'giusto Roby?