Rinominare file a seguito di upload su server

[wegawhite]

Ciao, sto cercando con scarso successo di rinominare un file dopo l'upload sul server; utilizzo il codice sottoriportato che restituisce quest'errore:

Microsoft VBScript runtime error '800a0046'

Permission denied

/public/index_sql.asp, line 107

Sono su aruba e la cartella public ha tutti i permessi previsti per questo tipo di operazione, ma l'errore è persistente:

test = (server.mapPath("UploadFolder/" & Form("File1").FileName)) 
    response.write test & "
"
    
    Set gFS = CreateObject("Scripting.FileSystemObject")
        if gFS.FileExists (server.mapPath("UploadFolder/" & Form("File1").FileName)) then
        Do
			Counter = Counter + 1
			NewFileName = Form("File1").FileName
			NewFileName = Counter & "-" & NewFileName  
			
			response.write NewFileName & "
"
			
			x = (server.mapPath("UploadFolder/" & Form("File1").FileName))
			y = (server.mapPath("UploadFolder/"& NewFileName &""))

			response.write x & "
"
			response.write y & "
"

			
           Loop while gFS.FileExists (server.mapPath("UploadFolder/"& NewFileName &""))
            gFS.MoveFile (server.mapPath("UploadFolder/" & Form("File1").FileName)),(server.mapPath("UploadFolder/"& NewFileName &""))
  set gFS = nothing
      end if

I response.write restituiscono:

D:\Inetpub\webs\miositocom\public\UploadFolder\tes t.xls
1-test.xls
D:\Inetpub\webs\miositocom\public\UploadFolder\tes t.xls
D:\Inetpub\webs\miositocom\public\UploadFolder\1-test.xls

Dove sbaglio?