%
'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
%>
<%
Else
%>
<%
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")%>
<%If RSAutori("Sito") <> "" Then Response.Write "
"& RSAutori("Sito") &"" Else Response.Write "-" End If%>
<%If RSAutori("ICQ") <> "" Then Response.Write "#"& RSAutori("ICQ") Else Response.Write "-" End If%>
<%If RSAutori("MSN") <> "" Then Response.Write RSAutori("MSN") Else Response.Write "-" End If%>
<%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
%>
<%
RSArticoloAutore.MoveNext
End If
Next
Else
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
%>
<%=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
%>
<%
RSFotografiaAutore.MoveNext
End If
Next
Else
%>
<%=Errore_Fotografia_NonTrovata%>
<%
End If
%>
<%
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
%>