Upload multiplo

[Rossella_75]

ciao a tutti,

ho un problema dovrei fare l'upload di 6 foto nello stesso momento

in pratica l'utente seleziona dal suo pc trammite i campi

<input name="foto1" type="file" id="foto1">
<input name="foto2" type="file" id="foto2">
<input name="foto3" type="file" id="foto3">
<input name="foto4" type="file" id="foto4">
<input name="foto5" type="file" id="foto5">
<input name="foto6" type="file" id="foto6">

le 6 foto e poi trammite il pulsante submit dovrebbe trasferire le foto sul web,
adesso come posso fare un'upload in modo che solo se tutte e 6 le foto sono state caricate rilasci un messaggio di OK?

in pratica io non vorrei che se riuscisse il caricamento della prima ma fallisse il caricamento della seconda, la prima rimanesse comunque sul web, ma lo script dovrebbe cancellarla.


PS: Se potete consigliarmi qualche esempio per partire è bene accetto!

Grazie mille a tutti.

[Baol74]

Scarica il mio upload.
Il codice non l'ho testato. Provalo.

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="Save.asp">
<input name="foto1" type="file" id="foto1">
<input name="foto2" type="file" id="foto2">
<input name="foto3" type="file" id="foto3">
<input name="foto4" type="file" id="foto4">
<input name="foto5" type="file" id="foto5">
<input name="foto6" type="file" id="foto6">
</form>

Save.asp

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	oUpload.SetPath "Files\"
	oUpload.Load
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then
				oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			End if
		oUpload.MoveNext
		Loop
	Else
		Response.Write "I files sono stati salvati."
	End if

Set oUpload=Nothing
%>

Ciao

[Rossella_75]

grazie mille appena torno lo provo!

[Rossella_75]

non riesco a farlo funzionare ho fatto la mia pagina cosi

<form action="Upload_Limit.asp" method="post" enctype="multipart/form-data" name="form1">
          <table width="200" border="0">
            <tr>
              <td nowrap><div align="right">CLIENTE:</div></td>
              <td nowrap><input name="cliente" type="text" id="cliente" size="35"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">DATA:</div></td>
              <td nowrap><input name="data" type="text" id="data" value="18/07/2005" size="14" maxlength="10">
                18/07/2005</td>
            </tr>
            <tr>
              <td nowrap><div align="right">TIPOLOGIA:</div></td>
              <td nowrap><input name="tipologia" type="text" id="tipologia" size="35"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO</div></td>
              <td nowrap><input name="foto" type="file" id="foto"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 1: </div></td>
              <td nowrap><input name="foto1" type="file" id="foto1"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 2:</div></td>
              <td nowrap><input name="foto2" type="file" id="foto2"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 3: </div></td>
              <td nowrap><input name="foto3" type="file" id="foto3"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 4:</div></td>
              <td nowrap><input name="foto4" type="file" id="foto4"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 5:</div></td>
              <td nowrap><input name="foto5" type="file" id="foto5"></td>
            </tr>
            <tr>
              <td height="24" nowrap><div align="right"></div></td>
              <td nowrap><input type="submit" name="Submit" value="Invia"></td>
            </tr>
          </table>
        </form>

per provare ho lasciato il tuofile originale modificando solo il path
cosi

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "C:\file\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=8000 or .Files("Width")>=6000 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
else
 .Save
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
%>

ma non succede nulla

grazie mille

[Rossella_75]

ok l'upload sembra andare solo che non riesco a scrivere nel database,
come posso scrivere il percorso completo di ogni file uplodato nel relativo campo??
ho fatto cosi

