<% 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 %> Istituto Pugliese Consumo

 
Sito in modalità grafica | Sito accessibile | Sito ipovedenti
 

 

ISTITUTO PUGLIESE CONSUMO

 

 
MOVIMENTO CONSUMATORI
 
http://www.movimentoconsumatoriandria.it
 
PUGLIA - Sede Regionale
Via Pascoli, 5 - 70031 Andria BT
0883 591030 - 0883 591030
puglia@movimentoconsumatori.it
 
PUGLIA - Andria
Via Pascoli, 5 - 70031 Andria BT
0883 591030 - 0883 591030
andria@movimentoconsumatori.it
 
PUGLIA - Brindisi
Via Rubini 12 - 72100 Brindisi BR
328 2269483 - 0831 568308
brindisi@movimentoconsumatori.it
 
PUGLIA - Molfetta
Via Termiti, 25 - 70056 Molfetta BA
080 3354776 - 080 3354776
molfetta@movimentoconsumatori.it
 
PUGLIA - Ostuni
Via G. Bruno, 21 - 72017 Ostuni BR
0831 305991 - 0831 305991
ostuni@movimentoconsumatori.it
 
PUGLIA - Sportello di Bari
Via Bonazzi, 59 - 70100 Bari BA
080 5227965 - 080 5227965
bari@movimentoconsumatori.it
 
PUGLIA - Sportello di Noci
Via S. Ten Guerra, 14 - 70015 Noci BA
080 4978650 - 080 4978650
noci@movimentoconsumatori.it
 
PUGLIA - San Severo
Via Tiberio Solis, 89 - 71016 San Severo FG
0882 223774 - 0882 223774
sansevero@movimentoconsumatori.it
 
PUGLIA - Sportello di Foggia
Via d'Addedda, 12 - 71122 Foggia FG
0881 665803 - 0881 665803
foggia@movimentoconsumatori.it
 
PUGLIA - Taranto
Via Sannio, 25 - 74100 Taranto TA
099 7324647 - 099 7324697
taranto@movimentoconsumatori.it
 
PUGLIA - Trani
Corso Don Luigi Sturzo, 80 - 70059 Trani BT
347 8006116 - 349 4741684 - 0883 591932
trani@movimentoconsumatori.it
 
 
Il Movimento Consumatori è un'associazione autonoma senza scopo di lucro. Il coordinamento Regionale ha sede in Andria (Ba) alla Via G.Pascoli n.7. Si prefigge di tutelare e sostenere i diritti e gli interessi dei consumatori, degli utenti, dei risparmiatori e dei contribuenti; di promuovere lo sviluppo e la diffusione della cultura consumeristica e dell’educazione ad un consumo sostenibile e ambientalmente compatibile.

HOME