Ciao a tutti vovelo attraverso uno script aggiornare delle

tabelle di MSAccess; ho provato però non funziona, chi sa aiutarmi in merito?allego il

codice per maggior chiarezza


<%@ Language=VBScript %>

<%

Dim adoCon, objRS, strSQl


'Istanzio l'oggetto Connection
'Set adoCon = Server.CreateObject("ADODB.Connection")

Set adoCon = CreateObject("ADODB.Connection")

'apertura connessione
adoCon.Open = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="c:\d ataEntry\public\Dati\Gestione_Distributori.mdb";Pe rsist Security Info=False";"


'select
strSQl = "insert into BT_domestici_r select * from BT_domestici"


'definizione oggetto recorset
'Set objRS = Server.CreateObject("ADODB.Recordset")

Set objRS = CreateObject("ADODB.Recordset")


objRS.execute strSQl, adoCon, 1


'chiusura del recorset
objRS.Close

'elimino l'oggetto recorset
Set objRS = Nothing


'chiusura oggetto connessione

adoCon.Close
Set adoCon = Nothing
%>


grazie mille

giuseppe