I appreciate both pieces of code!  My ISP only supports ASPImage 2.0 at the moment, but I see what you're doing in the prev. message...

May be you can help me with this ASPImage code.  I have placed the following in upload_images.asp, on about line 190-200 (right above the 'post back' statement):

'###################################

Dim Image

Set Image = Server.CreateObject("ASPImage.Image")

Dim intXSize
Dim intYSize
intXSize= 390

Image.LoadImage strFileUploadPath & "strImageName"
Image.FileName = strFileUploadPath & "strImageName"
Image.ImageFormat = 1
Image.JPEGQuality = 60

intYSize = (intXSize / Image.MaxX) * Image.MaxY

Image.ResizeR intXSize, intYSize

Image.SaveImage

Set Image = nothing

'###################################

My file still uploads, but no resizing.  The intYSize should support proportional resizing according to the docs - can anyone help with this?  Again, I am trying to resize uploaded images to 390px wide.

Thanks in advance!

Johnny
http://www.shoost.com/JohnnySlotCar

Look at the code shown below, this load an image using SA File UP then makes two pics of it a bigger and a smaller one.

I have a slightly more complicated sample showing how to use ASPImage to cut off parts of an image, draw a circle, write a text here: http://www.corobori.com/Image.asp

cSizeBigPic=500
cSizeSmallPic=250

sFileName0n = "REG" & lRe_Id & "."   &  Mid(upl.Form("fi_ImageToUpload").UserFilename, InstrRev(upl.Form("fi_ImageToUpload").UserFilename, ".") + 1)   
sFileName1n = Server.Mappath("../Pics") & "\"   & sFileName0n
sFileName0p = "REC" & lRe_Id & "."   &  Mid(upl.Form("fi_ImageToUpload").UserFilename, InstrRev(upl.Form("fi_ImageToUpload").UserFilename, ".") + 1)
sFileName1p = Server.Mappath("../Pics") & "\"   & sFileName0p
         
'on error resume next
'upl.Delete sFileName1
Err=0
          
upl.Form("fi_ImageToUpload").SaveAs sFileName1n
            
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (sFileName1n)

image.GetImageFileSize sFileName1n,iX,iY
                                
if cint(iX) > cSizeBigPic then
    intYSize = (cSizeBigPic / Image.MaxX) * Image.MaxY
 Image.ResizeR cSizeBigPic, intYSize

end if
image.FileName = sFileName1n
   
image.SaveImage
               
image.LoadImage (sFileName1n)

image.GetImageFileSize sFileName1n,iX,iY
                                
if cint(iX) > cSizeSmallPic then
    intYSize = (cSizeSmallPic / Image.MaxX) * Image.MaxY
    Image.ResizeR cSizeSmallPic intYSize

end if
image.FileName = sFileName1p
   
image.SaveImage       &nb sp; 
                            
if Err <> 0 Then 
 sError = err.description  & " " & Err.number & "<BR>"
else
 sSQL = " UPDATE tblMYtable "
 sSQL = sSQL & " SET    Re_ImageSmall ='" & sFileName0p & "', "
 sSQL = sSQL & "        Re_ImageBig ='" & sFileName0n & "' "
 sSQL = sSQL & " WHERE Re_Id = " & lRe_Id
 Set cmdTemp.ActiveConnection = conCorpocas
 cmdTemp.CommandText = sSQL
   
 on error resume next
 cmdTemp.Execute 
 if Err <> 0 Then 
  sError = err.description  & " " & Err.number & "<BR>"
 end if
end if

Has anyone gotten ASPImage 2.0 to work as an uploaded image file resizer?  If so, could you share code?

Thanks in advance - looking for ways to limit my uploaded images to 390px wide.

Johnny