Questa è una funzione che numera in automatico un file se questo è già presente sul server:
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


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 ?