Upload Problem mit .SaveAS

[Markus]

Hi Leute möchte mit ASP etwas hochladen:

Vergebe aber mit Save AS einen anderen Namen für die Datei

Mein Problem es wird nun der ursprüngliche und der SaveAS Name hochgeladen - sprich 2 Datein...

WAs mache ich falsch:

%
 Dim mySmartUpload
 Dim intCount
 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.MaxFileSize = 1000

mySmartUpload.AllowedFilesList = "gif,jpg"

' If mySmartUpload.Files.Item("FILE1").Size > 1000 Then
' Response.Write ("Die Datei überschreitet die Maximale Speichergröße von 1000 Bytes")
' Else
' End if

mySmartUpload.Upload

mySmartUpload.Files.Item("FILE1").saveas "/~upload/test." & mySmartUpload.Files.Item("FILE1").FileExt

intCount = mySmartUpload.Save(Server.Mappath("/~upload/"))
 Response.Write(intCount & " Datei(en) hochgeladen")

%>

Danke

MFG
Markus