Carissimi,
con questo script ho unito alcune funzioni utilizzando gli oggetti persits, però non funziona al momento di rinominare il file durante l'upload.
In pratica carica il file ma con il nome originale, in + come posso implementare un limite di estensione, cioè che possano caricare solo file .pdf?
codice:
<%
Set Upload = Server.CreateObject("Persits.Upload")

Set File = Upload.Files("FILE1")

percorso = Server.MapPath("/public/")

' Limite di dimensione
Upload.SetMaxSize 100000000, True 

On Error Resume Next 

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso)

end if

If Not File Is Nothing Then

filename=File.FileName

nuovo_filename="nuovo"

Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

Response.Write Count & " file caricato "

%>
Grazie per il Vs. aiuto.
G.