inserire + immagini in unico record ...

[luke73]

Originariamente inviato da Baol74
Ma lo script che usi è quello di luke?

purtroppo (sigh!) lo script non è mio ma ho adattato un po' il tuo


In sostanza il problema è questo: l'utilizzo di getFileName

Mi spiego. Inizialmente lo script funzionava x3 nel senso che
l'upload fisico delle 3 immagini avveniva ma nel database venivano aggiunti 3 nuovi record.

Modificato lo script come sopra
...
if .Form("Campo1") <> "" then
str = .Form("Campo1")
arr_str = split(str, "\")
file1 = arr_str(UBound(arr_str))
end if
...

l'aggiornamento del database funziava ma che accadeva?
le immagini vengono uploadate ma, nel caso di duplicati, vengono correttamente rinominate dallo script di baol
in database, invece, rimangono i nomi "originali".

L'unico sistema è spiegarmi (con un po' di paziena xké sono un po' tosto di comprendonio ) come funziona .getFileName e come potrei far si che nei 3 campi del database vengano inserite rispettivamente i 3 nomi delle immagini salvate.

[Gio&Ste]

Potresti settare Autorename su FALSE

[luke73]

[luke73]

meglio così .

Però il bacarozzo che c'ho in testa mi dice
"perché non ti fai spiegare come utilizzare al meglio .GetFileName?"



Possibile che non sia possibile (scusa il gioco di parole) permettere l'inserimento di + nomi di files senza creare + record?

& grazie!

[Gio&Ste]

+ record in che senso?

Per rinominare i file ieri avevo trovato dei 3d molto interessanti.

Invece mi puoi spiegare perchè se non inserisco immagini non mi salva i record anche se cancello if all'inizio?

[luke73]

mi spiego
ex ... tabella prodotti. tra i vari campi, oltre a nome_prod, ci sono immagine1, immagine2, immagine3

che accade utilizzando lo script "originale"?
le immagini vengono uploadate regolarmente.
Relativamente all'inserimento nel database, il record viene ripetuto tre volte, inserendo nei campi immagini il nome di una singola immagine
ad ex, se voglio inserire un prodotto dal nome pippo, cui sono associate 3 diverse immagini (rosa.gif, verde.gif, nero.gif)...

- Record 1
nome_prod = pippoBaudo
immagine1 = rosa.gif
immagine2 = rosa.gif
immagine3 = rosa.gif

- Record 2
nome_prod = pippoBaudo
immagine1 = verde.gif
immagine2 = verde.gif
immagine3 = verde.gif

- Record 3
nome_prod = pippoBaudo
immagine1 = nero.gif
immagine2 = nero.gif
immagine3 = nero.gif

sembra che fa un ciclo .GetFileName

[Gio&Ste]

Io lo script che hai postato lo utilizzato e non mi sembra che dia il risultato che dici tu.

Prova a controllare il form, magari c'è qualcosa che non va lì.

[luke73]

ariciao.
Scusa per il ritardo ma la bimba piccola non mi lascia molto tempo per collegarmi.
Comincio dal risultato e poi ti posto lo script:

Questo è quanto:

ID NOME_PROD IMG1 IMG2 IMG3 IMG4
57 prodotto_pippo a-8.gif a-8.gif a-8.gif a-8.gif
58 prodotto_pippo fle1.gif fle1.gif fle1.gif fle1.gif
59 prodotto_pippo fle2.gif fle2.gif fle2.gif fle2.gif
60 prodotto_pippo cint.gif cint.gif cint.gif cint.gif

L'inserimento di 4 immagini relative al prodotto_pippo mi provoca la creazione di 4 record distinti

Ecco lo script:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " &_
         "Data Source="& Server.MapPath("../../mdb-database/db.mdb") &"; " &_
         "Jet OLEDB:Database Password=" & "PPAASSWWOORRDD" & ";","SELECT * FROM AZIENDE"

.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog 	  = False
.AutoRename 	  = True
.Overwrite	  = False
.SetPath "../../images/loghi"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			'response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			nome = .Form("nome")
			via = .Form("via")
			citta = .Form("citta")
			provincia = .Form("prov")
			tel = .Form("tel")
			logo = .Form("Campo1")
			
			if nome = "" or via = "" or citta = "" or provincia = "" or tel = "" or logo = "" then
			response.Redirect("azienda.asp?fatto=MANCA")
		end if
			
		.Database.Fields("AZIENDA_NOME") = UCase(nome)
		.Database.Fields("AZIENDA_VIA") = via
		.Database.Fields("AZIENDA_CITTA") = citta
		.Database.Fields("AZIENDA_PROV") = UCase(provincia)
		.Database.Fields("AZIENDA_TEL") = tel
		.Database.Fields("AZIENDA_FAX") = .Form("fax")
		.Database.Fields("AZIENDA_WWW") = .Form("www")
		.Database.Fields("AZIENDA_MAIL") = .Form("mail")
		.Database.Fields("AZIENDA_INFO") = .Form("info")
        	.Database.Fields("AZIENDA_LOGO") = .GetFileName
		.Database.Fields("AZIENDA_IMG1") = .GetFileName
		.Database.Fields("AZIENDA_IMG2") = .GetFileName
                .Database.Fields("AZIENDA_LOGOMINI") = .GetFileName

		'Inserimento
		.Database.AddNew()
	.MoveNext
Wend
end if
End With
Set oUpload = Nothing

				'response.Redirect "categorie.asp"

%>

Help me!

[Gio&Ste]

Apettiamo la soluzione di Baol!

[Baol74]

La soluzione è questa (solo la parte di salvataggio comprena nell'else):

	nome 		= .Form("nome")
	via 		= .Form("via")
	citta 		= .Form("citta")
	provincia 	= .Form("prov")
	tel 		= .Form("tel")
	logo 		= .Form("Campo1")
		
	if nome = "" or via = "" or citta = "" or provincia = "" or tel = "" or logo = "" then
		response.Redirect("azienda.asp?fatto=MANCA")
	end if

	.Database.Open()
	
	While Not .EOF
		.Save
		Select Case .Files("InputName")
			case "AZIENDA_LOGO": .Database.Fields("AZIENDA_LOGO") = .GetFileName
			Case "AZIENDA_IMG1":.Database.Fields("AZIENDA_IMG1") = .GetFileName
			Case "AZIENDA_IMG2":.Database.Fields("AZIENDA_IMG2") = .GetFileName
			Case "AZIENDA_LOGOMINI":.Database.Fields("AZIENDA_LOGOMINI") = .GetFileName
		End Case
		.MoveNext
	Wend

	.Database.Fields("AZIENDA_NOME") = UCase(nome)
	.Database.Fields("AZIENDA_VIA") = via
	.Database.Fields("AZIENDA_CITTA") = citta
	.Database.Fields("AZIENDA_PROV") = UCase(provincia)
	.Database.Fields("AZIENDA_TEL") = tel
	.Database.Fields("AZIENDA_FAX") = .Form("fax")
	.Database.Fields("AZIENDA_WWW") = .Form("www")
	.Database.Fields("AZIENDA_MAIL") = .Form("mail")
	.Database.Fields("AZIENDA_INFO") = .Form("info")
	
	.Database.AddNew()

In questo codice c'è da fare una modifica importante sul select case.

.Files("InputName") è il nome dell'input di caricamento del file.
Vanni messi i nomi correttamente.

La logica è :
Imposto nom,via ect.
Se Uno di questi non è valorizzato -> (uscita) Redirect
Apertura database
Salvo i files inserendo i nomi nel recodset a seconda del campo di provienienza.
Carico gli altri valori del recordset.
Salvataggio(.Database.AddNew())