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

codice:

<%
	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.....

codice:
<%
	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 !!