fra aspimage til asp JPEG

Hejsa,

Jeg har et script som tager et orginalt billeder og laver 3 forskellige størrelser. 800 i længden, 400 i længden og et i 45 i længden, hvor jeg bruger asp image

Nu skal jeg dog have det lavet hvor jeg bruger asp jpeg, og jeg er lidt i tvivl hvordan jeg får det konverteret, uden at miste kvalitet??

    ImageDir = "../../../../upload/collection/"
    ImageIn=server.mappath(ImageDir) &"\"
    ImageOut=server.mappath(ImageDir&"thum") &"\"
    ImageLarge=server.mappath(ImageDir&"large") &"\"
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
    Set objFiles = objFolder.Files
    For Each Image In objFiles
    img = Image.Name
    Set Image = Server.CreateObject("AspImage.Image")
    Image.AutoSize = false
   
' ###################################
    Image.LoadImage(ImageIn& img )
   
    X = Image.MaxX
    Y = Image.MaxY

    If X > 800 Then
        ResizedX = 800
        ResizedY = (ResizedX * Y/X)
    else
        ResizedX = X
        ResizedY = Y
    End if

    Image.Resize ResizedX, ResizedY
   
    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageLarge & img )
    Image.SaveImage

'####################################   

    Image.LoadImage(ImageIn& img )
   
    X = Image.MaxX
    Y = Image.MaxY

    If X > 400 Then
            ResizedX = 400
            ResizedY = (ResizedX * Y/X)
    else
        ResizedX = X
        ResizedY = Y
    End if

    Image.Resize ResizedX, ResizedY
   
    Image.ImageFormat = 1
    Image.JPEGQuality = 100
   
    Image.FileName = (ImageIn & img )
    Image.SaveImage

    Image.LoadImage(ImageIn& img )
   
    X = Image.MaxX
    Y = Image.MaxY

    If X > 45 Then
        ResizedX = 45
        ResizedY = (ResizedX * Y/X)
    else
        ResizedX = X
        ResizedY = Y
    End if

    Image.Resize ResizedX, ResizedY
   
    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageOut & img )
    Image.SaveImage

    Set Image = nothing
    Next
    Set objFS = Nothing