% response.expires=-1 ' Stringa di connessione al DB SQLStrConn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="+server.MapPath("\")+"\cgi-bin\IPC.mdb; Persist Security Info = False" ' Istanzia l'oggetto Connection e quello Recordset Set cnn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.recordset") ' Apre la connessione al DB cnn.Open SQLStrConn ' imposta la stringa SQL SQL="Select * from PrimoPiano where Attiva=-1 order by data desc;" set rs=cnn.Execute(SQL) TestoPP="" if not rs.EOF then ' Ci sono record rs.MoveFirst TestoPP=""+">> "+cstr(rs.fields("Data"))+" - "+rs.fields("Titolo") TestoPP=TestoPP+"
"
TestoPP=TestoPP+""+rs.fields("Testo")+""
else
TestoPP="Nessuna notizia da segnalare"
TestoPP=TestoPP+""
end if
rs.close
' imposta la stringa SQL
SQL="Select * from News where Attiva=-1 order by data desc;"
set rs=cnn.Execute(SQL)
TestoNews=""
' *********************
' Per diminuire/aumentare il n° di news da caricare nella home
NewsDaCaricare=5
' *********************
i=1
if not rs.EOF then
' Ci sono record
TestoNews=""
rs.MoveFirst
' Inizia la scansione delle news
do while not rs.eof
TestoNews=TestoNews+""+cstr(rs.fields("Data"))+"
"+rs.fields("Titolo")
TestoNews=TestoNews+"
"
TestoNews=TestoNews+""+left(rs.fields("Testo"),150)+"... [continua]"+"
"+" --------------------------------------------------------------------------------"+""
TestoNews=TestoNews+"
"
rs.movenext
i=i+1
if i>NewsDaCaricare then exit do
loop
else
TestoNews="Nessuna notizia da segnalare"
TestoNews=TestoNews+""
end if
' Chiude e libera Connection e Recordset
rs.Close
set rs=nothing
cnn.Close
set cnn=nothing
%>
| Sito in modalità grafica | Sito accessibile | Sito ipovedenti | |
|
|
|
|
ISTITUTO PUGLIESE CONSUMO |
|
|
|
|
| POLIDREAM - UNIONE CONSUMATORI | |
| http://www.polidream.org/ | |
|
|
|
La POLIDREAM UNIONE CONSUMATORI si costituisce a Polignano a Mare (Ba) nel 1989, nascendo all’inizio come gruppo di acquisto che, tramite convenzioni con esercizi commerciali qualificati e scelti attraverso indagini di mercato, riesce ad ottenere sconti su ogni tipo di spesa. Successivamente, raccogliendo i bisogni e i disagi diffusi tra i consumatori, allarga la sua sfera d’intervento a tutte le tematiche del consumo, dell’utenza, della cittadinanza e apre sportelli di assistenza, consulenza e informazione. Dal 1990 al 1992 i suoi promotori, Angela Mannarini e Stefano Modugno, conducono una delle prime trasmissioni televisive sui diritti dei consumatori, “La voce del Consumatore”, sull’emittente TELERAM. Poi, nel 1994 e 1995, curano una rubrica del consumatore nel programma di TELENORBA “Lavori in Corso”. Tra le tante iniziative spiccano:
Attualmente l’associazione conta circa 1.500 famiglie di iscritti, e con i suoi sportelli cura ogni anno circa 7.000 reclami. E’ stata recentemente premiata dal Ministero delle Attività Produttive per l’ideazione di due progetti regionali a favore dei consumatori: “Il ConsumATTORE in Puglia” e “RC Auto equa e sicura in Puglia”. Nei programmi futuri della Polidream c’è soprattutto l’apertura di Centri Famiglia per l’educazione al consumo critico, consapevole, equo e solidale, mediante gruppi di acquisto e anche attraverso accordi con le Botteghe del Mondo, la Banca Etica, Aziende di produzione biologica e di energia pulita e rinnovabile, e per la difesa dei soggetti più deboli del mercato e della società: nuovi poveri, anziani, disabili, bambini, etc. |
|
|
|
|
| HOME |