A ver si así tengo más suerte.
Deseo que si el tamaño es excesivo, aparezca un pequeño mensaje de error (no en una ventana de diálogo, sino en el texto, como en el caso de las imágenes GIF o JPG).
Os adjunto el código:
<HTML>
<BODY>
<%
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 to 20000 bytes, throw an exception if file is larger
Upload.SetMaxSize 20000, True
Upload.Save "attachfile"
For Each File in Upload.Files
Ext = UCase(Right(File.Path, 3))
If Ext <> "GIF" and Ext <> "JPG" Then
Response.Write "" & File.Name & " no es un archivo válido"
File.Delete
End If
Next
%>
<P>
<%
For Each File in Upload.Files
Response.Write File.Name & " [" & File.Name & ", " & File.Size &" bytes]<BR>"
Next
%>
<P>
<%
For Each Item in Upload.Form
Response.Write Item.Name & " [" & Item.Value & "]<BR>"
Next
%>
</BODY>
</HTML>