Fejl ved upload

Er der nogen der kan se fejlen ?

Når jeg uploader et dokument der IKKE eksisterer virker det OK, men eksisterer dokumentet får jeg en script fejl (jeg burde få et fil efterfulgt af (1)

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Count = Upload.Save("c:\websider\service-info.dk\dokumenter\")
set fso = CreateObject("Scripting.FileSystemObject")

Name = Upload.Form("keyword")

For Each File in Upload.Files
    set f = fso.getfile(File.Path)
    extension = fso.Getextensionname(File.Path)
    f.name = (Name) & ".doc" 
    Next