Upload di sei files contemporaneamente

[[trodat]]

Buongiorno a tutti.

Con la ricerca ho trovato un codice per fare l'upload di più files simultaneamente; in effetti il codice funziona bene se invio massimo due files al server, al contrario se ne invio più di due (nel mio caso dovrebbero essere sei) lo script va in errore:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: '2'

arr_file(cont) = File.FileName

Questo è l'array utilizzato:

Dim File, DestFileName
  dim arr_file(1)
  cont = 0
  For Each File In Form.Files.Items
		If Len(File.FileName) > 0 Then
        DestFileName = GetUniqueFileName(File.FileName, DestinationPath)
        DestinationFileName = DestinationPath & File.FileName
        response.write DestinationFileName &"
"        
        File.SaveAs DestinationPath & "\" & DestFileName
        a = virtDestinationPath & File.FileName
        response.write a &"
"
        arr_file(cont) = File.FileName
        cont = cont +1
	  End If
  Next

Sapete aiutarmi?
Vi ringrazio.