ASPImage Image Resize Re-Size

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