Upload di due file contemporaneamente

[Luis33]

Il problema che ho previsto che se per un caso qualsiasi, si esegue l'upload di un file già presente nella cartella (ossia con lo stesso nome), il nuovo file venga automaticamente rinominato così:

2-stessonomefile.jpg

quando però faccio la query il file che si inserisce è sempre

stessonomefile.jpg

; questo il codice:

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

AUTORE=FORM("AUTORE")
TITOLO=FORM("TITOLO")
CATEGORIA=FORM("CATEGORIA")
TESTO=FORM("TESTO")

DIM ARR_DALFORM_CATEGORIA
ARR_DALFORM_CATEGORIA = split(CATEGORIA, "-")
CATEGORIA0 = ARR_DALFORM_CATEGORIA(0)
CATEGORIA1 = ARR_DALFORM_CATEGORIA(1)

SQL = "INSERT INTO LA_TECNICA(AUTORE, TITOLO, CATEGORIA, ID_CATEGORIA, TESTO, DATA, UPLOAD_COPERTINA, UPLOAD_RIPRODUZIONE) VALUES ('"&AUTORE&"','"&TITOLO&"', '"&CATEGORIA1&"', "&CATEGORIA0&", '"&TESTO&"', #"&NOW&"#, '"&arr_file(0)&"', '"&arr_file(1)&"')"
Conn.Execute(SQL)