% 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 |
|
|
| LA CASA DEL CONSUMATORE |
|
SEDE REGIONALE: BARI
LECCE Sede Provinciale Via Ofanto 5 Tel. 099.4700694 Fax 099.4700694 Coordinatore provinciale dott. Nicola Di Dio
BARLETTA
Sede Provinciale Via M.Bruno 3 Tel. 0883.532443 Fax 0883.532443 casaconsumatore.bat@tele2.it Coordinatore provinciale Francesco Dicorato
TRANI Sede locale Via XX Settembre 26 Tel. 0883.524925 Coordinatore locale dott.ssa Mariella Cosco
VERNOLE
|
|
La Casa del Consumatore intende effettivamente fornire al Cittadino Consumatore uno strumento di difesa e di tutela e di controllo:
La Casa del Consumatore attua il progetto di protezione del Consumatore a livello locale, del Capoluogo regionale, nazionale e comunitario. I livelli sono intercollegati fra loro, attraverso una rete di fax e di e-mail in modo che, ad esempio, la scortesia di un vigile in un qualunque Comune italiano, può essere ripresa dalla sede della Casa del Consumatore del Capoluogo, regionale e nazionale, per l'informazione agli organi d'informazione e per l'applicazione delle sanzioni previste per il vigile inadempiente. La Casa del Consumatore ha definito rapporti e convenzioni con le principali testate giornalistiche e televisive nazionali, regionali e locali. Con tale meccanismo tutti i soggetti che erogano servizi pubblici o privati, in qualunque parte d'Italia, sanno che la loro inadempienza potrebbe non restare impunita. |
|
|
| HOME |