Utilizzo questo script per fare l'upload di un file con relativo testo, però per caricare e rinominare un singolo file..
Ora se invece di un solo file (file1) vorrei caricarne 3, come faccio a far rinominare ognuno dei 3 file caricati?
Grazie
G.
codice:
Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/admin/banners_box/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

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

Upload.Save (percorso) 

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_filename=""& request.querystring("id") & "_bannerbox-1_1"& file.ext &"" 

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


if objFS.FileExists(Server.MapPath("/public/admin/banners_box/"&filename&""))=true and objFS.FileExists(Server.MapPath("/public/admin/banners_box/"&nuovo_filename&""))=false then 
objFS.MoveFile (Server.MapPath("/public/admin/banners_box/"&filename&"")), (Server.MapPath("/public/admin/banners_box/"&nuovo_filename&"")) 
end if

sql = "SELECT * FROM admin WHERE id = " & request.querystring("id") &" "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

link = Upload.Form("link1_1").Value

rs.Fields("link1_1") = "" & link & "" 

rs.update	

   Response.redirect("caricamentoOK.asp?id=" & request.querystring("id") &"&file="&nuovo_filename&"") 
end if 
end if 
end if