% 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 |
|
|
|
|
| CODICI - CENTRO PER I DIRITTI DEL CITTADINO | |
| http://www.codici.org | |
|
|
|
Un'associazione di cittadini impegnata ad affermare, promuovere e tutelare i diritti dei cittadini con particolare riferimento alle persone più indifese ed emarginate. Nasce nel 1993 come coordinamento di associazioni per la tutela dei diritti del cittadino, nel 1998 scioglie la sua struttura confederativa e si trasforma nell'associazione CODICI centro per i diritti del cittadino, quale associazione impegnata ad affermare i diritti dei cittadini consumatori, senza distinzione di classe, sesso, credenza religiosa e appartenenza politica. Un'attività presente in modo capillare sull'intero territorio nazionale. L'associazione, infatti, con le sue sedi regionali e provinciali, si caratterizza per il contatto diretto che cerca di creare con i cittadini, al fine di cogliere le reali necessità ed offrire soluzioni concrete. Quotidianamente all'interno del CODICI dei cittadini offrono la loro professionalità per promuovere e difendere i diritti di altri cittadini, ed è questa prossimità che ci sprona, e rende più facile, a farci portavoce di istanze sociali. Il CODICI si avvale di variegati strumenti per offrire un servizio utile ai cittadini:
|
|
|
|
|
| HOME |