Downloading many files with HttpJob

Sub BotDownload_click
  NomeFile="Dummyi.jpg"
     FileDummy=NomeFile
     job1.Initialize("job1", Me)
    job1.Download(Sito & NomeFile)
End Sub

Sub JobDone(Job As HttpJob)
  Dim C  As String
   Dim rs2  As Cursor
   Dim T  As Long
   Dim sGG, GG, MM, AA As Int, Dt As String 
  
   If Job.Success = True Then
    '--- visualizzo il file
     If NomeFilePrec<>"" AND NomeFilePrec<>FileDummy Then
       If File.Exists (CartellaLocale , NomeFilePrec) Then
        IV.Bitmap = LoadBitmap (CartellaLocale,NomeFilePrec)
         IV.Gravity = Gravity.FILL
         Log ("Visualizzo " & NomeFilePrec)
         TotImg=TotImg+1
         LbTotale.text=CStr(TotImg)&"/"&CStr(NumTotGiteImmagini)
       End If
     End If
    NomeFilePrec=NomeFile
    
     C="SELECT IDEff,Nome,Data FROM TabGite WHERE  IDEff=" & CStr(N)
     rs2 = Main.dbTaccuino.ExecQuery(C)
     If rs2.RowCount > 0 Then
       rs2.Position = 0
       LbGita.Text = rs2.GetString ("Nome")
       DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
       T = DateTime.DateParse(rs2.GetString("Data")) :       sGG=DateTime.GetDayOfWeek(T)-1  :    GG=DateTime.GetDayOfMonth(T)  :       MM=DateTime.GetMonth(T) :       AA=DateTime.GetYear(T)  :      Dt= GG & "/" & MM & "/" & AA
       LbData.Text = Dt
     End If
     rs2.Close
  Dim Out As OutputStream
  Out = File.OpenOutput(CartellaLocale , NomeFile, False)
  Job.GetBitmap.WriteToStream(Out, 100, "JPEG")
  i = i + 1
     NomeFile = CStr(N) & "Pers" & Chr(64+i) & ".jpg" :  NomeFile=NomeFile.Replace ("A","")
  If i < 9 Then 
         Log("A  " & NomeFile & "  " & CStr(Posizione))
  job1.Download(Sito & NomeFile)
     Else
       If N=Ultimo Then
         Msgbox ("Il download delle immagini è terminato","FINE DOWNLOAD")
         If File.Exists (CartellaLocale,FileDummy) = True Then
           File.Delete (CartellaLocale,FileDummy)
         End If
         Activity.Finish
      End If
      
       Posizione=Posizione+1
       rs.Position=Posizione
       N=rs.GetLong("IDEff")
       i=1
      NomeFile = CStr(N) & "Pers" & Chr(64+i) & ".jpg" :  NomeFile=NomeFile.Replace ("A","")
       Log("B " & NomeFile & "  " & CStr(Posizione))
      job1.Download(Sito & NomeFile)
  End If
   Else
    '--- qui si arriva (credo) se di tenta di caricare un'immagine che non c'è, ad esempio
     '  la sesta immagini quando ne esistono solo 4
     '  Quindi si passa al record successivo (Posizione=Posizione+1)
     Posizione=Posizione+1
     rs.Position=Posizione
     N=rs.GetLong("IDEff")
     i=1
    NomeFile = CStr(N) & "Pers" & Chr(64+i) & ".jpg" :  NomeFile=NomeFile.Replace ("A","")
     Log("C " & NomeFile & "  " & CStr(Posizione))
    job1.Download(Sito & NomeFile)
  End If
End Sub

    For N=1302 To 1410
   For i=1 To 8
            S=CStr(N) & "Pers" & Chr(i+64) & ".jpg"
            NomeImmagine=S.Replace ("A","")
            If File.Exists (CartellaLocale,NomeImmagine) = False Then
                Dim iv2 As ImageView
                iv2.Initialize ("")
                links.Put(iv2, Sito & NomeImmagine)
            End If
        Next
    Next

If link = Job.JobName Then
    Dim iv As ImageView = tasks.GetKeyAt(i)
    iv.SetBackgroundImage(bmp)
         S=Job.JobName
         D=sf.InString (S,"ImmaginiPers/")
         F=sf.Mid (S,D+14,S.Length - D -13 )
         Log ("Download : " & F)              
         Dim out As OutputStream
         out = File.OpenOutput(File.DirRootExternal & "/AlpVirData/ImmaginiPers",F,False )
         File.Copy2(Job.GetInputStream, out)
         out.Close
End If