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