Modifico così:
codice:
Dim gFS
Function GetUniqueFileName(SaveFiles)
  if IsEmpty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")

  Counter = 1
  NewFileName = SaveFiles
  
  response.write NewFileName &" qui
"
  
  if gFS.FileExists("d:\inetpub\...\"& NewFileName &"") then
		Do 
			Counter = Counter + 1
			NewFileName = Counter & "-" & SaveFiles
            response.write NewFileName &" qua
"
		Loop while gFS.FileExists("d:\inetpub\...\"& NewFileName &"")
  end if
  GetUniqueFileName = NewFileName
  End Function


function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    
	If Err.Number<>0 then Exit function
	
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = ""
        for each fileKey in Upload.UploadedFiles.keys


            SaveFiles = SaveFiles & GetUniqueFileName(Upload.UploadedFiles(fileKey).FileName)

response.write SaveFiles &"
" 

else
        SaveFiles = "KO"
    

end if
end function
I vari response.write restituiscono:
test.csv qui
2-test.csv qua
2-test.csv
Ma sul server si carica sempre test.csv e non 2-test.csv

Perchè???