Problema Upload Baol

[mr_chiocco]

si comporta come se andasse in loop...

<%
nomebig = ""
nomemini = ""

Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload	= False
.EnabledImageSize	= True
.EnabledLog 		= False
.AutoRename 		= True
.Overwrite			= False
.SetPath "dati\"
.Load
.UploadOnly "Images"

if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
elseif (.Files("Height") = 600 and .Files("Width") = 800) or (.Files("Height") = 98 and .Files("Width") = 130) then
	While Not .EOF
			nomecampo = oUpload.Files("InputName")
			response.Write "il file " & .GetFileName &" è stato salvato
"
			
			if nomecampo = "big" then
				nomebig = .GetFileName
				.SetPath "dati\"
			elseif nomecampo = "mini" then
				nomemini = .GetFileName
				.SetPath "dati\mini\"
			end if
			
			.Save()
			.MoveNext
	Wend
else
	Response.write ("Le dimensioni dell'immagine " &_
	.GetFileName() &" non sono corrette (" &_
	.Files("Height") &"x" & .Files("Width") &"): File non caricato
")
end if

End With
Set oUpload = Nothing

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("dati/dati.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * from immagini"
objrs.open sql,objconn, 1,3

objRs.addnew
objRs("nome") = nomebig
objRs("mini") = nomemini
objRs.update
		
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
response.write "
Immagini inserite nel database."
%>

ho sbagliato qualcosa con .SetPath ??

[santino83]

se non ricordo male non puoi fare quel cambio di path in quel modo...

magari prova a togliere il primo in assoluto di setpath

[mr_chiocco]

adesso provo ma allora come posso fare a salvare le immagini in due directory diverse?

[mr_chiocco]

ho provato ma non è cambiato niente, carica solo la prima immagine e si inchioda...

[mr_chiocco]

OK, risolto anche questo, era abbastanza semplice:

	While Not .EOF
			nomecampo = oUpload.Files("InputName")
			response.Write "il file " & .GetFileName &" è stato salvato
"
			
			if nomecampo = "big" then
				nomebig = .GetFileName
				.Save()
			elseif nomecampo = "mini" then
				nomemini = .GetFileName
				.SaveAs("mini\"& .GetFileName)
			end if
			
			.MoveNext
	Wend

nella parte centrale ho spostato il comando Save() nell' if in cui il percorso preimpostato andava bene e per l'altra immagine ho messo SaveAs() con il nome del file originale più la parte di directory che mancava. Quindi le immagini vengono salvate in:

1: dati\immagine1.jpg
2: dati\mini\immagine2.jpg

perfetto!...

[santino83]

.SaveAs("mini\"& .GetFileName)

mitico questa non la sapevo proprio, bella mossa