Pues eso, segun la documentacion de ASPULOAD con esto se consigue evitar el envio de ficheros que no sean imagenes al servidor, pero aunque da el error correctamente, la imagen se sube de todas formas, no se como hacer respetar el
response.end
Este es el codigo
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture and save uploaded image
Upload.Save "c:\upload"
For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Write "This is now an image."
Response.End
End If
Response.Write File.Path & "<BR>"
Response.Write "Type: " & File.ImageType & "<BR>"
Response.Write "Size: " & File.ImageWidth & " x " & File.ImageHeight & " pixels"
Next
%>
Podeis encontrarlo tambien en su pagina:
http://www.aspupload.com/manual_image.html