AspJpeg og brug af memory frem for open fra webserver

I nedenstående kode (som fungerer perfekt) kan brugeren uploade et billede til min webserver. Billedet uploades først til serveren, derefter hentes det igen for at blive ændert i størrelse til tre forskellige størrelser. Så uploades de tre billeder til webserveren og det originale billede slettes igen derfra.

Det er smart fordi det virker, men det er IKKE smart, hvis det billeder der loades op fylder f.eks. 1.2 Mb. Først skal det loades op, så skal det hentes tilbage igen og endnu engang loades op tre gange. Det går langsomt på en sløv forbindelse, og brugeren tror ikke der sker noget.

Jeg kan læse mig frem til, at man kan hente billedet lokalt, lægge det i memory, bearbejde det der og efterfølgende uploade det / de bearbejdede billeder til webserveren.

Se det vil jo spare tid, og ikke kræve nogen begrænsning af billedets størrelse.

Mit spørgsmål til 100 point er: Hvordan gør man det, hvad skal ændres eller tilføjes ui nedenstående kode for at gøre det ???

************************* KODEN *************************

    'Sæt de absolutte stier på webserveren til virtuel upload
    fotoSti = "FJERNET HER PÅ EKSPERTEN"
    thumbSti = "FJERNET HER PÅ EKSPERTEN"
    profilSti = "FJERNET HER PÅ EKSPERTEN"


    ' Opret et instance af AspJpeg objektet
    Set jpeg = Server.CreateObject("Persits.Jpeg")

    ' Opret et instance af AspmyUpload objektet
    Set myUpload = Server.CreateObject("Persits.Upload")
        myUpload.SetMaxSize 6000000, True

    ' myUpload først til pic biblioteket på serveren
    Count = myUpload.SaveVirtual("/upload/pic/")
   
For Each File in myUpload.Files
        ' fjern uønskede karakterer i fotonavnet
        nytNavn = replace(File.FileName," ","",1,-1,1)
        nytNavn = lCase(nytNavn)
        nytNavn = replace(nytNavn,"æ","e",1,-1,1)
        nytNavn = replace(nytNavn,"ø","o",1,-1,1)
        nytNavn = replace(nytNavn,"å","a",1,-1,1)
        nytNavn = replace(nytNavn,"%20","",1,-1,1)       
        nytNavn = replace(nytNavn,"%","",1,-1,1)
        nytNavn = request.Cookies("login")("id")&"__"&nytNavn

        ' KUN TIL BRUG FOR TEST
        fotoStr = "<img src='upload/pic/"&nytNavn&"' />"
        thumbStr = "<img src='upload/thumbnails/"&nytNavn&"' style='border:1px solid black' />"
        profilStr = "<img src='upload/profiler/"&nytNavn&"' />"
       
        ' Åben det myUploadede billede og ændre størrelsen
        jpeg.Open(File.Path)
        Jpeg.Interpolation = 2
       
        ' Gem i stor størrelse med en bredde på 640 pixel bevar propertioner
        jpeg.width = 640
        Jpeg.Height = Jpeg.OriginalHeight * 640 / Jpeg.OriginalWidth
        Jpeg.Quality = 90
        jpeg.Save (fotoSti&nytNavn)
               
        ' Gem i Profil størrelse på 150 x 210 pixel
        jpeg.width = 150
        Jpeg.Height = 210
        Jpeg.Quality = 60
        jpeg.Save (profilSti&nytNavn)
       
        ' Gem thumbnail med målene 70x70 pixel
        jpeg.Width = 70
        jpeg.Height = 70
        Jpeg.Quality = 70
        jpeg.Save (thumbSti&nytNavn)
       
        'Slet den originale fil fra webserveren
        dim objFilSystem
        Set objFilSystem = Server.CreateObject("Scripting.FileSystemObject")

        set slet = objFilSystem.getfile(server.mappath("upload\pic\" & File.FileName))
        slet.delete
next