<% = Ublogname %>

<%@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 rsblog Dim rscommenti Dim vpage Dim page Dim Block Dim Blocks Dim RecordsInPage Dim intstart Dim i Dim totale Dim maxpages Dim PagStart Dim PagStop Dim RemainingRecords Dim NumberLastRecords Dim SQLCount Dim rsCount page = Request("page") RecordsInPage = Request("RecordsInPage") Block = Request("Block") if Block="" then Block=1 if RecordsInPage="" then RecordsInPage=intRecordsPerPage if page="" then page=1 SQLCount = "SELECT COUNT(*) as totale FROM blog" set rsCount = adoCon.Execute(SQLCount) totale = rsCount("totale") rsCount.Close set rsCount=Nothing %> <% = Ublogname %>


<% = strLangSelectEditDeleteBlog %>

<% = request.querystring("msg") %>

<% intStart = CInt((page-1) * intRecordsPerPage) strSQL = "SELECT blog.* FROM blog ORDER BY blog_id DESC" strSQL = strSQL & " LIMIT " & intStart & ", " & RecordsInPage set rsblog = adoCon.Execute(strSQL) Set rscommenti = Server.CreateObject("ADODB.Recordset") If rsblog.EOF AND rsblog.BOF Then Response.Write "

" & strLangErrorMessageNoBlog3 & "

" Response.End Else %>

<% = UCase(strLangGlobBlogInDb) %> : <% = totale %>

<% For i=1 to RecordsInPage if Not rsblog.EOF then strSQL = "SELECT Count(commenti.blog_id) AS numerocommenti " strSQL = strSQL & "FROM commenti " strSQL = strSQL & "WHERE commenti.blog_id = " & CLng(rsblog("blog_id")) & ";" rscommenti.Open strSQL, adoCon %> <% rscommenti.Close else exit for end if rsblog.movenext Next RecordsInPage=intRecordsPerPage %>

<% = strLangGlobTableBlog1 %>	<% = strLangGlobTableBlog2 %>	<% = strLangGlobTableBlog3 %>	<% = strLangGlobTableBlog4 %>	<% = strLangGlobTableBlog5 %>
<% strText = rsblog("blog_titolo") Response.write anteprima(strText, 3) %>	<%If rsblog("blog_email") <> "" Then Response.Write("" & rsblog("blog_autore") & "") Else Response.Write(rsblog("blog_autore")) %>	<% If CBool(rsblog("commenti")) = True Then If NOT rscommenti.EOF Then Response.Write rscommenti("numerocommenti") Else Response.Write "0" End If Else Response.Write strLangGlobNoComment End If %>	<% If rscommenti("numerocommenti") <>"0" Then %> ">'" border="0"> <% else %> <%end if%>	"> " onClick="return confirm('<% = strLangCheckDelBlog %>');">

<% Response.Write "

" 'maxpages = int(totale /int(RecordsInPage)) 'if (totale mod RecordsInPage) <> 0 then 'Response.Write totale & "
" 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 Response.Write "" & vpage & " " else NumberLastRecords = intRecordsPerPage+RemainingRecords Response.Write "" & vpage & " " exit for end if if vpage=PagStop AND Blocks>1 and int(Block-1)" & _ "

" exit for end if Next end if end if Response.Write "

" %>

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