|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Preview%>
<%
Dim SQLArticoli, RSArticoli, FID
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
SQLArticoli = " SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture FROM [Commenti] RIGHT JOIN [Articoli] ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.ID = "& FID &" GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture ORDER BY Articoli.Data DESC, Articoli.Ora DESC"
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 1, 3
If NOT RSArticoli.EOF Then
Do While NOT RSArticoli.EOF
%>
<%=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%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
%>
<%=Testo_LinkChiudi%>
|