<form action="Save.asp" method="post" enctype="multipart/form-data" name="form1">
          <table width="200" border="0">
            <tr>
              <td nowrap><div align="right">CLIENTE:</div></td>
              <td nowrap><input name="cliente" type="text" id="cliente" size="35"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">DATA:</div></td>
              <td nowrap><input name="data" type="text" id="data" value="18/07/2005" size="14" maxlength="10">
                18/07/2005</td>
            </tr>
            <tr>
              <td nowrap><div align="right">TIPOLOGIA:</div></td>
              <td nowrap><input name="tipologia" type="text" id="tipologia" size="35"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO</div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto1"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 1: </div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto2"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 2:</div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto3"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 3: </div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto4"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 4:</div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto5"></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 5:</div></td>
              <td nowrap><INPUT TYPE="file" NAME="foto6"></td>
            </tr>
            <tr>
              <td height="24" nowrap><div align="right"></div></td>
              <td nowrap><input type="submit" name="Submit" value="Invia"></td>
            </tr>
          </table>
        </form>

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	oUpload.SetPath "Files\"
	oUpload.Load
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then
				oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			End if
		oUpload.MoveNext
		Loop
	Else
		Response.Write "I files sono stati salvati."
		.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/cartella/database/db.mdb"),"SELECT Top 1 * FROM tabella"
		.Database.Open()
		While Not .EOF
				.Save
				response.Write "il file " & .GetFileName &" è stato salvato 
"
				'Inserimento dei valori
				.Database.Fields("cliente") = .Form("cliente")
				.Database.Fields("data") = .Form("data") ' come posso far inserire la data automaticamente nel formato 18/07/2005
				.Database.Fields("tipologia") = .Form("tipologia")
				.Database.Fields("foto") = .GetCompletePathFile
				.Database.Fields("foto1") = .GetCompletePathFile
				.Database.Fields("foto2") = .GetCompletePathFile
				.Database.Fields("foto3") = .GetCompletePathFile
				.Database.Fields("foto4") = .GetCompletePathFile
				.Database.Fields("foto5") = .GetCompletePathFile
				'Inserimento
				.Database.AddNew()
		.MoveNext
		Wend
	End if

Set oUpload=Nothing
%>

ricevo questo errore

I files sono stati salvati. 
Microsoft VBScript runtime error '800a01f9' 

Invalid or unqualified reference 

/public/cartella/Save.asp, line 29

[Rossella_75]

adesso ho quasi risolto tutto, solo che non capisco percè non riesco ad inserire i dati nel database

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	oUpload.SetPath "Files\"
	oUpload.Load
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then
				oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			End if
		oUpload.MoveNext
		Loop
	Else
		Response.Write "I files sono stati salvati."
		oUpload.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/database.mdb"),"SELECT Top 1 * FROM tabella"
		oUpload.Database.Open()
		While Not oUpload.EOF
				oUpload.Save
				response.Write "il file " & oUpload.GetFileName &" è stato salvato 
"
				'Inserimento dei valori
				oUpload.Database.Fields("cliente") = request.Form("cliente")
				oUpload.Database.Fields("data") = request.Form("data")
				oUpload.Database.Fields("tipologia") = request.Form("tipologia")
				oUpload.Database.Fields("foto") = oUpload.GetCompletePathFile
				oUpload.Database.Fields("foto1") = oUpload.GetCompletePathFile
				oUpload.Database.Fields("foto2") = oUpload.GetCompletePathFile
				oUpload.Database.Fields("foto3") = oUpload.GetCompletePathFile
				oUpload.Database.Fields("foto4") = oUpload.GetCompletePathFile
				oUpload.Database.Fields("foto5") = oUpload.GetCompletePathFile
				'Inserimento
				oUpload.Database.AddNew()
		oUpload.MoveNext
		Wend
	End if

Set oUpload=Nothing
%>

vi prego aiutatemi

grazie

[Baol74]

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	oUpload.SetPath "Files\"
	oUpload.Load
	oUpload.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/database.mdb"),"SELECT Top 1 * FROM tabella"
	oUpload.Database.Open()
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.Database.Fields(oUpload.Fiels("InputName")) = oUpload.GetCompletePathFile
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then
				oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			End if
		oUpload.MoveNext
		Loop
	Else
		Response.Write "I files sono stati salvati."
		'Inserimento dei valori
		oUpload.Database.Fields("cliente") = oUplaod.Form("cliente")
		oUpload.Database.Fields("data") = oUplaod.Form("data")
		oUpload.Database.Fields("tipologia") = oUplaod.Form("tipologia")
		oUpload.Database.AddNew()
	End if
	oUpload.Database.Close()
