Il passo che fai di Update sulla tabella T_Anag_Clienti io lo farei in questo modo:
Scorri il record set che hai creato T_Import_Clienti
per ogni record letto nel loop
fai una query per vedere se esiste il record, e se non esiste
lo inserisci...
il codice te lo posto qui sotto
intanto basta una sola connessione anche se hai più dataset di tipo recordset non serve creare conn2 conn3 conn4 etc...
Ciaocodice:Set conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Set RS1 = Server.CreateObject("ADODB.Recordset") SQL="select * from T_Import_Clienti" RS.Open SQL, conn , 3, 3 if not RS.EOF then do until RS.EOF AggiornaClienti(RS) RS.movenext loop end if RS.Close '.... fine aggiornamento Set conn = nothing Set RS = nothing Set RS1 = nothing 'la subroutine la puoi mettere alla fine del file ASP sub AggiornaClienti(RS) 'RS viene passato come recordset in linea SQL1="select * from T_Anag_Clienti where Nome= '" & RS("Nome") &"' and cognome='" & RS("Cognome") &"'" ' attenzione agli apici...nella SQL1 RS1.Open SQL1, conn , 3, 3 if RS1.EOF then RS1.Addnew RS1("nome")=RS(nome") RS1("cognome")=RS("cognome") RS1("comune")=RS("comune") RS1("telefono")=RS("telefono") RS1("cellulare")=RS("cellulare") RS1.Update end if RS1.Close end sub

Rispondi quotando