Metodo Upload

[batman60]

Non ammette input file vuoti fa un controllo if File <> "" Then .... codice che esegue l'upload else response.write "il campo file non può essere vuoto" End if

Intanto grazie per la risposta, ho impostato come mi avevi detto :

Set Upload = Server.CreateObject("Persits.Upload.1") 

percorso=Server.MapPath("/public/" & strcn)
'response.Write("titolo 2" & percorso )
Upload.Save(percorso)

Set File = Upload.Files("FILE1")

if File <> "" Then ( questa è la riga 48 )
 filename=File.FileName
 
 else 
 response.write "il campo file non può essere vuoto" 
 End if

ma mi da questo errore :
Microsoft VBScript runtime error '800a005b'
Object variable not set
/caricalezioni2014.asp, line 48
eppure Set File è settato la riga prima