Set oUpload=Nothing
%>

[Baol74]

Per funzionare i nomi degli input type="File" devono corrispondere ai nome dei campi nel db dove dovranno essere salvati i percorsi

<input type="File" name="File3">

Verrà salvato nel campo File3

<%
Dim oUpload,SaveOK
Set oUpload = new cUpload
	SaveOK = True
	oUpload.OverWrite=True
	oUpload.AutoRename=False
	oUpload.SetPath "Files\"
	oUpload.Load
	oUpload.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/database.mdb"),"SELECT Top 1 * FROM tabella"
	oUpload.Database.Open()
	Do While Not oUpload.EOF
	oUpload.Save()
	If oUpload.Files("ErrorNumber")<>0 then
		SaveOK=False
		Exit Do
	End if
	oUpload.Database.Fields(oUpload.Fiels("InputName")) = oUpload.GetCompletePathFile
	oUpload.MoveNext
	Loop

	If Not SaveOK then
		oUpload.Movefirst
		Do While oUpload.EOF
			If oUpload.Files("Saved") then
				oUpload.Fso.DeleteFile oUpload.GetCompletePathFile(),true
			End if
		oUpload.MoveNext
		Loop
	Else
		Response.Write "I files sono stati salvati."
		'Inserimento dei valori
		oUpload.Database.Fields("cliente") = oUplaod.Form("cliente")
		oUpload.Database.Fields("data") = oUplaod.Form("data")
		oUpload.Database.Fields("tipologia") = oUplaod.Form("tipologia")
		oUpload.Database.AddNew()
	End if
	oUpload.Database.Close()
Set oUpload=Nothing
%>

[Rossella_75]

grazie mille ma ricevo un'errore alla linea 18

questa

oUpload.Database.Fields(oUpload.Fiels("InputName")) = oUpload.GetCompletePathFile

o provato modificando cosi

oUpload.Database.Fields(oUpload.Fields("InputName")) = oUpload.GetCompletePathFile

ma rimane questo errore

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Fields' 

/public/Save.asp, line 18

Grazie ancora

[Rossella_75]

scusami quell'errore l'ho risolto e adesso ne ho un'altro

I files sono stati salvati. 
Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/public/Save.asp, line 33

la linea in questione è questa

oUpload.Database.Fields("cliente") = oUplaod.Form("cliente")

i dati arrivano da questo form

<form action="Save.asp" method="post" enctype="multipart/form-data" name="form1">
          <table width="200" border="0">
            <tr>
              <td nowrap><div align="right">CLIENTE:</div></td>
              <td nowrap><div align="left">
                <input name="cliente" type="text" id="cliente" size="35">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">TIPOLOGIA:</div></td>
              <td nowrap><div align="left">
                <input name="tipologia" type="text" id="tipologia" size="35">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO</div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto" TYPE="file" id="foto">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 1: </div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto1" TYPE="file" id="foto1">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 2:</div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto2" TYPE="file" id="foto2">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 3: </div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto3" TYPE="file" id="foto3">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 4:</div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto4" TYPE="file" id="foto4">
              </div></td>
            </tr>
            <tr>
              <td nowrap><div align="right">FOTO 5:</div></td>
              <td nowrap><div align="left">
                <INPUT NAME="foto5" TYPE="file" id="foto5">
              </div></td>
            </tr>
            <tr>
              <td height="24" nowrap><div align="right"></div></td>
              <td nowrap><div align="left">
                <input type="submit" name="Submit" value="Invia">
                <input name="data" type="hidden" id="data" value="<% Response.Write DateRaf()%>" size="14" maxlength="10">
              </div></td>
            </tr>
          </table>
        </form>

la struttura del database è questa

cliente
data
tipologia
foto
foto1
foto2
foto3
foto4
foto5


questo errore propio non lo capisco... :master:

stò indagando

Grazie mille ancora