Comment changer la taille d'une image

Bonjour,

je cherche a changer la taille d'une image pour l'enregistrer d'ans un dossier avec une autre taille .
j'ai trouver ce code mais j'ai pas bien compris .

<%
Dim Path, File, rapport

Set ctrl = server.createobject("GflAx.GflAx")
Path = "\\SGG-INTRA-DEV\Sharing\imageserver\RemoteGadgets\PromoLibrary\"
File = Request.QueryString("File2Zip")
If File <> "" Then
File = Replace(File, "ZZZ", "&")
const AX_JPEG = 3
const AX_Tol6Colors = 16

With ctrl
.LoadBitmap Path & File
rapport = 75/ .Width
.Resize 75, .Height * rapport
.Saveformat = AX_JPEG

response.ContentType = "image/jpeg"
response.BinaryWrite .SendBinary
End With
End If
Set ctrl = Nothing
%>

merci pour votre aide

Configuration: Windows XP / Firefox 3.6