Bacheca virtuale

**bobovieri** · 06-02-2004, 13:58

Salve a tutti i naviganti!!!
Ho un piccolo problema. Dovrei creare una sorta di bacheca virtuale che da una pop up dove è inserita una lista delle comunicazioni interne, al clic su una comunicazione, mi apre un'altra pop up con la visualizzazione della comunicazione stessa. Il problema che non riesco a risolvere è come fare a creare la lista e il conseguente caricamento della pop up con la comunicazione precedentemente selezionata. Questo "servizio" è parte di una Intranet che usa anche pagine ASP. Non so se sia più semplice fare la bacheca con ASP o con Flash.

Potete darmi una manina???

Grazie a tutti coloro che mi indicheranno la retta via!!!

**grandeorco** · 06-02-2004, 17:02

E' senzaltro piu semplice farla in una pagina asp, ma si puo fare anche con flash.Devi inserire in un db il titolo della notizia e la notizia, quindi ci vuole un form per questo. Devi visualizzare i titoli e devi renderli linkabili, e devono puntare ad una pagina asp
che interrogi il db alla riga dove il titolo è quello che hai cliccato. Facile no ?

**bobovieri** · 06-02-2004, 17:22

Insomma....

Quindi: db con tre colonne: 1°colonna "ID notizia", 2°colonna "Titolo", 3°colonna "Notizia". E fin qui non ci sono problemi. Ma a volte capita che le comunicazioni siano anche di 5-6 pagine (entrate tutte le pagine in un record di Access???).

E poi il form di cui tu parli è una pagina in ASP, vero???

Infine: l'interrogazione al db mi sta anche bene ma come faccio a fargli aprire la comunicazione in base al titolo che ho selezionato???

Perdonami ma ASP non lo conosco tanto...

Se mi potresti aiutare anche indicandomi dei tutorial...

Grazie mille

**grandeorco** · 06-02-2004, 18:15

Senza usare flash, per il momento. I campi del db vanno bene e se le informazioni sono lunghe imposta il campo notizia con valore (memo).
Con il semplice form riempi il db.
Diciamo che la pagina che fa verdere i titoli si chiama bacheca.asp,
quando apri questa pagina , (ci deve essere un codice tipo ),

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/PERCORSO.mdb/")
sql = "SELECT * FROM TABELLA ORDER by id DESC "
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
Response.Write "Non ci sono dati disponibili!"
Else
Do Until Rs.EOF
dati = dati & "<a target='_blank' PERCORSO_ALLA_PAGINA_CHE_SELEZIONA_LE_NOTIZIE?tito lo=" & Rs("titolo") & "'>" & Rs("titolo") & "</a>" & "
"
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%><%=dati%>

ti dovrebbe dare la lista linkata di tutti i titoli.
Ora devi fare la pagina che si apre sulla notizia chiamata notizia.asp, con un codice tipo
<%
titolo = request.QueryString("titolo")
titolo = replace(titolo,"'","''")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/PERCORSO.mdb/")
sql = "SELECT * FROM TABELLA WHERE titolo LIKE '%" & titolo & "%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
Response.Write "Non ci sono dati disponibili!"
Else
Do Until Rs.EOF
notizia = Rs("notizia")
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%><%=notizia%>

e dovrebbe visualizzare la notizia.

**bobovieri** · 06-02-2004, 18:57

Grazie Grandeorco!!!

Visto che sono le 17.52 e a me alle 18.00 cade la penna e mi si spegne anche il computer (che peccato!!! :sexpulp::sexpulp::sexpulp

proverò lunedi.

Intanto non so come ringraziarti per l'enorme aiuto che mi hai dato, e soprattutto per il codice che mi studierò bene bene.

Probabilmente ci risentiremo presto, anche per ringraziarti di nuovo quando tutto funzionerà alla perfezione.

Grazie ancora e buon fine settimana a tutti!!!

**bobovieri** · 09-02-2004, 13:50

Buongiorno Grandeorco!!!
Come ti avevo promesso venerdi, eccomi qui a chedere spiegazioni sul perchè a te le cose funzionano e a me no (che non è una cosa tanto carina!!!)

Cominciamo:
ho creato una pagina (bacheca.asp) dove ho inserito una tabella 2*2;
nel tag <body> della pagina ho inserito il codice che mi hai postato opportunamente modificato per il mio scopo

codice:

<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("C:\Documents and Settings\Thomas\Desktop\Bacheca\bacheca.mdb") 
sql = "SELECT * FROM Tabella ORDER by "ID Notizia"" 
Set Rs = Conn.Execute(sql) 
If Rs.EOF Then 
Response.Write "Non ci sono dati disponibili!" 
Else 
Do Until Rs.EOF 
dati = dati & "<a target='_blank' PERCORSO_ALLA_PAGINA_CHE_SELEZIONA_LE_NOTIZIE?titolo=" & Rs("titolo") & "'>" & Rs("titolo") & "</a>" & "
" 
Rs.MoveNext 
Loop 
End If 
Rs.Close 
Set Rs = Nothing 
Conn.Close 
Set Conn = Nothing 
%><%=dati%>

(in neretto le modifiche da me effettuate)
nella tabella del database ho inserito 4 notizie di prova che quindi dovrebbe visualizzarmi ma non mi visualizza nulla; è come se non ci fosse una riga di codice!!!

Perchè???

Un'altra cosina: quando tu dici "PERCORSO_ALLA_PAGINA_CHE_SELEZIONA_LE_NOTIZIE "
la pagina è bacheca.asp, vero???

Grazie anticipatamente per l'aiuto che mi vorrai e potrai dare!!!

**grandeorco** · 09-02-2004, 14:44

No nel caso la pagina è notizia.asp, ma per farlo funzionare in locale hai installato tutto?

**grandeorco** · 09-02-2004, 14:46

"ID Notizia" prova ID desc senza virgolette

**bobovieri** · 09-02-2004, 15:22

Come al solito grzie innanzitutto!!!

Problema 1:
la pagina che seleziona le notizie è quella dei risultati???

Problema 2:
mi ero dimenticato di inserire tutto nella solita cartella wwwroot.

Provvedo immediatamente.

Intanto grazie mille!!!

Mi farò risentire probabilmente molto presto!!!

**bobovieri** · 17-02-2004, 17:52

Ciao Grandeorco!!!

Come ti avevo promesso eccomi qui, ma questa volta solo per avvertirti che funziona tutto, la lista, l'apertura delle notizie ecc ecc (e tu dirai: e sti....!!!) Scherzo!!!!!!!!!!!

Volevo ancora ringraziarti per l'enorme aiuto che mi hai dato e per la pazienza!!!

Ciao e a presto!!!

Discussione: Bacheca virtuale

Strumenti discussione

Ricerca discussione

Visualizza

Bacheca virtuale

Permessi di invio