News
<% id=request.querystring("id") set oconn = Server.CreateObject("ADODB.Connection") oconn.open ProvSa Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT [categorie].id_categoria as id_cat, [categorie].descrizione as descr, [entita].descrizione as entnews, news.* FROM (categorie INNER JOIN sottocategorie ON [categorie].[id_categoria]=[sottocategorie].[id_categoria]) INNER JOIN (entita INNER JOIN news ON [entita].[id_entita]=[news].[id_entita]) ON [sottocategorie].[id_sottocategoria]=[entita].[id_sottocategoria] WHERE news.id_news=" & id & ";", oconn %> <% do while not rs.eof %> <%= rs("data") %> / <%=rs("entnews")%><%=rs("titolo")%>
<% if rs("sottotitolo")<>"" then %><%= rs("sottotitolo") %>
<% end if %> <% if rs("foto")<>"" then %>
" style="border: <%= rs("bordo") %>px solid black; float:<%= rs("allineamento") %>;" alt="" />
<% end if %>
<%
x=rs("testo")
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,"”",""") x=replace(x,"–","-") x=replace(x,VbCrLf,"") %>
<%=x%>
<% rs.movenext loop rs.close set rs=nothing oconn.close set oconn=nothing %>