[BAOL] Upload Multimo (PNG + PDF)

[StegcO]

Ciao

Ho creato un Form con due InputFile, così:

<form method="post" action="modifica.asp" name="modifica" enctype="multipart/form-data">

<input type="file" name="Immagine">
<input type="file" name="Allegato">

<input type="submit" value="CARICA" name="invia">

</form>

La pagina Modifica.asp è così:

<%

Dim oUpload
Set oUpload = new cUpload

		oUpload.SetPath "../ad"
		oUpload.AutoRename = False
		oUpload.Overwrite = False
		oUpload.Upload

		Immagine = Trim(oUpload.Form("Immagine"))
		Allegato = Trim(oUpload.Form("Allegato"))

		oUpload.SaveAs Immagine
		oUpload.SaveAs Allegato

Set oUpload=Nothing

%>

Come vedete recupero i due file e ne faccio, o almeno vorrei farne, l'upload nella stessa cartella.

Però mi da questo errore:

ADODB.Stream error '800a0e79'

Operation is not allowed when the object is open.

Upload.asp, line 862

Sapete come mai? Grazie mille per l'aiuto

[StegcO]

Nessuno sà darmi una mano?

[StegcO]

Forse non è possibile uploadare più di un file alla volta?

[StegcO]

Non si può fare?

[Andrea Toniolo2]

dovresti usare un ciclo.
a oUpload.SaveAs deve seguire il nome del file.

[StegcO]

Grzie per il consiglio, ho provato a fare il ciclo ma mi ridà lo stesso errore, è come se rimanesse aperto qualcosa nel file upload.asp fino a che non lo setto a nothing, però avevo sentito che si poteva fare l'upload multiplo con baol, o melo sono sognato?

[michele.santoro]

La butto lì!
Probabilmente è perché stai facendo l'upload di file o immagini già presenti sul server prova a fare l'upload con file e immagini con nomi diversi.
oppure al posto di False

oUpload.Overwrite = False

metti True

[StegcO]

Ora provo, comunque io faccio l'upload di

esempio.png
esempio.pdf

hanno lo stesso nome ma estensione diversa, int eoria non dovrebbe crrear problemi, faccio un test e vi faccio sapere con TRUE

-----------------------------------------------------------

No purtroppo da sempre lo stesso errore, è come se quando fa il primo upload non chiude, sparo lì, il recordset e poi quando fà il secondo upload da errore..

[Andrea Toniolo2]

Originariamente inviato da StegcO
Ora provo, comunque io faccio l'upload di

esempio.png
esempio.pdf

hanno lo stesso nome ma estensione diversa, int eoria non dovrebbe crrear problemi, faccio un test e vi faccio sapere con TRUE

-----------------------------------------------------------

No purtroppo da sempre lo stesso errore, è come se quando fa il primo upload non chiude, sparo lì, il recordset e poi quando fà il secondo upload da errore..

michele.santoro non si riferiva a questo, intendeva che sul server potrebbero gia esserci quei 2 file, e quindi non riesci a sovrascriverli. secondo me questa operazione è tutta sbagliata:

Immagine = Trim(oUpload.Form("Immagine"))
Allegato = Trim(oUpload.Form("Allegato"))

oUpload.SaveAs Immagine
oUpload.SaveAs Allegato

se hai provato con il ciclo e ti da lo stesso problema probabilmente non sai fare il ciclo nel modo corretto. prova a postare il codice.

[StegcO]

File = Trim(oUpload.Form("Immagine"))

i=0
do while i>0

oUpload.SaveAs File
File= Trim(oUpload.Form("Allegato"))

i=i+1
loop