Subir miniatura con aspjpeg pero no como binario

[JuanRAPerez]

Set Upload = Server.CreateObject("Persits.Upload")


' para el progresid
Upload.ProgressID = Request.QueryString("PID")
Path = Server.MapPath("../images/DirectorioMiniaturas/")

Count = Upload.Save

If Count = 0 Then
mensajeupload = "no selecciono ni una imagen."
ColorFondoCelda = "#FF0000"
Response.End
Else

Set File = Upload.Files(1)

Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.OpenBinary( File.Binary )
scale = 80
jpeg.Width = jpeg.OriginalWidth * scale / 100
jpeg.Height = jpeg.OriginalHeight * scale / 100

' guardar la imagen menos pesada
SavePath = Path & "\pequenas\id__" & mivariableID & "__" & File.ExtractFileName

If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If

If UCase(Right(SavePathBase, 3)) <> "JPG" Then
SavePathBase = SavePathBase & ".jpg"
End If

jpeg.Save SavePath

checa ese codigo..

suerte