dopo l' upload multiplo

[yro]

ciao sto cercando di fare un programmino che mi invii delle mail con allegati multipli e ho questo problema:

una volta fatto l'upload multiplo con baol, con il ciclo che mi inserisce i miei vari file... non riesco a recuperare tutti i nomi del file da riportare nel form da dove parte l'email:

<link href="blocconote.css" rel="stylesheet" type="text/css">

<%
 
Dim oUpload 
Set oUpload = new cUpload 
oUpload.SetPath "/dati/public/allegatiemail"

oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else

response.Write("<center>I seguenti file saranno allegati all'email:

</center>")
	While Not oUpload.EOF
		oUpload.Save()

		Response.Write   oUpload.GetFileName() & "
"
		var = oUpload.GetFileName()
		'Response.Write "Percorso fisico : " & oUpload.GetCompletePathFile() & "
"
		'Response.Write "Percorso Web : " & oUpload.GetHTTPPathFile() & "
"
		'Response.Write "Dimensioni del file : " & oUpload.Files("Size") & "
"
		'Response.Write "<hr>"
		
				
			'nome 	= oUpload.Form("up") 
			'allegato 1
			Immagine1 = oUpload.Form("allegato1")
			If Immagine1 = "" Then
			Immagine1 = "no_photo.gif"
			Else
			Immagine1 = oUpload.GetFileName()
			End If

			'allegato 2
			Immagine2 = oUpload.Form("allegato2")
			If Immagine2 = "" Then
			Immagine2 = "no_photo.gif"
			Else
			Immagine2 = oUpload.GetFileName()
			End If

			'allegato3
			Immagine3 = oUpload.Form("allegato3")
			If Immagine3 = "" Then
			Immagine3 = "no_photo.gif"
			Else
			Immagine3 = oUpload.GetFileName()
			End If

			'allegato4
			Immagine4 = oUpload.Form("allegato4")
			If Immagine4 = "" Then
			Immagine4 = "no_photo.gif"
			Else
			Immagine4 = oUpload.GetFileName()
			End If

			'allegato5
			Immagine5 = oUpload.Form("allegato5")
			If Immagine5 = "" Then
			Immagine5 = "no_photo.gif"
			Else
			Immagine5 = oUpload.GetFileName()
			End If

		oUpload.MoveNext
	Wend
End if
Set oUpload=Nothing

%>

      <div align="center"> 
		Allega

		cancella
      </div> 
	  <%=immagine1%>



 <%=immagine2%>

dovrei ritornare a scrivi1.asp con i nomi dei file da allegare all'email... ma se sono fuori dal ciclo mi da ripetutamente l'ultimo nome file!!

[Roby_72]

Mi sembra che di nome non ne passi nemmeno 1 a scrivi1.asp

Roby

[yro]

hai ragione... non cè nello codice qua sopra... ma ho provato... inserendo le varie variabili... ma mi scrive sempre l'ultima!

[Roby_72]

Se dentro al ciclo le variabile vengono scritte singolarmente, crea all'interno una stringa che concateni i vari nomi.

Roby

[yro]

ehm... come intendi?

io ho provato a fare un' array, ma il problema non cambia!

[Roby_72]

Ma i file li carica tutti?
Ad ogni ciclo azzera la variabile di prima credo...

Roby

[yro]

Originariamente inviato da Roby_72
Ma i file li carica tutti?
Ad ogni ciclo azzera la variabile di prima credo...

Roby

si, li uppa tutti!!! :master:

[santino83]

ad ogni ciclo azzera tutte le variabili tranne quella che va in true..nel caso l'ultima del ciclo


se usi il metodo oUpload.files("inputname") puoi sapere quale dei 5 file stai processando in quel momento e assegnare il suo valore alla variabile appropriata (certo che se usi un array ti fai meno pippe mentali)

[yro]

Originariamente inviato da santino83
ad ogni ciclo azzera tutte le variabili tranne quella che va in true..nel caso l'ultima del ciclo


se usi il metodo oUpload.files("inputname") puoi sapere quale dei 5 file stai processando in quel momento e assegnare il suo valore alla variabile appropriata (certo che se usi un array ti fai meno pippe mentali)

ho provato con un'array (ammesso che l' abbia fatta correttamente! ) ma non funzionava... mi dava sempre l'ultimo file uppato!

[santino83]

dim mioarray(5)
i=0
while not oUpload.eof
mioarray(i)=oUpload.getFilesName()
i=i+1
oUpload.movenext
wend

così dovresti salvare tutti i nomi