<%@LANGUAGE="VBSCRIPT"%> <% If Session("admin") = False or IsNull(Session("admin")) = True then response.Redirect("login.asp?strMode=edit") End If %> <% Response.Buffer = True Dim iMonth, iYear iMonth=Request ("month") iYear=Request ("year") if iMonth = "" then iMonth = Month(Now) sMonth=NameFromMonth(iMonth) if iYear = "" then iYear = Year(Now) Dim rscommenti Dim vpage Dim page Dim Block Dim Blocks Dim i Dim totale Dim maxpages Dim PagStart Dim PagStop Dim RemainingRecords Dim blog_id blog_id = Request.QueryString("blog_id") Block = Request.querystring("Block") page = Request.querystring("page") if Block="" then Block=1 if page="" then page=1 %> <% = Ublogname %>
<% = strLangSelectEditDeleteComments %> <% = blog_id %>  
 
 
<% = request.querystring("msg") %>

<% Set rscommenti = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT commenti.* FROM commenti WHERE commenti.blog_id =" & blog_id rscommenti.Open strSQL, adoCon, 1, 3 rscommenti.PageSize = intRecordsPerPage If NOT rscommenti.EOF Then rscommenti.AbsolutePage = page If rscommenti.EOF Then Response.Write "



" & strLangErrorMessageNoComments & "

" & strLangNavRedirectErrorNoComments & "
" Response.End Else totale = rscommenti.RecordCount %>
<% = UCase(strLangGlobNumberOfComment) %>: <% = totale %>

<% For i = 1 to intRecordsPerPage If rscommenti.EOF Then Exit For %> <% rscommenti.MoveNext Next End If %>
<% = strLangGlobTableComment1 %> <% = strLangGlobTableComment2 %> <% = strLangGlobTableComment3 %>
<% =rscommenti("commento_autore")%> <% =rscommenti("data")%> &page=<% =page %>&Block=<% = Block %>"><% = strLangCheckAltEditCommments %>   &blog_id=<% = blog_id %>&page=<% =page %>&Block=<% = Block %>" onClick="return confirm('<% = strLangCheckDelComments %>');"><% = strLangCheckAltDelComment %>


<% 'paginazione Response.Write "" Response.Write "
" maxpages = int(totale / intRecordsPerPage) if (totale mod intRecordsPerPage) <> 0 then maxpages = maxpages + 1 end if Blocks=0 Blocks = int(maxpages / PagesPerBlock) if (maxpages mod PagesPerBlock) <> 0 then Blocks = Blocks + 1 end if Response.Write "" & strLangGlobPage & " " & page & " " & strLangGlobOf & " " & maxpages & "" PagStop=Block*PagesPerBlock PagStart=(PagStop-PagesPerBlock)+1 i=0 if maxpages>1 then For vpage=PagStart to PagStop i=i+1 if Block=1 then i=0 if i=1 and Block>1 then Response.Write "" & _ "  " end if RemainingRecords = totale-(vpage*intRecordsPerPage) if RemainingRecords > 0 then if vpage=CInt(page) then Response.Write"" & vpage & " " else Response.Write "" & vpage & " " end if else if vpage=CInt(page) then Response.Write"" & vpage & " " else Response.Write "" & vpage & " " end if exit for end if if vpage=PagStop AND Blocks>1 and int(Block-1)" & _ "" end if Next end if Response.Write "
" %>

<% rscommenti.Close Set rscommenti = Nothing Set strCon = Nothing Set adoCon = Nothing %>