Skapa 3 kopior i aspjpeg?

Fixade själv tillslut - lade till det som är i fet txt
Denna kod fungerar bra, men hur gör jag för att också skapa en fil 'main.jpg' på 350px width - i tillägg till originalen och thumben?

<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim intCount
   intCount=0
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
         'file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)
		          file.SaveAs(Server.MapPath(mySmartUpload.Form("map")& "/" & file.FileName))

         ' sample with a physical path 
         ' file.SaveAs("c:\temp\" & file.FileName)
mappa = file.FileName
      '  Display the properties of the current file
      '  ******************************************
         Response.Write("Name = " & file.Name & "<BR>")
         Response.Write("Size = " & file.Size & "<BR>")
         Response.Write("FileName = " & file.FileName & "<BR>")
         Response.Write("FileExt = " & file.FileExt & "<BR>")
         Response.Write("FilePathName = " & file.FilePathName & "<BR>")
         Response.Write("ContentType = " & file.ContentType & "<BR>")
         Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
         Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
         Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
         intCount = intCount + 1
      End If
   Next

'  Display the number of files which could be uploaded
'  ***************************************************
   Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " file(s) uploaded.<BR>")
   
   Set Jpeg = Server.CreateObject("Persits.Jpeg")

Path = Server.MapPath(mySmartUpload.Form("map")) & "/" & mappa
Jpeg.Open Path

	' New width
L = 100

' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

Jpeg.Save Server.MapPath(mySmartUpload.Form("map")) & "/th_main.jpg" 
[B]Path = Server.MapPath(mySmartUpload.Form("map")) & "/" & mappa
Jpeg.Open Path

' New width
L = 350

' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

Jpeg.Save Server.MapPath(mySmartUpload.Form("map")) & "/main.jpg"[/B]
%>