questa parte
codice:
if UploadRequest.Item("foto1").Item("FileName")="" then


   --> ho provato a modificare questa sezione, inserendo anche gli altri Item ma nulla :(


Else


   contentType = UploadRequest.Item("foto1").Item("ContentType")
   filepathname = UploadRequest.Item("foto1").Item("FileName")
   filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
   value = UploadRequest.Item("foto1").Item("Value")


   Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


   Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename)


   For i = 1 to LenB(value)
      MyFile.Write chr(AscB(MidB(value,i,1)))
   Next
   
   MyFile.Close


End if
la devi ripetere, ovviamente usando filename1, filename2 ecc

P.S. hai visto che ho indentato il codice? non è più leggibile ancora?