Upload Baol

[-AA-]

Ciao
...

Dim oUpload 
Set oUpload = new cUpload 
oUpload.SetPath "/upload/dicono/"

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

		oUpload.MoveNext
	Wend
end if

	strSql = " UPDATE diconodinoi SET voce = "&ToSql(voce)&", foto = "&ToSql(Immagine)&", pdf = "&ToSql(pdf)&", mesenum = "&ToSql(mesenum)&",  where id =" & idd
	response.Write(strSql)
	cn.Execute strSql
	cn.Close()
	set cn = nothing

e se non carico nessuna immagine come faccio ad inserire voce?

[Santino83_02]

se il campo immagine è uno solo mi pare un pò inutile il ciclo while:

voce = oUpload.form("voce")

if not oUpload.eof
oUpload.save()
Immagine=oUpload.form("immagine")  '???????
pdf = oUpload.form("pdf")                  '???????

else

response.write "nessun file caricato"
end if

'resto del codice

[-AA-]

Santino
Carico 1 immagine e un possibile PDF
il fatto è che proprio l'immagine e il PDF sono "facoltativi" mentre i lcampo voce è sempre obbligatorio

[Santino83_02]

Originariamente inviato da -AA-
Santino
Carico 1 immagine e un possibile PDF
il fatto è che proprio l'immagine e il PDF sono "facoltativi" mentre i lcampo voce è sempre obbligatorio

eh allora così dovrebbe andare

[-AA-]

invece no :-( inserisce il campo VOCE solo se carico almeno l'immagine

[Santino83_02]

Originariamente inviato da -AA-
invece no :-( inserisce il campo VOCE solo se carico almeno l'immagine

avrai sbagliato a riportare il mio codice allora..

[Andrea Toniolo2]

Originariamente inviato da -AA-
invece no :-( inserisce il campo VOCE solo se carico almeno l'immagine

perchè memorizzi i campi solo se ci sono file da salvare.
prova cosi:

Dim oUpload 
Set oUpload = new cUpload 
oUpload.SetPath "/upload/dicono/"

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


		oUpload.MoveNext
	Wend
end if
           voce = oUpload.Form("voce") 
           Immagine = oUpload.Form("immagine")
	pdf = oUpload.Form("pdf")
	strSql = " UPDATE diconodinoi SET voce = "&ToSql(voce)&", foto = "&ToSql(Immagine)&", pdf = "&ToSql(pdf)&", mesenum = "&ToSql(mesenum)&",  where id =" & idd
	response.Write(strSql)
	cn.Execute strSql
	cn.Close()
	set cn = nothing

[Santino83_02]

non serve a niente aprire un ciclo while se i campi file nel form sono solo uno.

[Andrea Toniolo2]

I campi che salva sono 2, se ho capito bene, e sono l'immagine e il pdf.

[Santino83_02]

Originariamente inviato da Andrea Toniolo2
I campi che salva sono 2, se ho capito bene, e sono l'immagine e il pdf.

i campi del form sono molti, ma i file sono 1, quindi l'upload avrà solo un record da dover salvare