|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Citazioni%>
<%
Dim SQLCitazioni, RSCitazioni, RecordPerPagina, Pagina, I, Temp
If Session("BLOGAdmin") = True Then
%>
<%
SQLCitazioni = " SELECT * FROM [Citazioni] ORDER BY [ID] DESC "
Set RSCitazioni = Server.CreateObject("ADODB.Recordset")
RSCitazioni.Open SQLCitazioni, Conn, 1, 3
%>
<%=Testo_Citazioni_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%=Testo_Citazioni_IntroduzioneTotaleCitazioni%>: <%=RSCitazioni.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 RSCitazioni.EOF = False OR RSCitazioni.BOF = False Then
RSCitazioni.PageSize = RecordPerPagina
RSCitazioni.AbsolutePage = Pagina
For I = 1 To RecordPerPagina
If NOT RSCitazioni.EOF Then
%>
"><%=Testo_TabellaCitazioni_RigaAutore%> <%=RSCitazioni("Autore")%> ("><%=Testo_TabellaCitazioni_IdentificaRotazioneHeader%>)
<%=Testo_TabellaCitazioni_RigaTesto%> <%=Left(RSCitazioni("Citazione"), 30)%>...
<%=Testo_TabellaCitazioni_RigaOperazioni%> "><%=Testo_TabellaCitazioni_LinkModifica%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaCitazioni_LinkCancella%>
|
<%
RSCitazioni.MoveNext
End If
Next
%>
|
|
<%
Else
%>
|
<%=Testo_TabellaCitazioni_ErroreNessunaCitazioneTrovata%>, <%=Testo_Citazioni_LinkVaiElenco%>.
|
<%
End If
%>
<%
Else
%>
<%=Testo_Errore_FunzioneRiservataAdmin%>
<%
End If
%>
|
|