Upload di più file JPG

[marviv]

Ciao a tutti.
Ho un problema con l'upload di Baol.
Si tratta di un upload multiplo: due file JPG + una serie di campi testo.
Il codice dell'upload dei file jpg è il seguente:

ID = RecSet("id")
NomeFileSE =Cstr(ID)
NewNomeFile1="Foto_"&NomeFileSE&".jpg"
NewNomeFile2="Cornice_"&NomeFileSE&".jpg"

If oUpload.Count<>0 then
While Not oUpload.EOF
' oUpload.Save()
immagine1 = oUpload.Form("file1")
If immagine1 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneFoto then
FilePesante1=True
else
oUpload.SaveAs(NewNomeFile1)
FilePesante1=False
end if
else
FilePesante1=False
end if
immagine2 = oUpload.Form("file2")
If immagine2 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneCornice then
FilePesante2=True
else
oUpload.SaveAs(NewNomeFile2)
FilePesante2=False
end if
else
FilePesante2=False
end if
oUpload.MoveNext
Wend
end if
Set oUpload=Nothing

Praticamente mi dovrebbe caricare due file jpg e, a prescindere da come di chiamano, dovrebbe uploadarli nella setssa directory con nomi rispettivi Foto_1.jpg e Cornice_1.jpg (se id=1).
In realtà quando mi carica il secondo me lo sovrascrive sul primo e quindi continuo a trovarmi Foto_1.jpg ma in realtà è la seconda immagine.

A me sembra tutto a posto ma evidentemente sto sbagliando da qualche parte.

Avete qualche suggerimento ?

Grazie

[marviv]

Se a qualcuno può interessare, modificando una soluzione già proposta nel forum, son riuscito a farla funzionare.
E' stato aggiunto un ulteriore upload.movenext.
Il codice è:
If oUpload.Count<>0 then
While Not oUpload.EOF
immagine1 = oUpload.Form("file1")
If immagine1 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneFoto then
FilePesante1=True
else
oUpload.SaveAs(NewNomeFile1)
FilePesante1=False
end if
else
FilePesante1=False
end if
oUpload.MoveNext
immagine2 = oUpload.Form("file2")
If immagine2 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneCornice then
FilePesante2=True
else
oUpload.SaveAs(NewNomeFile2)
strNomeFileUp = oUpload.GetFileName
FilePesante2=False
end if
else
FilePesante2=False
end if
oUpload.MoveNext
Wend
end if

[marviv]

Ho un problema grosso come una casa ed è per questo che riapro un mio vecchio post.
Come avevo scritto, pensavo di aver risolto il problema, ma è che non avevo testato bene la procedura. Ora devo consegnare al cliente il sito e sono nelle canne...
La procedura che allego funziona perfettamente se nel form inserisco effettivamente tre file: me li uppa tutti e tre correttamente.
Ma se nel form inserisco solo file2 o file3, va in errore.
Se invece inserisco solo il file1 funziona correttamente.
Non riesco a venirne fuori.
Vi posto il codice:

Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
oUpload.SetPath percorsoPhoto
oUpload.EnabledAspUpload = False
oUpload.EnabledImageSize = TRUE

....
If oUpload.Count<>0 then
While Not oUpload.EOF
immagine1 = oUpload.Form("file1")
If immagine1 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneFoto then
FilePesante1=True
else
oUpload.SaveAs(NewNomeFile1)
FilePesante1=False
end if
else
FilePesante1=False
end if
oUpload.MoveNext

immagine2 = oUpload.Form("file2")
If immagine2 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneCornice then
FilePesante2=True
else
oUpload.SaveAs(NewNomeFile2)
FilePesante2=False
end if
else
FilePesante2=False
end if
oUpload.MoveNext

immagine3 = oUpload.Form("file3")
If immagine3 <>"" then
IF cLng(oUpload.Files("Size"))>MaxDimensioneMini then
FilePesante3=True
else
oUpload.SaveAs(NewNomeFile3)
FilePesante3=False
end if
else
FilePesante3=False
end if
oUpload.MoveNext
Wend
end if

Grazie per l'aiuto

Marco

[Roby_72]

Innazitutto oUpload.MoveNext devi scriverlo una sola volta prima di Wend.

Roby

[marviv]

Roby, se lascio solo l'ultimo oUpLoad.movenext, mi carica solo file1.

[santino83_11_04]

while not oUpload.eof

select case oUpload.Files("InputName")  'chiedo il nome del campo file del form

case "file1"

'salvo l'immagine 1

case "file2"

'salvo l'immagine 2

case "file3"

'salvo l'immagine 3

end select

oUpload.movenext
wend

[marviv]

Santino sei un DRAGO !!!!!

Grazie
Marco

[Matrix_01]

dove avete preso questo script? potete postarlo o indirizzarmi per poterlo scaricare completo?

[Roby_72]

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

Roby

[santino83_11_04]

Originariamente inviato da marviv
Santino sei un DRAGO !!!!!

Grazie
Marco

un DRAGO? vedessi le finestre che ho aperto in casa per questo problema non lo diresti