update record

[pagineasp2]

salve hoi scirtto questo script per per fare l'update del record ...ma mi da un errore mi potete dare una mano:
Set objconn = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'Cambiare il path del database
strDataBasePath = "/mdb/Gestione_PI_Tickets.mdb"
'------------------------------------------------------------------------------------

'Stringa per la connessione
'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath

objconn.Open cString

cod = request.querystring("cod")
'Se cod non è vuoto allora
IF str_cod <> "" THEN
'Creo un nuovo record set
Set objrs = Server.CreateObject("ADODB.RecordSet")

'Se non ci sono record che accertano l'identita dei dati
'setta la variabile vuota

If objrs.EOF Then
cod = ""
'Se non c'è nessun record allora
Else

sistema = replace(Request.form("sistema")) & "',"
note_anag = replace(Request.form("note_anag")) & "',"
SM_riferimento_nuovo = replace(Request.form("SM_riferimento_nuovo")) & "',"
Presenza_Anagrafica_Cliente_Storica = (Request.form("Presenza_Anagrafica_Cliente_Storica ")) & "',"
PeriodoRetentionLOGOnLlineMesi = replace(Request.form("PeriodoRetentionLOGOnLlineMe si")) & "',"
PeriodoRetentionBackUPDeLOgMesi = (Request.form("PeriodoRetentionBackUPDeLOgMesi")) & "',"
TracciamentoAccessoVisualizzazioneStampaAnagrafica = replace(Request.form("TracciamentoAccessoVisualizz azioneStampaAnagrafica")) & "',"
TracciamentoAccessoUtentiSistema = replace(Request.form("TracciamentoAccessoUtentiSis tema")) & "',"
Referenti = replace(Request.form("Referenti")) & "',"
Descrizione = replace(Request.form("Descrizione")) & "',"
Interfaccia_utenti = replace(Request.form("Interfaccia_utenti")) & "',"
Tipologia_cliente = replace(Request.form("Tipologia_cliente")) & "'"
End If

StrSql="UPDATE t_anagrafica set sistema='"&sistema&"' ,note_anag='"&note_anag&"' ,SM_riferimento_nuovo='"&SM_riferimento_nuovo&"',P resenza_Anagrafica_Cliente_Storica='"&Presenza_Ana grafica_Cliente_Storica&"' ,PeriodoRetentionLOGOnLlineMesi='"&PeriodoRetentio nLOGOnLlineMesi&"' ,PeriodoRetentionBackUPDeLOgMesi='"&PeriodoRetenti onBackUPDeLOgMesi&"',TracciamentoAccessoVisualizza zioneStampaAnagrafica='"&TracciamentoAccessoVisual izzazioneStampaAnagrafica&"' ,TracciamentoAccessoUtentiSistema='"&TracciamentoA ccessoUtentiSistema&"' ,Referenti='"&Referenti&"',Descrizione='"&Descrizi one&"' ,Interfaccia_utenti='"&Interfaccia_utenti&"' ,Tipologia_cliente='"&Tipologia_cliente&"',Descriz ione='"&Descrizione&"' ,Interfaccia_utenti='"&Interfaccia_utenti&"' ,Tipologia_cliente='"&Tipologia_cliente&"' WHERE id="&cod&" "
response.write(StrSql)

'Apro il recordset e eseguo il codice sql
objrs.Open StrSql,cString

End If

'Chiudo
objrs.Close
set objrs = Nothing
%>

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


<%
objconn.close
Set objconn =Nothing
end if
%>
l'errore è il seguente:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/inseirisci_modifica_anagrafica.asp, line 120

[fraude]

La riga dell'errore please.

[pagineasp2]

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/inseirisci_modifica_anagrafica.asp, line 120


riga dell'errore:
objrs.Close linea 120

[optime]

probabilmente - per un gioco di IF - lo stai chiudendo senza averlo aperto

[fraude]

'Chiudo
objrs.Close
set objrs = Nothing 

End If 

%>

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


<%

objconn.close
Set objconn =Nothing 
end if 

%>

[pagineasp2]

mi continua a dare sempre l'errore : Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/inseirisci_modifica_anagrafica.asp, line 120

'Chiudo
objrs.Close

che mai sarà...

[optime]

controlla il giro delle if. indenta bene il codice e vedrai che trovi l'errore