%
'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()
%>
<%
Dim SQLArticoli, RSArticoli, FID, ArticoloTrovato
'Effettuo un controllo sul parametro ID
If Request.QueryString("articolo") <> "" AND Request.QueryString("articolo") <> "0" AND IsNumeric(Request.QueryString("articolo")) = True Then
FID = Request.QueryString("articolo")
Else
'Gestione della cache dei motori di ricerca dopo la modifica del parametro ID
If Request.QueryString("id") <> "" AND Request.QueryString("id") <> "0" AND IsNumeric(Request.QueryString("id")) = True Then
FID = Request.QueryString("id")
Else
FID = 0
End If
End If
'Cerco nel database l'articolo richiesto
SQLArticoli = " SELECT * FROM [Articoli] WHERE Articoli.Data <= '"& DataToStr(Date()) &"' AND Articoli.ID = "& FID &" AND NOT Articoli.Bozza "
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 1, 3
'E lo visualizzo avviando in automatico il processo di stampa
If NOT RSArticoli.EOF Then
ArticoloTrovato = False
Do While NOT RSArticoli.EOF
If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then
ArticoloTrovato = True
%>
<%=RSArticoli("Titolo")%>
<%=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"))%>, <%=Pubblicato_In%>
"><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>
<%=Replace(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), Tag_Trailer, "")%>
<%
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
%>