con questo codice
codice:
<% 

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

percorso = Server.MapPath("/public/server/"& request.querystring("cartella") &"/") 

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

Count = Upload.Save (percorso) 

Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
filename=File.FileName 
estensione=file.ext 

estensione_ammessa=".jpg" 
estensione_ammessa2=".JPG"

if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
file.delete 

    response.write "Il file ha un'estensione non ammessa!" 

else 
nuovo_filename="&filename&" 

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&filename&"")), (Server.MapPath("/public/server/"& request.querystring("cartella") &"/"&nuovo_filename&"")) 
Set fsoMyFile = nothing 

    Response.redirect("carica+elenco.asp?cartella=" & request.querystring("cartella") &"&id=" & request.querystring("id") &"") 


end if
end if 
%>
Vorrei che faccia un controllo al momento dell'upload, se il file è esistente lo deve rinomina esempio
nome.jpg file presente
nome(1).jpg rinominato perchè già presente.
Grazie 1000 per il vs aiuto.
G.