ciao a tutti...
ho il seguente script per l'upload (preso da un tutorial da HTML.it)
codice:
if instr(Intestazione,"file1") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				NomeFile1 = NomeFile
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if

		' Lo stesso discorso vale anche per i campi dei file :
		' Nel caso in cui fossero presenti piu file basta duplicare
		' la condizione cambiando unicamente il nome del campo
		' es.
e funziona...seguito dallo stesso script ma con nome campo diverso...
codice:
if instr(Intestazione,"file2") > 0 then
		   i = instr(Intestazione,"filename = ")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload2 = True
				DimensioneFile2 = len(ContenutoFile)
				EstensioneFile2 = right(ContenutoFile,3)
				NomeFile2 = NomeFile
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	  end if
		end if
che pero non va.Non mi da nessun errore...e se leggo l'intestazione di pagina in binario vedo entrambe i campi.

come mai uno va e l'altro no?