inserire + immagini in unico record ...

[luke73]

ciao a tutti.
Ho un piccolo problem con la classe di baol

devo inserire 3 immagini in 1 record ma accade che non riesco a ricavare i nomi delle immagini.
Se utilizzo GetFileName sul nome delle immagini mi crea 3 nuovi record.

Sapete se c'è una discussione in merito?

[luke73]

[Baol74]

fai vedere il codice.

[luke73]

Ti posto il codice

Ho remmato alcune parti di codice che mi looppavano l'inser
sembra che ora funzia ma nn vorrei aver toppato in qualche altro modo.

Il codice adesso nascosto te l'ho indicato con i segni *****

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
Jet OLEDB:Database Password=" & "prestipino" & ";"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " &_
         "Data Source="& Server.MapPath("../../database/db.mdb") &"; " &_
         "Jet OLEDB:Database Password=" & "MYPASSWORD" & ";","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
'Inserimento dei valori
.Database.Fields("AZIENDA_NOME") = .Form("nome")
.Database.Fields("AZIENDA_VIA") = .Form("via")
.Database.Fields("AZIENDA_CITTA") = .Form("citta")
.Database.Fields("AZIENDA_PROV") = .Form("prov")
.Database.Fields("AZIENDA_TEL") = .Form("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")



''''' ho cercato di fare in questo modo ''''''
if .Form("Campo1") <> "" then
str = .Form("Campo1")
arr_str = split(str, "\")
file1 = arr_str(UBound(arr_str))
end if

if .Form("Campo2") <> "" then
str = .Form("Campo2")
arr_str = split(str, "\")
file2 = arr_str(UBound(arr_str))
end if

if .Form("Campo3") <> "" then
str = .Form("Campo3")
arr_str = split(str, "\")
file3 = arr_str(UBound(arr_str))
end if


.Database.Fields("AZIENDA_LOGO") = file1
.Database.Fields("AZIENDA_IMG1") = file2
.Database.Fields("AZIENDA_IMG2") = file3
'Inserimento
.Database.AddNew()
'	.MoveNext **********
'Wend **********
'end if **********
End With

Set oUpload = Nothing

response.Redirect "categorie.asp"

%>

[luke73]

mi carica solo la prima immagine le altre ... bohh!

[Gio&Ste]

Il tuo script va bene, l'ho provato e funziona, devi però togliere tutti quei commenti che hai messo e che non servono altrimenti ti salva solo la prima immagine.

Il mio problema è permettere l'inserimento nel db anche se non ci sono file da uplodare.

[Baol74]

Ma lo script che usi è quello di luke?

[Gio&Ste]

Si, questo è il mio codice adattato.

<%
   
Dim oUpload
Set oUpload= new cUpload
With oUpload

'La riga seguente imposta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/amministrazione.mdb"),"SELECT * FROM aziende " 

.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "../public/aziende"
.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
.Database.Fields("ragsoc") = .Form("ragsoc")
.Database.Fields("indirizzo") = .Form("indirizzo")
.Database.Fields("tel") = .Form("tel")
.Database.Fields("fax") = .Form("fax")
.Database.Fields("descrizione") = .Form("descrizione")
.Database.Fields("categoria") = .Form("categoria")
.Database.Fields("www") = .Form("www")
.Database.Fields("email") = .Form("email")

if .Form("Campo1") <> "" then
str = .Form("Campo1")
arr_str = split(str, "\")
file1 = arr_str(UBound(arr_str))
end if

if .Form("Campo2") <> "" then
str = .Form("Campo2")
arr_str = split(str, "\")
file2 = arr_str(UBound(arr_str))
end if

.Database.Fields("logo") = file1
.Database.Fields("foto") = file2
.Database.AddNew()
Response.Write("Dati salvati correttamente")
	.MoveNext 
Wend 
end if 
End With

Set oUpload = Nothing

%>

Ho provato ad aggiungere anche
.UploadOnly "Images"
ma mi da un errore alla riga 1042 del file upload.asp

[Baol74]

Scusa, ma lo hai letto il codice?

Guarda:

if .EOF then
	NumFiles = .Count() 
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else

Come fa ad andare avanti?

Poi, vuoi metter il filtro sulle immagini?

[Gio&Ste]

diciamo che non ti ho riportato le cose nel modo temporale di come le ho eseguite.

In particolare se tolgo la condizione che hai messo in evidenza non fa un bel niente!