Ciao a tutti
devo ridimenzionare delle immagini e salvarle su un server con windows server 2003.
Ho provato sia con Image Resizer e sia con AspImage:

Image Resizer

'Resize delle immagini
Sub ResizeImage(PathOriginal, PathDestination, Width, Height)
dim xml, strImagerDLL, bData, FileName

strImagerDLL = "http://www.MIOSITO.com/cgi-bin/Imager.dll"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "POST", strImagerDLL & "?Image=" & PathOriginal & "&Width=" & Width & "&Height=" & Height, False

xml.Send()
bData = xml.ResponseBody
Set xml = nothing

dim oStream
Set oStream = Server.CreateObject("ADODB.Stream")

oStream.type = 1
oStream.mode = 3
oStream.open
oStream.write bData
oStream.Position = 0

oStream.SaveToFile PathDestination

oStream.Close
Set oStream = Nothing
End Sub

Non esegue SaveToFile

AspImage

'Resize delle immagini
Sub ResizeImage(PathOriginal, PathDestination, Width, Height)
' Dimensiono le variabili
Dim myImg, w, h, maxw, maxh, myw, myh

' Creo l'oggetto
Set myImg = Server.CreateObject("AspImage.Image")

' Carico l'immagine originale (da ridimensionare)
myImg.LoadImage PathOriginal

' Faccio un po' di calcoli per individuare il rapporto da utilizzare nel processo di miniaturizzazione
myw = Width
myh = (myImg.MaxY *Cint(Width))/myImg.MaxX

' Utilizzo il metodo resizer specificando larghezza e altezza
myImg.ResizeR myw, myh

' Salviamo il tutto indicando il percorso fisico ed il nome del nuovo file
myImg.FileName = PathDestination

if myImg.SaveImage then
Response.Write "[img][/img]"
else
Response.Write "Si è verificato un errore!"
end if
' Faccio pulizia
Set myImg = nothing
End Sub

Non accade nulla quando esegue if myImg.SaveImage then

Ho provato a mettere dei response.write dopo SaveToFile e SaveImage, ma non vengono eseguiti.

QUALCUNO PUO' AIUTARMI? ALTRI PROGRAMMI CHE POSSSO USARE?