Errore su INSERT/UPDATE

[vpoppa]

Ho scritto il seguente codice:

<%
op = Request.QueryString("Operazione")

codid = Request.Form("Codid")
if len(codid)>0 then codid = server.htmlEncode(codid)
codidobj = Request.Form("Codidobj")
if len(codidobj)>0 then codidobj = server.htmlEncode(codidobj)
den = Request.Form("Denominazione")
if len(den)>0 then den = server.htmlEncode(den)

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("SchedeProgetto.mdb")
set connobj = Server.CreateObject( "ADODB.Connection" )
connobj.Open url_DB

set Rs = Server.CreateObject("ADODB.Recordset")

if (op = "modifica") then
sql = "UPDATE SchedaOBJ SET DENOMINAZIONE='"&den&"' WHERE CODID='"&codid&"' and CODIDOBJ='"&codidobj&"'"
else
sql = "INSERT INTO SchedaOBJ (CODID,CODIDOBJ,DENOMINAZIONE) VALUES ('"&codid&"','"&codidobj&"','"&den&"')"
end if

connobj.execute sql

Rs.close (****)
set Rs = nothing
connobj.close
set connobj = nothing
%>

ma mi da il seguente errore nel punto (****)

ADODB.Recordset error '800a0e78'
L'operazione non è consentita se l'oggetto è chiuso.

Grazie.

VIncenzo

[wallrider]

Per forza, chiudi un oggetto mai aperto

[vpoppa]

Ho tolto RS.close e funziona,
ma se cerco di inserire un dato che contenga le virgolette mi dà il seguente errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query ''aaa &quot;aaa&quot; 'aaa' fine''.

sul comando:

connobj.execute sql


NOTA:
aaa "aaa" 'aaa' fine è la stringa che tento di inserire

[wallrider]

stampati a video la variabile sql e poi postala, please

[maxolino]

Trasforma:

codid = Request.Form("Codid")
if len(codid)>0 then codid = server.htmlEncode(codid)
codidobj = Request.Form("Codidobj")
if len(codidobj)>0 then codidobj = server.htmlEncode(codidobj)
den = Request.Form("Denominazione")
if len(den)>0 then den = server.htmlEncode(den)

In

codid = server.htmlEncode(Replace(Request.Form("Codid"),"' ","''"))
codidobj = server.htmlEncode(Replace(Request.Form("Codidobj") ,"'","''"))
den = server.htmlEncode(Replace(Request.Form"Denominazio ne") ,"'","''"))


Così sostituisci l'apice che ti da errore funzionando.
Inoltre hai tutto su una riga

[vpoppa]

grazie di tutto..

ho risolto.

Vincenzo