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