Il ciclo riportato dura 1min x 10 record, considerando che deve elaborare 1500 record il conto è subito fatto durerà 150 minuti!!!VVoVe:


' apro connessione ACCESS e creo RS_ADB circa 1500 record
' apro connessione AS400 e creo AS400File_rs circa 28000 record

codice:
do while NOT Rs_ADB.EOF
  	Acodice=Rs_ADB(0)
'	Response.Write ("Codice da Access= ") & Acodice & "</br>"
'------parte AS400-----------------		
	  	If (Err.Number = 0 ) Then
	   	 While NOT AS400File_rs.EOF
		 	 appo=AS400File_rs(0)
		 	 	If appo=Acodice Then
'				 Response.Write ("Codice da AS------------------------= ") & appo & "</br>"
				 Adesc=AS400File_rs(1)
'				 Response.Write ("Descrizione da AS------------------------= ") & Adesc & "</br>"
				 Sql1="UPDATE Tb_Fabbisogno SET desccod='"&Adesc&"', flag1='"&Aflag&"' WHERE codice='"&appo&"'"
	   	     	 Conn.execute Sql1
			 	'Else
			    End if
			 AS400File_rs.movenext
     	 Wend
		Else
  	 	     DisplayError AS400Connection, Err.Number, Err.Description, Err.Source, "Main"
	    End If	
	AS400File_rs.movefirst        
	Rs_ADB.movenext
loop
come posso abbassare drasticamente il tempo di esecuzione????