<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare informazioni sugli autori del blog %> <% Sub Contenuto() Dim SQLAutori, RSAutori, SQLFotografiaAutore, RSFotografiaAutore, SQLArticoloAutore, RSArticoloAutore, FChi, PaginaA, PaginaF, Z, Temp, RecordPerPagina 'Effettuo il controllo sul parametro chi If Request.QueryString("chi") <> "" Then FChi = Request.QueryString("chi") Else FChi = "" End If RecordPerPagina = Num_Max_ArticoliFotografiePerPagina PaginaA = Request("paginaa") If PaginaA = "" OR PaginaA = "0" OR IsNumeric(PaginaA) = False Then PaginaA = 1 End If PaginaF = Request("paginaf") If PaginaF = "" OR PaginaF = "0" OR IsNumeric(PaginaF) = False Then PaginaF = 1 End If If FChi = "" Then %>
  <%=Sezione_HomePage%> » <%=Sezione_Autori%>
<% Else %>
  <%=Sezione_HomePage%> » <%=Sezione_Autori%> » <%=Server.HTMLEncode(FChi)%>
<% End If %>
<%=Testo_Introduzione_Autori%>
<% If FChi <> "" Then 'Se è stato richiesto un autore specifico lo cerco nel database SQLAutori = " SELECT [Immagine], [Nick], [Mail], [Testo], [Sito], [ICQ], [MSN] FROM [Autori] WHERE Autori.Nick = '"& ControlloSQLInjection(FChi) &"' " Set RSAutori = Server.CreateObject("ADODB.Recordset") RSAutori.Open SQLAutori, Conn, 1, 3 'E visualizzo gli eventuali risultati If NOT RSAutori.EOF Then Do While NOT RSAutori.EOF %>
"" Then Response.Write Path_DirPublic & RSAutori("Immagine") Else Response.Write Path_Skin & "nd.gif" End If%>" alt="<%=RSAutori("Nick")%>" class="fleft" /><%=RSAutori("Nick")%>

Home page <%If RSAutori("Sito") <> "" Then Response.Write ""& RSAutori("Sito") &"" Else Response.Write "-" End If%>
ICQ UIN <%If RSAutori("ICQ") <> "" Then Response.Write "#"& RSAutori("ICQ") Else Response.Write "-" End If%>
MSN Messenger <%If RSAutori("MSN") <> "" Then Response.Write RSAutori("MSN") Else Response.Write "-" End If%>
e-Mail <%If RSAutori("Mail") <> "" Then Response.Write ""& RSAutori("Mail") &"" Else Response.Write "-" End If%>
<%=RSAutori("Testo")%>

<% RSAutori.MoveNext Loop 'Cerco i contributi dell'autore richiesto SQLArticoloAutore = " SELECT [ID], [Titolo], [Sezione], [Data], [Ora], [Letture] FROM [Articoli] WHERE Articoli.Autore = '"& ControlloSQLInjection(FChi) &"' AND NOT Articoli.Bozza ORDER BY Articoli.Data DESC, Articoli.Ora DESC " Set RSArticoloAutore = Server.CreateObject("ADODB.Recordset") RSArticoloAutore.Open SQLArticoloAutore, Conn, 1, 3 SQLFotografiaAutore = " SELECT [ID], [Descrizione], [Sezione], [Data], [Ora], [Letture] FROM [Fotografie] WHERE Fotografie.Autore = '"& ControlloSQLInjection(FChi) &"' ORDER BY Fotografie.Data DESC, Fotografie.Ora DESC " Set RSFotografiaAutore = Server.CreateObject("ADODB.Recordset") RSFotografiaAutore.Open SQLFotografiaAutore, Conn, 1, 3 %>
<%=Articoli_Di%> <%=Server.HTMLEncode(FChi)%> (<%=RSArticoloAutore.RecordCount%>)
<% If RSArticoloAutore.EOF = False OR RSArticoloAutore.BOF = False Then RSArticoloAutore.PageSize = RecordPerPagina RSArticoloAutore.AbsolutePage = PaginaA For Z = 1 To RecordPerPagina If NOT RSArticoloAutore.EOF Then %>
<%=Pubblicato_In%> "><%=RSArticoloAutore("Sezione")%> <%=Pubblicato_il%> <%=StrToData(RSArticoloAutore("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSArticoloAutore("Ora"))%> <%=Pubblicato_Letture%> <%=RSArticoloAutore("Letture")%> <%=Pubblicato_Letture_chiudi%>
"><%=RSArticoloAutore("Titolo")%>

<% RSArticoloAutore.MoveNext End If Next Else %> <%=Errore_Articolo_NonTrovato%> <% End If %>
<%=Testo_Paginazione%>»<% For Temp = 1 To RSArticoloAutore.PageCount Response.Write "" Response.Write Temp Response.Write " " Next Set RSArticoloAutore = Nothing %>
<%=Fotografie_Di%> <%=Server.HTMLEncode(FChi)%> (<%=RSFotografiaAutore.RecordCount%>)
<% If RSFotografiaAutore.EOF = False OR RSFotografiaAutore.BOF = False Then RSFotografiaAutore.PageSize = RecordPerPagina RSFotografiaAutore.AbsolutePage = PaginaF For Z = 1 To RecordPerPagina If NOT RSFotografiaAutore.EOF Then %>
<%=Pubblicato_In%> "><%=RSFotografiaAutore("Sezione")%> <%=Pubblicato_il%> <%=StrToData(RSFotografiaAutore("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSFotografiaAutore("Ora"))%> <%=Pubblicato_Letture%> <%=RSFotografiaAutore("Letture")%> <%=Pubblicato_Letture_chiudi%>
"><%=RSFotografiaAutore("Descrizione")%>

<% RSFotografiaAutore.MoveNext End If Next Else %> <%=Errore_Fotografia_NonTrovata%> <% End If %>
<%=Testo_Paginazione%>»<% For Temp = 1 To RSFotografiaAutore.PageCount Response.Write "" Response.Write Temp Response.Write " " Next %>
<% Set RSFotografiaAutore = Nothing Else %>
<%=Errore_Autore_NonTrovato%>
<% End If Else 'Altrimenti cerco tutti gli autori SQLAutori = " SELECT [Nick], [Mail] FROM [Autori] ORDER BY Autori.Nick " Set RSAutori = Server.CreateObject("ADODB.Recordset") RSAutori.Open SQLAutori, Conn, 1, 3 'E visualizzo gli eventuali risultati If NOT RSAutori.EOF Then %> <% Else %>
<%=Errore_Autore_NonTrovato%>
<% End If End If Set RSAutori = Nothing If FChi = "" Then %>
<%=Testo_Il_perche%>

<%=Testo_Copyright%>
<% End If End Sub 'Generazione dinamica del Titolo Dim FChi, METATitleDinamicoPagina 'Effettuo il controllo sul parametro chi If Request.QueryString("chi") <> "" Then FChi = Request.QueryString("chi") Else FChi = "" End If METATitleDinamicoPagina = Sezione_Autori If FChi <> "" Then METATitleDinamicoPagina = METATitleDinamicoPagina & " (" & Server.HTMLEncode(FChi) & ")" End If Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), METATitleDinamicoPagina, "", "") Conn.Close Set Conn = Nothing %>