Ultime notizie
<%
set oconn = Server.CreateObject("ADODB.Connection")
oconn.open ProvSa
i=0
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open "SELECT dbo.entita.descrizione as des,dbo.news.*, dbo.categorie.id_categoria AS Expr1 FROM dbo.entita INNER JOIN dbo.sottocategorie ON dbo.entita.id_sottocategoria = dbo.sottocategorie.id_sottocategoria INNER JOIN dbo.categorie ON dbo.sottocategorie.id_categoria = dbo.categorie.id_categoria INNER JOIN dbo.news ON dbo.entita.id_entita = dbo.news.id_entita WHERE dbo.news.id_entita =197 ORDER BY data DESC" , oconn
do while (rs1.eof=false) AND (i<4)
if rs1("visibile") > 0 then
%>
<%=rs1("titolo")%>
<%=rs1("data")%> / <%=rs1("des")%>
<%
x=left(rs1("testo"),342)
x=replace(x,"
","")
x=replace(x,"
","")
x=replace(x,"à","à")
x=replace(x,"è","è")
x=replace(x,"ì","ì")
x=replace(x,"ò","ò")
x=replace(x,"ù","ù")
x=replace(x,"é","é")
x=replace(x,"©","©")
x=replace(x,"®","®")
x=replace(x,"’","'")
x=replace(x,"“",""")
x=replace(x,"”",""")
response.write(trim(x))
%>...
(" title="Leggi l'intera notizia">continua)
<%If (i=1) then%>
<%end if%>
<%
i=i+1
end if
rs1.movenext
loop
rs1.close
oconn.close
%>