Helpme with Persist AspUpload and AspJpeg to save and resize an image

I am trying to upload a single file using the AspUpload, to save one image as part of a form with various fields. The ASP portion of the AspUpload its at the end of the execution to be able to get the form field values.

ASP:

      Set Upload = Server.CreateObject("Persits.Upload")
      ' Use AspJpeg to resize image
      Set Jpeg = Server.CreateObject("Persits.Jpeg")
      Upload.Save Server.MapPath("\upload")

            If File.ImageType <> "JPG" Then
                  File.Delete
                  Response.End
            End If
            
            Jpeg.Open (File.Path)
            newWidth = 640
            newHeight = newWidth * Jpeg.OriginalHeight / Jpeg.OriginalWidth

            Jpeg.Width = newWidth
            Jpeg.Height = newHeight
            Jpeg.Quality = 80
            Jpeg.RotateR
            Jpeg.Save Server.MapPath("\upload") & File.ExtractFileName
            varFilename = File.ExtractFileName

Problem:
Image no being resized