%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare il singolo articolo (permalink)
%>
<%
Sub Contenuto()
%>
<%=RSArticoli("Titolo")%>
<%=RSArticoli("Sottotitolo")%>
<%=Replace(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), Tag_Trailer, "")%>
<%
If RSArticoli("Podcast") <> "" AND NOT IsNull(RSArticoli("Podcast")) Then
Call PodcastPlayer(RSArticoli("Podcast"), RSArticoli("Podcast"))
End If
%>
<%=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"))%> - sez.<%=Pubblicato_In%>
"><%=RSArticoli("Sezione")%> <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>
<%
End If
RSArticoli.MoveNext
Loop
If ArticoloTrovato = False Then
%>
<%=Errore_Articolo_NonTrovato%>
<%
Else
If NOT Abilita_PopupCommenti Then
'Se i commenti sono abilitati
If Abilita_Commenti Then
%>
<%
'Cerco i commenti relativi all'articolo richiesto
SQLCommenti = " SELECT * FROM [Commenti] WHERE Commenti.IDArticolo = "& 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
If Abilita_NoFollow Then
Response.Write "
"& RSCommenti("Autore") &""
Else
Response.Write "
"& RSCommenti("Autore") &""
End If
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
%>