|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Fotografie%> : <%=Testo_Sezione_ModeraCommenti%>
|
<%=Testo_Introduzione_ModeraCommenti%>
|
<%
Dim SQLCommenti, RSCommenti, RecordPerPagina, Pagina, I, Temp, 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
SQLCommenti = " SELECT * FROM [Commenti] WHERE Commenti.IDFotografia = "& cInt(FID) &" AND Commenti.IDFotografia <> 0 "
Set RSCommenti = Server.CreateObject("ADODB.Recordset")
RSCommenti.Open SQLCommenti, Conn, 1, 3
RecordPerPagina = 5
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 RSCommenti.EOF = False OR RSCommenti.BOF = False Then
RSCommenti.PageSize = RecordPerPagina
RSCommenti.AbsolutePage = Pagina
For I = 1 To RecordPerPagina
If NOT RSCommenti.EOF Then
%>
|
<%=RSCommenti("Testo")%>
<%=Testo_TabellaCommenti_RigaAutore%> <%=RSCommenti("Autore")%> <%If RSCommenti("Link") <> "" Then Response.Write "("& RSCommenti("Link") &")" Else Response.Write Testo_TabellaCommenti_AutoreLinkNonDisponibile End If%>
<%=Testo_TabellaCommenti_RigaInviato%> <%=StrToData(RSCommenti("Data"))%> @ <%=StrToOra(RSCommenti("Ora"))%> <%=Testo_TabellaCommenti_RigaInviatoIndirizzoIP%> <%=RSCommenti("IP")%>
<%=Testo_TabellaCommenti_RigaOperazioni%> " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_Modulo_PulsanteCancella%>
|
<%
RSCommenti.MoveNext
End If
Next
%>
|
|
<%
Else
%>
|
<%=Testo_TabellaCommenti_ErroreNessunCommentoTrovato%>, <%=Testo_LinkTornaElenco%>.
|
<%
End If
%>
|
|