<% '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 %> <% '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") %> <% If NOT Abilita_ResizeASPNET Then %> " alt="<%=ALT_Immagine_Fotografia%>" align="middle"/> <% Else %>
"> " title="CLICCA SULLA FOTO PER ACCEDERE ALLA DIMENSIONE ORIGINALE. Info Copyright: l'immagine può essere condivisa e riprodotta solo se NON ALTERATA e citando sempre il nome dell'autore e/o la FONTE" alt="<%=ALT_Immagine_Fotografia%>" align="absmiddle" height="540"/>
<% End If %>
<%If Abilita_Commenti AND Abilita_PopupCommenti Then%> ');"> <%=Link_Commenti%> (<%=RSFotografia("ConteggioID")%>)<%End If%> <%=ALT_Ico_Sezioni%> <%=Categorie_Fotografie%> "> Permalink  "> FaceBook    "> Indietro | "> Avanti

<%=RSFotografia("Descrizione")%>

<%=Contributo_Di%> "><%=RSFotografia("Autore")%> <%=Pubblicato_il%> <%=StrToData(RSFotografia("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSFotografia("Ora"))%> <%=Pubblicato_Letture%> <%=RSFotografia("Letture")%> <%=Pubblicato_Letture_chiudi%>

<%=Sezione_Fotografie%> » <%=Pubblicato_In%>"><%=RSFotografia("Sezione")%> » <%=Link_Fotografie%>

 
Ultime foto inserite nella sezione FotoNotizie

<% '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 %>
<% '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 %>
"> Commento n: <%=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_Commento%>
<%=Testo_Campo_Nome%>
<%=Testo_Campo_EMailLink%>

Prima dell'invio, inserisci i numeri del codice di sicurezza che vedi apparire qui sotto

<%=Testo_Campo_Captcha%> Codice di sicurezza
 

Per inserire le faccine nel campo "Commento", digita il codice che appare al passaggio del mouse sull'emoticon che ti interessa

:-)  :-D  ;-)  :-\  8-)  :-*  :-P  :-Z  E-)  :-o  :-(  S-(  X-|

AVVERTENZE da leggere prima di postare i commenti
Non sono consentiti:
1) messaggi inseriti interamente con caratteri maiuscoli
2) messaggi non inerenti al post
3) messaggi pubblicitari
4) messaggi con linguaggio offensivo e/o lesivo nei confronti di terzi
5) messaggi che contengono turpiloquio
6) messaggi con contenuto sessista, razzista ed antisemitico

7) messaggi il cui contenuto costituisce una violazione delle leggi italiane (istigazione a delinquere o alla violenza, diffamazione, ecc.)

8) messaggi inseriti col copia ed incolla di lunghi articoli


Il gestore del sito si riserva il diritto di rimuovere qualsiasi dato inserito, senza preavviso e senza fornire alcuna motivazione.

In ogni caso, l'amministratore di bandacasoli.it non potrà essere ritenuto responsabile per eventuali messaggi lesivi di diritti di terzi e non risponde per eventuali controversie che dovessero insorgere tra gli utenti. Ogni utente è responsabile dei dati che inserisce e ad ogni sua azione corrisponde un indirizzo IP registrato su database.

<%=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_fotografia.htm"), METATitleDinamicoPagina, METAKeywordDinamicoPagina, METADescriptionDinamicoPagina) Conn.Close Set Conn = Nothing %>