Oprette thumb efter upload

Denne kode er fra en billede klasse jeg engang har kodet - den kan håndtere alle mulige forskellige billede komponenter:


    Private sub MakeThumpnail_AspImage(sSourcePath, sTargetPath, iWidth, iMinHeight, iMaxHeight, iBgColor, iQuality)
        dim X, Y, iResizedWidth, iResizedHeight
dim mObjImage
set mObjImage = Server.CreateObject("AspImage.Image")
mObjImage.PadSize = 0
     
      mObjImage.LoadImage(sSourcePath)
     
      mObjImage.ImageFormat = 1
        mObjImage.JPEGQuality = iQuality
        X = mObjImage.MaxX
        Y = mObjImage.MaxY

        If X > iWidth Then
            iResizedWidth = iWidth
            iResizedHeight = (iResizedWidth * Y/X)
            if iResizedHeight > iMaxHeight then
                iResizedHeight = iMaxHeight
                iResizedWidth = round(iResizedHeight * X/Y)
            end if           
        End if

        mObjImage.Resize iResizedWidth, iResizedHeight

        mObjImage.FileName = sTargetPath
        mObjImage.SaveImage

        if iResizedHeight < iMinHeight then
          dim image1   
            Set Image1 = Server.CreateObject("AspImage.Image")
            Image1.PadSize = 0
            Image1.MaxY = iMinHeight
            Image1.MaxX = iWidth
            Image1.BackgroundColor = iBgColor ' vbWhite

            Image1.AddImage mObjImage.FileName, 0, round((iMinHeight-iResizedHeight)/2)
            Image1.FileName = mObjImage.FileName
            Image1.SaveImage
            Set Image1 = nothing
        end if
       
        if iResizedWidth < iWidth then
          dim image2
            Set Image2 = Server.CreateObject("AspImage.Image")
            Image2.PadSize = 0
            Image2.MaxY = iMinHeight
            Image2.MaxX = iWidth
            Image2.BackgroundColor = iBgColor ' vbWhite

            Image2.AddImage mObjImage.FileName, 0, round((iWidth-iResizedWidth)/2)
            Image2.FileName = mObjImage.FileName
            Image2.SaveImage
            Set Image2 = nothing
        end if       
    End sub