Capito grazie...
Ho notato però che se carico un 2/3 file con stesso nome (iniziale prima di rinominarlo)
ho questo errore

FILE NOT FOUND.............

alla riga
codice:
fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&""))
Dove sbaglio?
Ripubblico il codice completo
codice:
Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/fotonews/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

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

Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso) 

' This is needed to enable the progress indicator 
Set File = Upload.Files("file1") 

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

estensione_ammessa=".jpg" 
dimensione_ammessa= 5210000 'questa dimensione è in byte. 

    If dimensione< 1024 Then 
            dimensione_file = Round(dimensione,2) & " Bytes" 
      ElseIf dimensione< 1048576 Then 
            dimensione_file= Round(dimensione/1024,2) & " KB" 
      Else 
            dimensione_file= Round(dimensione/1048576,2) & " MB" 
      End If 

if dimensione>dimensione_ammessa then 
%>




<p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>

<%
else 

if lcase(estensione)<>estensione_ammessa then 
file.delete 

%>





<p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
<%

else 

nuovo_filename1=""& request.querystring("code") & "_news_foto1"& file.ext &"" 

if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&""))=true then 
objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&"")) 
end if

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&"")) 
Set fsoMyFile = nothing 

end if
end if
end if

Set File = Upload.Files("file2") 

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

estensione_ammessa=".jpg" 
dimensione_ammessa= 5210000 'questa dimensione è in byte. 

    If dimensione< 1024 Then 
            dimensione_file = Round(dimensione,2) & " Bytes" 
      ElseIf dimensione< 1048576 Then 
            dimensione_file= Round(dimensione/1024,2) & " KB" 
      Else 
            dimensione_file= Round(dimensione/1048576,2) & " MB" 
      End If 

if dimensione>dimensione_ammessa then 
%>




<p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>

<%
else 

if lcase(estensione)<>estensione_ammessa then 
file.delete 

%>





<p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
<%

else 

nuovo_filename2=""& request.querystring("code") & "_news_foto2"& file.ext &"" 
 
if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&""))=true then 
objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&"")) 
end if


Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&"")) 
Set fsoMyFile = nothing 

end if
end if
end if

Set File = Upload.Files("file3") 

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

estensione_ammessa=".jpg" 
dimensione_ammessa= 5210000 'questa dimensione è in byte. 

    If dimensione< 1024 Then 
            dimensione_file = Round(dimensione,2) & " Bytes" 
      ElseIf dimensione< 1048576 Then 
            dimensione_file= Round(dimensione/1024,2) & " KB" 
      Else 
            dimensione_file= Round(dimensione/1048576,2) & " MB" 
      End If 

if dimensione>dimensione_ammessa then 
%>




<p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>

<%
else 

if lcase(estensione)<>estensione_ammessa then 
file.delete 

%>





<p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
<%

else 
nuovo_filename3=""& request.querystring("code") & "_news_foto3"& file.ext &"" 

if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&""))=true then 
objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&"")) 
end if


Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&"")) 
Set fsoMyFile = nothing 

end if
end if
end if
Grazie
G.