|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Fotografie%>
<%
Dim SQLListBox, RSListBox, SQLFotografie, RSFotografie, FSTFotografia, RecordPerPagina, Pagina, I, Temp, FiltroAutore, FiltroSezione, ArrayFiltroAutore, ArrayFiltroSezione, Z
SQLFotografie = " SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture, Fotografie.Header FROM Commenti RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.ID <> 0"
If Session("BLOGAdmin") = True Then
If Request.QueryString("a") <> "" Then
SQLFotografie = SQLFotografie & " AND Fotografie.Autore = '"& ControlloSQLInjection(Request.QueryString("a")) &"'"
End If
Else
SQLFotografie = SQLFotografie & " AND Fotografie.Autore = '"& Session("BLOGNick") &"'"
End If
If Request.QueryString("s") <> "" Then
SQLFotografie = SQLFotografie & " AND Fotografie.Sezione = '"& ControlloSQLInjection(Request.QueryString("s")) &"'"
End If
SQLFotografie = SQLFotografie & " GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture, Fotografie.Header ORDER BY Fotografie.Data DESC, Fotografie.Ora DESC"
Set RSFotografie = Server.CreateObject("ADODB.Recordset")
RSFotografie.Open SQLFotografie, Conn, 1, 3
%>
<%=Testo_Fotografie_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%=Testo_Fotografie_IntroduzioneTotaleFotografie%>: <%=RSFotografie.RecordCount%>
|
<%
RecordPerPagina = 4
Pagina = Request.QueryString("pagina")
If Pagina = "" OR Pagina = "0" OR IsNumeric(Pagina) = False Then
Pagina = 1
Else
If Pagina <= 0 Then
Pagina = 1
End If
End If
If RSFotografie.EOF = False OR RSFotografie.BOF = False Then
RSFotografie.PageSize = RecordPerPagina
RSFotografie.AbsolutePage = Pagina
For I = 1 To RecordPerPagina
If NOT RSFotografie.EOF Then
Set FSTFotografia = CreateObject("Scripting.FileSystemObject")
%>
">
<%
If NOT Abilita_ResizeASPNET Then
%>
 <%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" width="112" border="0" align="left" alt="Modifica">
<%
Else
%>
 <%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" border="0" align="left" alt="Modifica">
<%
End If
%>
<%=Testo_TabellaFotografie_RigaAutore%> <%=RSFotografie("Autore")%> (<%=StrToData(RSFotografie("Data"))%> @ <%=StrToOra(RSFotografie("Ora"))%>)
<%=Testo_TabellaFotografie_RigaSezione%> <%=RSFotografie("Sezione")%> (<%=RSFotografie("Letture")%> <%=Testo_TabellaFotografie_CaratteristicaHit%> - "><%=Testo_TabellaFotografie_IdentificaRotazioneHeader%>)
<%=Testo_TabellaFotografie_RigaOperazioni%> "><%=Testo_TabellaFotografie_LinkModeraCommenti%> (<%=RSFotografie("ConteggioID")%>) | "><%=Testo_TabellaFotografie_LinkModifica%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaFotografie_LinkCancella%>
|
<%
Set FSTFotografia = Nothing
RSFotografie.MoveNext
End If
Next
FiltroAutore = ""
FiltroSezione = ""
SQLListBox = " SELECT [Autore], [Sezione] FROM [Fotografie] "
Set RSListBox = Server.CreateObject("ADODB.Recordset")
RSListBox.Open SQLListBox, Conn, 1, 3
Do While NOT RSListBox.EOF
If InStr(FiltroAutore, "|" & RSListBox("Autore")) = False Then
FiltroAutore = FiltroAutore & "|" & RSListBox("Autore")
End If
If InStr(FiltroSezione, "|" & RSListBox("Sezione")) = False Then
FiltroSezione = FiltroSezione & "|" & RSListBox("Sezione")
End If
RSListBox.MoveNext
Loop
ArrayFiltroAutore = Split(FiltroAutore, "|", -1, 1)
ArrayFiltroSezione = Split(FiltroSezione, "|", -1, 1)
%>
|
|
<%
Set RSListbox = Nothing
Else
%>
|
<%=Testo_TabellaFotografie_ErroreNessunaFotografiaTrovata%>, <%=Testo_Fotografie_LinkVaiElenco%>.
|
<%
End If
%>
|
|