salve, ho trovato in rete questo codice

<%
Dim myImg, w, h, maxw, maxh, myw, myh

maxw = 200 ' Larghezza massima
maxh = 100 ' Altezza massima

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

' Carico l'immagine originale (da ridimensionare)
' specificando il giusto percorso
MyImg.LoadImage server.MapPath("/pics") & "/" & filenameNEW & ""

' Recupero le dimensioni originali dell'immagine caricata
w = MyImg.MaxX
h = MyImg.MaxY

' Faccio un po' di calcoli per individuare il rapporto da utilizzare
' nel processo di miniaturizzazione
if (w/maxw) > (h/maxh) then
k = w/maxw
else
k = h/maxh
end if

' definisco la nuove dimensioni dell'immagine
myw = CInt(w/k) ' Larghezza miniatura
myh = CInt(h/k) ' Altezza miniatura

' 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 = server.MapPath("/pics/thumb") & "/T_" & filenameNEW & ""

myimg.ImageFormat = 1
myimg.JPEGQuality = 90
myimg.saveimage

if myImg.SaveImage then

Response.Write "<img src='http://www.miosito.com/pics/thumb/T_" & filenameNEW & "'>"

else
' se si è verificato un errore nel salvataggio dell'immagine
' stampo a video il relativo messaggio
Response.Write "Si è verificato un errore!"
end if


' Faccio pulizia
Set MyImg = nothing

il problema è che il file mi viene scritto correttamente, cioè nella directory io vedo il file creato, ma questo file è di dimensioni 0 byte.

Potete aiutarmi a capire cosa manca ?