Fejl ved upload

Jeg bruger scriptet: Persits.Upload
Dette virker glimrende men jeg har en lille bøn:

Hvis jeg forsøger at uploade en fil der allerede eksistrer får jeg en script error, hvilket jeg godt kan se.

Jeg ønsker at hvis filnavnen allerede eksisterer så bliver filen renamed til filensnavn efterfulgt af tallet 1.

Hvis denne fil også eksisteret skal filen renames til filnavnet efterfulgt af tallet 2 osv.

Her er scriptet.

Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\websider\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