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