Upload multiplo di BAOL

[emilio81]

Salve a tutti
usavo l'upload di baol per iserire una foto e salvare dei dati sul database, mi è sempre funzionato bene ma adesso avrei la necessità di recuperare 2 foto anzichè 1. Ho aggiunto il codice per recuperare anche la seconda foto e funziona, mi fa esattamente l'insert nel database però in maniera scoretta :

Esempio:

nome    campo1    campo2
Pippo   foto1     foto1

nome    campo1    campo2
Pippo   foto2     foto2


Come potete vedere mi fa 2 insert invece che una in questo modo

nome    campo1    campo2
Pippo   foto1     foto2

Penso sia una stupidagine, mi potete dare una mano??

<%

Dim oUpload 
Set oUpload = new cUpload 
oUpload.SetPath "/public/photo"

oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else
	While Not oUpload.EOF
		oUpload.Save()

		Response.Write "Salvo il file : " & oUpload.GetFileName() & "
"
		Response.Write "Percorso fisico : " & oUpload.GetCompletePathFile() & "
"
		Response.Write "Percorso Web : " & oUpload.GetHTTPPathFile() & "
"
		Response.Write "Dimensioni del file : " & oUpload.Files("Size") & "
"
		Response.Write "<hr>"
		
				
			nome 	= oUpload.Form("nome") 
						
			Immagine = oUpload.Form("campo1")
			If Immagine = "" Then
			Immagine = "no_photo.gif"
			Else
			Immagine = oUpload.GetFileName()
			End If

			'ho aggiunto questo per iserire la seconda foto
			Immagine2 = oUpload.Form("campo2")
			If Immagine2 = "" Then
			Immagine2 = "no_photo.gif"
			Else
			Immagine2 = oUpload.GetFileName()
			End If
						


		'Qui metto la insert sul db
		'Conn.Execute "INSERT ....
            


		oUpload.MoveNext
	Wend
End if
Set oUpload=Nothing 
%>

[emilio81]

up

[Baol74]

Il ciclo while serve per salvare le 2 foto.
Quindi il codice all'interno del ciclo verrà eseguito 2 volte.
Di conseguenza devi mettere i nomi dei file in 2 variabili e spostare la insert fuori da ciclo.

[emilio81]

Ciao Baol grazie mille innanzi tutto per avermi risposto..

Diciamo che ci sono quasi, ho messo l'insert fuori dal ciclo e adesso mi fa correttamente l'insert però nel database mi salva solo la seconda foto...

ecco come salva
nome    campo1    campo2
Pippo   foto2     foto2

invece dovrebbe essere così 
nome    campo1    campo2
Pippo   foto1     foto2

Però le foto vengo trasferite correttamente sul server, e solo un problema di insert..

io ho fatto così, ho messo l'insert dopo il wend,

<%

Dim oUpload 
Set oUpload = new cUpload 
oUpload.SetPath "/public/photo"

oUpload.Load
if oUpload.Count=0 then
	Response.Write "Nessun file caricato"
Else
	While Not oUpload.EOF
		oUpload.Save()

		Response.Write "Salvo il file : " & oUpload.GetFileName() & "
"
		Response.Write "Percorso fisico : " & oUpload.GetCompletePathFile() & "
"
		Response.Write "Percorso Web : " & oUpload.GetHTTPPathFile() & "
"
		Response.Write "Dimensioni del file : " & oUpload.Files("Size") & "
"
		Response.Write "<hr>"
		
				
			nome 	= oUpload.Form("nome") 
						
			Immagine = oUpload.Form("campo1")
			If Immagine = "" Then
			Immagine = "no_photo.gif"
			Else
			Immagine = oUpload.GetFileName()
			End If

			'ho aggiunto questo per iserire la seconda foto
			Immagine2 = oUpload.Form("campo2")
			If Immagine2 = "" Then
			Immagine2 = "no_photo.gif"
			Else
			Immagine2 = oUpload.GetFileName()
			End If
						

		oUpload.MoveNext
	Wend

'Qui metto la insert sul db
sql = "INSERT INTO tabella (nome, campo1, campo2) VALUES ('"& nome & "', '"& Immagine & "', '"& Immagine2  & "')"
conn.Execute(sql)

End if
Set oUpload=Nothing 
%>

Te ne sarei molto grato se mi potresti sistemare questa cosa... grazie ancora

[emilio81]

ho fatto altre preove ma non ci riesco proprio...

[emilio81]

ho risolto tutto

grazie Baol ciaoo

[lucacasu]

Scusate se continuo questa vecchia discussione ma forse fa al caso mio.. ma qui non hanno postato lo script funzionante..
lo sto provando ma inserisce sempre solo uno nel database..
Qualcuno mi sa dare una mano??

[minnie71]

Ciao, non hai scritto come hai risolto il problema del file:

invece dovrebbe essere così
nome campo1 campo2
Pippo foto1 foto2



Te ne sarei grata se lo scrivessi