<% ' Se crea el objeto Set Jpeg = Server.CreateObject("Persits.Jpeg") ' Se carga la imagen a transformar Jpeg.Open Server.MapPath("/ejemplos/asp/test.gif") ' Nuevo largo L = 100 ' Se indican los nuevos valores Jpeg.Width = L Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth 'Se guarda la nueva imagen Jpeg.Save Server.MapPath("/ejemplos/asp/test_small.gif") %> Imagen original: (/ejemplos/asp/test.gif)


Imagen modificada: (guardada en /ejemplos/asp/test_small.gif)