vale, funciona!!
me has salvado. Ahora lo estoy intentando enganchar para tratar imagenes con aspjpeg, pero no se engancharlo bien, por la ruta tambien:
Código asp:
Ver original<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
on error resume next
Upload.SaveVirtual "upload"
response.write err.description
Set File = Upload.Files(1)
' Is this a valid image file?'
If File.ImageType <> "UNKNOWN" Then
' Create instance of AspJpeg object
Set jpeg = Server.CreateObject("Persits.Jpeg")
' Open uploaded file
jpeg.Open "upload"
' Resize image according to "scale" option.
' We cannot use Request.Form, so we use Upload.Form instead.
jpeg.Width = 200
jpeg.Height = jpeg.OriginalHeight * 200 / jpeg.OriginalWidth
SavePath = Path & "\small_" & File.ExtractFileName
' AspJpeg always generates thumbnails in JPEG format.
' If the original file was not a JPEG, append .JPG ext.
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath