<% '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() %>
\\ <%=Sezione_HomePage%> : "><%=Sezione_Articolo%> : <%=Sezione_Stampa%>
<% 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 %>