Thumbnails med ASPImage

Dim objImage, xWidth, xHeight
Set objImage = Server.CreateObject("ASPImage.Image")
    '// Ladda in bild
    objImage.LoadImage(Server.Mappath("bilder/minbild.jpg"))
                
    xWidth = 100 ' bredden på din thumbnail
    xHeight = 100 ' höjden på din thumbnail
                
    If objImage.MaxX < objImage.MaxY Then 
        objImage.ResizeR xHeight, xWidth
    Else 
        objImage.ResizeR xWidth, xHeight
    End If

    '// Spara thumbnail
    objImage.Filename = Server.Mappath("thumbnail/minbild.jpg")
    objImage.SaveImage
Set objImage = Nothing