Tienes un for incompleto...
Código:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 20000, True
Upload.Save "attachfile"
If Err.Number = 8 Then
Response.Write "<font color=red><b>+ 50KB</b></font><br>"
End If
'Aqui empieza el for --->
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
End If
next
'<------------- Aqui termina
%>
creo que eso, no veo mas nada raro
cuentanos como te fue
saludos