Codie che non funziona... Mi aiutate a capire?

[JacK^79]

Questo codice dovrebbe poter inviare tre diversi file contemporaneamente.

if instr(Intestazione,"file1") > 0 then
	i = instr(Intestazione,"filename=")
	j = instr(i + 10,Intestazione,chr(34))
	NomeUpload1 = mid(Intestazione,i + 10,j-i-10)
	i = instrRev(NomeUpload1,"\")

	if i<>0 then
		NomeFile1 = mid(NomeUpload1,i + 1)
	else
		NomeFile1 = NomeUpload1
	end if

	if i<>0 then
		Set FSO = CreateObject("Scripting.FileSystemObject")
		Upload1 = True
		DimensioneFile1 = len(ContenutoFile)
		EstensioneFile1 = right(ContenutoFile,3)
		NomeFile1 = NomeFile1
		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

if instr(Intestazione,"file2") > 0 then
	i = instr(Intestazione,"filename = ")
	j = instr(i + 10,Intestazione,chr(34))
	NomeUpload2 = mid(Intestazione,i + 10,j-i-10)
	i = instrRev(NomeUpload2,"\")

	if i<>0 then
		NomeFile2 = mid(NomeUpload2,i + 1)
	else
		NomeFile2 = NomeUpload2
	end if

	if i<>0 then
		Set FSO = CreateObject("Scripting.FileSystemObject")
		Upload2 = True
		DimensioneFile2 = len(ContenutoFile)
		EstensioneFile2 = right(ContenutoFile,3)
		NomeFile2 = NomeFile2
		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

if instr(Intestazione,"file3") > 0 then
	i = instr(Intestazione,"filename = ")
	j = instr(i + 10,Intestazione,chr(34))
	NomeUpload3 = mid(Intestazione,i + 10,j-i-10)
	i = instrRev(NomeUpload3,"\")

	if i<>0 then
		NomeFile3 = mid(NomeUpload3,i + 1)
    	else
    		NomeFile3 = NomeUpload3
    	end if
      	
	if i<>0 then
		Set FSO = CreateObject("Scripting.FileSystemObject")
		Upload3 = True
		DimensioneFile3 = len(ContenutoFile)
		EstensioneFile3 = right(ContenutoFile,3)
		NomeFile3 = NomeFile3
		Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile3), True, False)
		textStream.Write ContenutoFile
		textStream.Close
		Set textStream = Nothing
		Set FSO = Nothing
	end if
end if

Però non funziona e non capisco perchè. Parte solo il primo file.

[Roby_72]

Dal secondo file in poi al posti di questo:

i = instr(Intestazione,"filename = ")

questo

i = instr(Intestazione,"filename=")

Roby

[JacK^79]

..caolna che distratto VVoVe:

Roby volevo chiederti, ma è vero ch questo sistma permett un'invio di max 2Mb?

[JacK^79]

n'altro errore che da questo codice è quello di non uploaddare il file audio .mp3..

Forse non si può?

[Roby_72]

Usa questo: http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[JacK^79]

..adessoo provo e ti faccio sape

Grazie Roby

[JacK^79]

Ho provato ma non mi carica nulla nella cartella public....

Non potresti aiutarmi con il mio codice a capire perchè non invia audio? Qualsiasi altro tipo di file me lo invia senza problemi