Código:
Disponemos de otro componente para el tratamiento de imagenes que te permite redimensionar imagenes y obtener las propiedades de las mismas. Te envio a continuación 2 ejemplos de su utilización por si os pudiera servir: 1.- Obtiene dimensiones de una imagen <% Response.Buffer = true dim obImgEngine dim obImage set obImgEngine = Server.CreateObject("SOFTOMATIX.ChartEngine") strImgFile = Server.MapPath("imagenes/cabecera.jpg") 'response.write strImgFile set obImage = obImgEngine.GetImageSize(strImgFile) Response.Write("Width: " & obImage.Width) Response.Write("<br>") Response.Write("Height: " & obImage.Height) %> 2.- Redimensiona una imagen <% Response.Buffer = true dim obImgEngine dim obImage on error resume next set obImgEngine = Server.CreateObject("SOFTOMATIX.ChartEngine") strImgFile = Server.MapPath("CD001.jpg") strDestFile = Server.MapPath("CD001_th.jpg") respuesta=obImgEngine.CreateThumbnail(strImgFile, strDestFile, 30, 30, 1) if err<>0 then Response.Write err.description else response.write "Imagen redimensionada correctamente" end if %>