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
%>
 
 



