Resize med AspImage - hvorfor er det gemte billede hvidt

Jeg har lavet sub der tager et AspImage objekt, indlæser et image fra disk, resizer og gemmer igen - men det gemte, ændrede billede er hvidt? Nogen gode ideer?

Koden er her

'****************************************************************************
'load - resize - save
'****************************************************************************
Sub DoTheImage(objImage, intNewWidth, strLoadFileName, strSaveFileName, intWidth, intHeight)
    ' visualcoder.dk 090903
    ' this sub loads an image from diskfile
    ' resizes the image maintaining aspect ration
    ' and saves the image back to disk
    ' parameters
    '                        objImage - an active AspImage object
    '                        intNewWidth - the new width to resize to
    '                        strLoadFileName - absolute path to image file
    '                        strSaveFileName - absolute path to image file
    '                        intWidth - the current width
    '                        intHeight - the current height
           
    ' new image height used in the resizing
    Dim intNewHeight
     
  'set some properties
    'remove pads around image
    objImage.PadSize = 0
   
    'MaxX and MazY
  objImage.MaxX = intHeight
  objImage.MaxY = intWidth
 
  'imageformat to jpg
  'objImage.ImageFormat = 1

    'set the save filename
    objImage.FileName = strSaveFileName
   
    'load image from disk
    'check for errors loading file
    if not(objImage.LoadImage (strFileName)) then
        'write out errormsg and end
        response.write("<class color='red' size='5'>file not found in sub DoTheSize LoadImage - check the filename</class>")
        response.end
    end if
   
    'do the resize
 
  'calculate new height
  intNewHeight = (intNewWidth / Image.MaxX) * Image.MaxY
 
  'resize and resample - can be slow
  objImage.ResizeR intNewWidth, intNewHeight
   
    'save image back to disk
    'check for errors saving file
    if not(objImage.SaveImage) then
        'write out error msg
        response.write("<class color='red' size='5'>could not write file in sub DoTheImage LoadImage - check permissions on folder</class>")
        response.end
    end if

end sub