Problema con rinominare file

[fraude]

Questa è una funzione che numera in automatico un file se questo è già presente sul server:

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


response.write arr_file(0) &"
"
response.write arr_file(1) &"
"

SQL = "INSERT INTO MENSILE (preventivo, consuntivo) VALUES ('"&arr_file(0)&"', '"&arr_file(1)&"')"

Perchè pur rinominando il file sul server, nel db si scrive sempre il nome originale del file ?

Ad esempio carico per la prima volta il file tabella.xls; lo ricarico una seconda volta sul server troverò 2-tabella.xls, invece nel db trovo sempre tabella.xls.

Dove sbaglio ?

[fraude]

nessuna idea ?

[orcim]

Prova così:

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 & DestFileName
        File.SaveAs DestinationPath & "\" & DestFileName
        a = virtDestinationPath & DestFileName
        arr_file(cont) = DestFileName
        cont = cont +1
	  End If


SQL = "INSERT INTO MENSILE (preventivo, consuntivo) VALUES ('"&DestFileName&"', '"&DestFileName)&"')"

  Next

[fraude]

Ecco la giusta soluzione (ai posteri e per la ricerca... )

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 & DestFileName
        File.SaveAs DestinationPath & "\" & DestFileName
        arr_file(cont) = DestFileName
        cont = cont +1
	        End If
Next



SQL = "INSERT INTO MENSILE (preventivo, consuntivo) VALUES ('"&arr_file(0)&"', '"&arr_file(1)&"')"