o anche con:
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save (Server.MapPath("/public/"))
For Each File in Upload.Files
Ext = UCase(Right(File.Path, 3))
If Ext <> "JPG" and Ext <> "BMP" and Ext <> "GIF" and Ext <> "PNG" Then
'elimino il path dal debug ed inserisco solo il nome usando oggetto.filename
Response.Write "- Attenzione! Il file <font color=red>" & File.FileName & "</font> non ha estensione consentita.
"
File.Delete
End If
Next
Response.Redirect("3.asp")
%>
non va alla 3.asp ma alla default.asp

Rispondi quotando