%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare un singolo articolo in un formato adatto alla stampa
%>
<%
Sub Contenuto()
%>
<%=RSArticoli("Titolo")%>
<%=RSArticoli("Sottotitolo")%>
<%=Replace(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), Tag_Trailer, "")%>
<%=Contributo_Di%>
"><%=RSArticoli("Autore")%> <%=Pubblicato_il%> <%If DataToStr(Date()) = RSArticoli("Data") Then%>
<%=StrToData(RSArticoli("Data"))%><%Else%><%=StrToData(RSArticoli("Data"))%><%End If%> <%=Pubblicato_alle%> <%=StrToOra(RSArticoli("Ora"))%>
<%
End If
RSArticoli.MoveNext
Loop
If ArticoloTrovato = False Then
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
Else
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "stampa.htm"), "", "", "")
Conn.Close
Set Conn = Nothing
%>