doppio upload BAOL

[Picciola]

Uso questo codice per fare l'upload di 2 immagini e inserirle in un DB nello stesso record:

<%
		Dim oUpload
		Set oUpload = new cUpload
		With oUpload
		.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(mappathdb),"SELECT Top 1 * FROM foto"
		.AutoRename = False
		.Overwrite = False
		.SetPath "public"
		.Load

	While Not .EOF
	Select Case lCase(oUpload.Files("InputName"))
	Case "campo1"
	fotogrande = oUpload.GetFileName()
	Case "campo2"
	fotopiccola = oUpload.GetFileName()
	End Select
	
		If cLng(.Files("Size"))>(dimensione*1024) then
		response.Redirect("foto_new.asp?up=siz")
		end if		
		.MoveNext
		
	Wend
			.Database.Open()
			.Save
			'Inserimento dei valori
			.Database.Fields("filefoto") = fotogrande
			.Database.Fields("filefotomini") = fotopiccola
			.Database.Fields("descrizione") = .Form("campo3")
			'Inserimento
			.Database.AddNew()

End With
Set oUpload = Nothing
%>

Risultato: mi aggiorna il DB correttamente ma non uploada le immagini nella cartella.
La cartella PUBLIC è fuori dalla cartella dove risiede la pagina di upload. Teoricamente, per farmi capire, dovrei scrivere "../public". Tuttavia le ho provate tutte ("\public", "/public", "..\public".... si anche un po' a casaccio, avete ragione! ), ma l'upload non lo fa!
:master:

[Picciola]

Ho risolto da sola!
Era sbagliata la posizione del .Save....
Questo il codice corretto:

<%
		Dim oUpload
		Set oUpload = new cUpload
		With oUpload
		.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(mappathdb),"SELECT Top 1 * FROM foto"
		.AutoRename = False
		.Overwrite = False
		.SetPath "public"
		.Load

	While Not .EOF
	Select Case lCase(oUpload.Files("InputName"))
	Case "campo1"
	fotogrande = oUpload.GetFileName()
	Case "campo2"
	fotopiccola = oUpload.GetFileName()
	End Select
	
		If cLng(.Files("Size"))>(dimensione*1024) then
		response.Redirect("foto_new.asp?up=siz")
		end if
		.Save   		
		.MoveNext
		
	Wend
			.Database.Open()
			'Inserimento dei valori
			.Database.Fields("filefoto") = fotogrande
			.Database.Fields("filefotomini") = fotopiccola
			.Database.Fields("descrizione") = .Form("campo3")
			'Inserimento
			.Database.AddNew()

End With
Set oUpload = Nothing
%>

Ciauuuuuuuuuuuuuz!

[marco.santilli]

Ciao mi potresti aiutare....

Vorrei mettere anche io upload nel mio sito

Mi servirebbe un qualcosa di semplice che uppa solo le immagini

Saresti in grado di aiutarmi???

Ho scaricato diversi script tra cui anche quello di BAOL, che fa un pò tutto.

Momentaneamente mi servirebbe solo l'upload della foto, poi dopo vedo se espanderlo o no

Saresti cosi gentile da inviarmi un qualcosa????

La cartella in cui voglio uplodare è "\public"

Se vuoi ti passo la mia email nel caso accettassi

Ciao e grazieeee