<% 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

 

 
GUIDE E PUBBLICAZIONI
 
Adusbef
 
Codici
 
 
 
Adiconsum
 
 
 
Adiconsum, Adoc, Altroconsumo, Assoutenti, Cittadinanzattiva, Confconsumatori, Federconsumatori, Lega Consumatori, Movimento Consumatori, Movimento Difesa del Cittadino, Unione Nazionale Consumatori
 
 
Unione Nazionale Consumatori
 
 
Codacons
 
 
Adoc
 

Questa guida intende fornire, nella maniera pił semplice e diretta, le informazioni e i consigli utili per partire informati evitando i tanto spiacevoli errori che potrebbero compromettere, in tutto o in parte, la vacanza.

Questa miniguida sintetizza le domande pił frequenti a tutela dei consumatori nella compravendita di un pacchetto/servizio turistico.

 
 

HOME