Upload script vill inte funka

Problem med mitt upload script, när jag gör en ny användare får jag detta felmeddelande:
Microsoft VBScript runtime error '800a003a'

File already exists

/katalog/swe/adduser.asp, line 19

Fast det inte stämmer.

<%

'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
       

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'  Upload
'  ******
   mySmartUpload.Upload

dim skapamapp
skapamapp = mySmartUpload.Form("Username")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Skapa.CreateFolder(Server.MapPath("/Katalog/images/" & skapamapp))

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
   intCount = mySmartUpload.Save("/Katalog/Images/" & skapamapp)
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")
%>