<%@LANGUAGE = VBScript%>
<%
' Gestisco eventuali errori
On Error Resume Next
' Creo l'oggetto Persist ASPUpload
Set Upload = Server.CreateObject("Persits.Upload.1")
' Controllo che non vengano sovrascritti file esistenti
Upload.OverwriteFiles = False
' Limito ad 1 mega la possibilità di caricare file
Upload.SetMaxSize 1048576
' Creo una variabile col file da caricare
Dim MioFile
MioFile = Request.Form("file_da_caricare")
' Effettuo l'Upload, se non si sono verificati errori
Count = Upload.Save(Server.MapPath("/sub/" & MioFile))
%>
<html>
<head>
<title>Upload di
file col componente ASPUpload<
/title>
</head>
<body>
<p align="center">
<%
' Verifico il buon andamento della procedura
' e lancio un messaggio di errore o di conferma
Response.
Write "ERRORE: " & Err.
Description Else
With Response
.Write Count
.Write "Upload effettuato con successo!"
.Write "<br><br>"
.Write "Alcune info:"
.Write "<br><br>"
.
Write "Dimensioni del file: " & File.
Size & "byte" .Write "<br>"
.
Write "Tipologia di file: " & File.
Type End With
End If
%>
</p>
</body>
</html>