File.Image Type

[emajesus]

Ahhhhhhhhhhhhh!

¿Y esto por qué no me funciona?

Llevo más de 8 horas sentado para hacer un Upload con mensajes de error y no hago más que recibir eso: MENSAJES DE ERROR ... el maldito mensaje 500.




<%
Set Upload = Server.CreateObject("Persits.Upload.1")


Upload.OverwriteFiles = False


' Intercept all exceptions to display user-friendly error
On Error Resume Next


' Limit file size
Upload.SetMaxSize 20000, True


Upload.Save "attachfile"


If Err.Number = 8 Then
Response.Write "<font color=red><b>+ 50KB</b></font><br>"
End If

' Process all files received
For Each File in Upload.Files

Ext = UCase(Right(File.Path, 3))
If Ext <> "GIF" and Ext <> "JPG" Then
Response.Write "<font color=red><b>¡GIF o JPG sólo!</b></font><br>"
File.Delete
Exit For
End If


%>