Function Main()
  Dim rsCustomers
  
  ' Recupero il recordset con i clienti
  Set rsCustomers = CreateObject("ADODB.Recordset")
  Set rsCustomers = DTSGlobalVariables("CustomersData").value

  ' Per ogni cliente recupero i file di log
  With rsCustomers
    Do Until .EOF
      ' Leggo i Log Files di questo cliente
      Call ImportLogsByCustomer(.Fields("Cliente").Value, .Fields("URL").Value, .Fields("ForceImport").Value, .Fields("XpLogFileName").Value)

      ' Analizzo il cliente successivo
      .MoveNext
    Loop
  End With

  ' Distruggo gli oggetti allocati
  rsCustomers.Close
  Set rsCustomers = Nothing

  ' Esco dalla funzione  
   Main = DTSTaskExecResult_Success
End Function