Aquí pongo el código de como lo uso yo, esta sentencia lo que hace es cambiar el tamaño de la imágen a una específico y lo pone a 256 colores:
Dim Path, File
Set ctrl = server.createobject("GflAx.GflAx") '<-- Crea el objeto
Path = Server.MapPath("fotos")
File = Path & "\" & NomFichero
const AX_JPEG = 3
const AX_To256Colors = 256
With ctrl
.LoadBitmap File
.ChangeColorDepth AX_To256Colors
newWidth = 240
newHeight = (newWidth * .Height) / .Width ' <-- Datos de la nueva imáge
.Resize newWidth, newHeight '<-- Redimensiona la imágen
.SaveFormat = AX_JPEG 'Save in JPEG format
.SaveJPEGProgressive = True 'Progressive
.SaveJPEGQuality = 100 'Quality of 70%
.SaveBitmap Path & "\small" & NomFichero
NomMuestra = Path & "\small" & NomFichero
end with
'Limpiamos objeto
set up = nothing
set ctrl=nothing
%>
Creo que es bastante sencillo de usar
le cogeréis el truco enseguida, tienes razón Bravenap el enlace estaba erroneo, y fernandowind, a mi la diferencia horario es de 2 horas.
Salu2