<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare la singola fotografia ed i relativi dettagli %> <% Sub Contenuto() Dim SQLFotografia, RSFotografia, FID, FSTFotografia, SQLAggiornaFotografie, RSAggiornaFotografie, FotografiaTrovata 'Effettuo il controllo sul parametro id If Request.QueryString("fotografia") <> "" AND Request.QueryString("fotografia") <> "0" AND IsNumeric(Request.QueryString("fotografia")) = True Then FID = Request.QueryString("fotografia") 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 la fotografia in base al parametro id SQLFotografia = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM [Commenti] RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' AND Fotografie.ID = "& FID &" GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Data, Fotografie.Ora DESC" Set RSFotografia = Server.CreateObject("ADODB.Recordset") RSFotografia.Open SQLFotografia, Conn, 1, 3 %>
\\ <%=Sezione_HomePage%> : <%=Sezione_Fotografie%> : <%=Link_Fotografie%>
<% 'E visualizzo gli eventuali risultati If NOT RSFotografia.EOF Then FotografiaTrovata = False Do While NOT RSFotografia.EOF If Now() > cDate(StrToData(RSFotografia("Data")) & " " & StrToOra(RSFotografia("Ora"))) Then FotografiaTrovata = True Set FSTFotografia = CreateObject("Scripting.FileSystemObject") %>
<%=Contributo_Di%> "><%=RSFotografia("Autore")%> <%=Pubblicato_alle_singola%> <%=StrToOra(RSFotografia("Data"))%> <%=Pubblicato_In%> "><%=RSFotografia("Sezione")%><%=Pubblicato_chiudi%>
<%=RSFotografia("Descrizione")%>
<% If NOT Abilita_ResizeASPNET Then %> " alt="<%=ALT_Immagine_Fotografia%>" /> <% Else %> &opx=<%=Num_ResizeASPNET_LarghezzaFotoGrande%>" alt="<%=ALT_Immagine_Fotografia%>" /> <% End If %>
<%If Abilita_Commenti AND Abilita_PopupCommenti Then%>');"><%=ALT_Ico_Commenti%> <%=Link_Commenti%> (<%=RSFotografia("ConteggioID")%>)<%End If%> <%=ALT_Ico_Sezioni%> <%=Categorie_Fotografie%>
<% 'Ed aggiorno il numero di hit ricevute SQLAggiornaFotografie = " UPDATE [Fotografie] SET Fotografie.Letture = Fotografie.Letture + 1 WHERE Fotografie.ID = "& FID &" " Set RSAggiornaFotografie = Server.CreateObject("ADODB.Recordset") RSAggiornaFotografie.Open SQLAggiornaFotografie, Conn, 1, 3 Set RSAggiornaFotografie = Nothing End If RSFotografia.MoveNext Set FSTFotografia = Nothing 'Ed aggiorno il numero di hit ricevute SQLAggiornaFotografie = " UPDATE [Fotografie] SET Fotografie.Letture = Fotografie.Letture + 1 WHERE Fotografie.ID = "& FID &" " Set RSAggiornaFotografie = Server.CreateObject("ADODB.Recordset") RSAggiornaFotografie.Open SQLAggiornaFotografie, Conn, 1, 3 Set RSAggiornaFotografie = Nothing Loop If FotografiaTrovata = False Then %>
<%=Errore_Fotografia_NonTrovata%>
<% Else If NOT Abilita_PopupCommenti Then 'Se i commenti sono abilitati If Abilita_Commenti Then %>
 
<%=Testo_Titolo_AreaCommenti%>
<% 'Cerco i commenti relativi alla fotografia richiesta SQLCommenti = " SELECT * FROM [Commenti] WHERE Commenti.IDFotografia = "& FID &" ORDER BY [Data] ASC, [Ora] ASC " Set RSCommenti = Server.CreateObject("ADODB.Recordset") RSCommenti.Open SQLCommenti, Conn, 1, 3 'E visualizzo gli eventuali risultati If NOT RSCommenti.EOF Then I = 0 Do While NOT RSCommenti.EOF I = I + 1 %>
"># <%=I%>
<%=RSCommenti("Testo")%>
<%=Contributo_Di%>  <% If RSCommenti("Link") <> "" Then Response.Write ""& RSCommenti("Autore") &"" Else Response.Write ""& RSCommenti("Autore") &"" End If %>  <%=Inviato_il%> <%=StrToData(RSCommenti("Data"))%> <%=Inviato_alle%> <%=StrToOra(RSCommenti("Ora"))%><%=Inviato_chiudi%>
<% RSCommenti.MoveNext Loop Else %>
<%=Errore_Commento_NonTrovato%>

<% End If Set RSCommenti = Nothing %>
<%=Testo_Campo_Captcha%> CAPTCHA
<%=Testo_Campo_Commento%>
<%=Testo_Campo_Nome%>
<%=Testo_Campo_EMailLink%>


<%=Testo_Disclaimer_Commenti%>
<% Else %>
<%=Errore_Commenti_NonAbilitati%>
<% End If End If End If Else %>
<%=Errore_Fotografia_NonTrovata%>
<% End If End Sub 'Generazione dinamica di Titolo, Meta Keyword e Meta Description Dim SQLFotografia, RSFotografia, FID, METATitleDinamicoPagina, METAKeywordDinamicoPagina, METADescriptionDinamicoPagina 'Effettuo il controllo sul parametro id If Request.QueryString("fotografia") <> "" AND Request.QueryString("fotografia") <> "0" AND IsNumeric(Request.QueryString("fotografia")) = True Then FID = Request.QueryString("fotografia") 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 la fotografia in base al parametro id SQLFotografia = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM [Commenti] RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data & Fotografie.Ora <= '"& DataToStr(Date()) & OraToStr(Time()) &"' AND Fotografie.ID = "& FID &" GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Data, Fotografie.Ora DESC" Set RSFotografia = Server.CreateObject("ADODB.Recordset") RSFotografia.Open SQLFotografia, Conn, 1, 3 If NOT RSFotografia.EOF Then RSFotografia.MoveFirst METATitleDinamicoPagina = Server.HTMLEncode(RSFotografia("Descrizione")) METAKeywordDinamicoPagina = Server.HTMLEncode(EstrapolaKeyword(RSFotografia("Sezione") &" "& RSFotografia("Descrizione"))) METADescriptionDinamicoPagina = Server.HTMLEncode(RSFotografia("Sezione") &" - "& RSFotografia("Descrizione")) RSFotografia.MoveFirst Else METATitleDinamicoPagina = "" METAKeywordDinamicoPagina = "" METADescriptionDinamicoPagina = "" End If Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), METATitleDinamicoPagina, METAKeywordDinamicoPagina, METADescriptionDinamicoPagina) Conn.Close Set Conn = Nothing %>