ASP Easy News - Aggiungere immagine news

[Alcolico]

Ciao a tutti,
premetto che mi sono riavvicinato ora ad ASP dopo che anni fa avevo iniziato a studiarlo poi abbandonato per mancanza di tempo purtroppo..
Sto cercando di aggiungere l'upload di immagini al CMS per la gestione delle news in oggetto. Utilizza un DB MS Access. In pratica ogni news dovrebbe avere la propria immagine caricata tramite upload e richiamata poi da un link.. Vorrei salvare il percorso dell'immagine nel db così da non appesantirlo tr.. Essendo su hosting aruba ho provato il loro script ASPUpload e funziona senza problemi. Ho provato a metter insieme il tutto ma x svariati errori e per semplificare le cose vorrei tener separato l'upload dell'immagine dall'inserimento della news..e qui arrivano i miei problemi:

- salvare il percorso dell'immagine con l'ASPUpload
- assegnare ad ogni news la rispettiva immagine

Vorrei capirci qualcosa quindi vi chiedo la strada migliore da seguire per arrivare alla soluzione.. Grazie!!!!

[Roby_72]

nuova_news.asp

<form method="post" action="nuova_news_ok.asp" id="form_news" enctype="multipart/form-data">
<input type="file" name="news_foto" id="news_foto" />
<input type="submit" name="invia" id="invia" value="Inserisci &#187;" title="Conferma inserimento" />
</form>

nuova_news_ok.asp

<%
'Verifico i dati
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save

news_foto = ""
Set file = Upload.Files("news_foto")
If Not file Is Nothing Then
	if LCase(file.Ext) <> ".jpg" then
	        messaggio = "Il campo 'Foto' non ha estensione 'jpg'"
        else
            news_foto = data_upload & file.Ext
            file.SaveAs(server.MapPath(percorso_news_foto & news_foto))
        end if
end if
Set Upload = nothing
%>

Nella variabile news_foto hai il nome della foto da inserire nel db, mentre percorso_news_foto contiene il path con i permessi di scrittura in cui salvarla fisicamente.
A questo punto però ti serve l'ID della news.
Puoi andar a modificare la news inserita passando nel link l'ID oppure recuperarlo non appena la inserisci. Come preferisci.

Roby

[Alcolico]

Innanzitutto grazie Roby x la risp..nn mi uccidere ma ti posto il codice cn le modifiche che mi restituisce l'errore:
Microsoft VBScript compilation error '800a0400'
Expected statement
/Prova2/ASPFiles/Admin/News/nuova_news_ok.asp, line 19
& File.news_foto & "', "
^

<%
'Verifico i dati
Set Upload = Server.CreateObject("Persits.Upload")
percorso = Server.MapPath("/mdb-database")
	Upload.Save percorso

news_foto = ""
Set file = Upload.Files("news_foto")
If Not file Is Nothing Then
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/News.mdb")

	if LCase(file.Ext) <> ".jpg" then
	        messaggio = "Il campo 'Foto' non ha estensione 'jpg'"
        else
            news_foto = data_upload & file.Ext
            file.SaveAs(server.MapPath("/mdb-database/News.mdb" & percorso_news_foto & news_foto))
        end if
        SQL = "INSERT INTO MYIMAGES(news_foto, percorso_news_foto) VALUES(?, '"
		SQL = SQL & File.news_foto & "', "
		SQL = SQL & File.percorso_news_foto & ")"
File.ToDatabase Connect, SQL
		Response.Write "File salvato nel db."
	Else
		Response.Write "File non selezionato."
	
end if
Set Upload = nothing
%>

qual'è il problema?? nella mia ignoranza di asp nn capisco..

[Roby_72]

percorso_news_foto è un campo di testo non numerico pertanto lo devi trattare come news_foto mettendo gli apici.

Roby

[Alcolico]

lentamente causa tempo ma sto procedendo..

<%
'Verifico i dati
Set Upload = Server.CreateObject("Persits.Upload")
percorso = Server.MapPath("/mdb-database")
	Upload.Save percorso

news_foto = ""
Set file = Upload.Files("news_foto")
If Not file Is Nothing Then
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/News.mdb")

	if LCase(file.Ext) <> ".jpg" then
	        messaggio = "Il campo 'Foto' non ha estensione 'jpg'"
        else
            news_foto = data_upload & file.Ext
            file.SaveAs(server.MapPath("/mdb-database/News.mdb" & percorso_news_foto & news_foto))
        end if
        SQL = "INSERT into MYIMAGES (news_foto,percorso_news_foto) VALUES('"&news_foto&"', '"&percorso_news_foto&"')"

File.ToDatabase Connect, SQL
		Response.Write "File salvato nel db."
	Else
		Response.Write "File non selezionato."
	
end if
Set Upload = nothing
%>

ora il file scelto viene trasferito sul server e nn ricevo errori ma nel db viene salvato solo il .jpg in news_foto

[Roby_72]

Ma tu nel db cosa vuoi salvare?
Perché hai messo due campi news_foto e percorso_news_foto? Te ne basta uno che contenga tutto insieme.
Poi tu nello script in alto il percorso lo hai chiamato "percorso" e "non percorso_news_foto"

Roby

[Alcolico]

Roby + ke la coppa del mondo ci vorrebbe un monumento x te..

a forza di nn mi accorgo neanke di un errore così banale..

Allora..nel db mi basterebbe salvare solo il path dell'immagine "uploadata" x poi poterlo recuperare ed assegnare ad un link in una determinata news..il campo nome era un x di +..

[Roby_72]

Allora...

SQL = "INSERT into MYIMAGES (campo) VALUES('"&percorso_news_foto&"/"&news_foto&"')"

Ovviamente devi stabilire se usare percorso o percorso_news_foto.... e correggere anche la riga dell'upload eventualmente.

Roby

[Alcolico]

Ci siamo quasi..

<%
'Verifico i dati
Set Upload = Server.CreateObject("Persits.Upload")
percorso = Server.MapPath("/mdb-database/")
	Upload.Save (percorso)

news_foto = ""
Set file = Upload.Files("news_foto")
If Not file Is Nothing Then
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/News.mdb")

	if LCase(file.Ext) <> ".jpg" then
	        messaggio = "Il campo 'Foto' non ha estensione 'jpg'"
        else
            news_foto = data_upload & file.Ext
            file.SaveAs(server.MapPath("/mdb-database/News.mdb" & "&percorso&" & "&news_foto&"))
        end if
        SQL = "INSERT into MYIMAGES (percorso) VALUES('"&percorso&"\"&news_foto&"')"

File.ToDatabase Connect, SQL
		Response.Write "File salvato nel db."
	Else
		Response.Write "File non selezionato."
	
end if
Set Upload = nothing
%>

upload ok..salvataggio percorso nel db ok..ma nn salva il nome dell'immagine caricata..
in pratica x ogni immagine caricata nel db salva ...\mdb-database\.jpg

[Roby_72]

"data_upload" non vale nulla...

Roby