%
'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
%>
<%
End If
%>
<%If Abilita_Commenti AND Abilita_PopupCommenti Then%>
');"> <%=Link_Commenti%>
(<%=RSFotografia("ConteggioID")%>)<%End If%>
<%=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%>
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
%>
<%=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
%>
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.