% 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 |
|
|
| CODACONS |
| http://www.codacons.it |
|
SEDE
REGIONALE V Quintino Sella 241 70122 - Bari Tel.0805214974 – Fax: 0805218161 email avv.aamato@libero.it
Sportello di Città |
| Clicca qui per le sedi locali |
|
COORDINAMENTO DI ASSOCIAZIONI PER LA TUTELA
DELL’AMBIENTE E DEI DIRITTI DI UTENTI E CONSUMATORI Il CODACONS è una Associazione a base democratica e partecipativa che opera per la tutela dei diritti e degli interessi dei consumatori e degli utenti di beni e servizi erogati da soggetti privati e pubblici (artt. 1 e 2 Statuto). E’ componente della “Consulta dei consumatori e degli utenti” istituita con decreto del Ministro dell’industria e dell’Artigianato 11.11.1994, nonché componente ex lege del “Consiglio nazionale dei consumatori e degli utenti” istituito dall’art. 4, l. 30.7.1998, n. 281. Il CODACONS ha altresì ottenuto il riconoscimento a norma di legge quale “associazione di protezione ambientale” (l. n. 349/1986), “organizzazione di volontariato” (l. n. 266/1991) ed “associazione per la prevenzione dell’usura” (l. n. 108/1996). L’ambito di intervento dell’Associazione deducente è esteso a tutti i settori della società civile e della vita politica, amministrativa e produttiva; tra i principali strumenti di azione del CODACONS rientrano l’organizzazione e gestione di attività di comunicazione ed informazione ed il “ricorso allo strumento giudiziario” (art. 2 Statuto), reso più penetrante a seguito dell’entrata in vigore della legge n. 281/1998 cit., che espressamente conferisce alle associazioni dei consumatori e degli utenti la legittimazione ad agire a tutela di interessi collettivi (art. 3). |
|
|
| HOME |