<%@LANGUAGE="VBSCRIPT"%> <% Dim iMonth, iYear Dim giorno, archivio Dim data_blog iMonth=Request ("month") iYear=Request ("year") if iMonth = "" then iMonth = Month(Now) sMonth=NameFromMonth(iMonth) if iYear = "" then iYear = Year(Now) giorno=request.querystring("giorno") archivio=request.querystring("archivio") data_blog="#" & iMonth & "/" & giorno & "/" & iYear & "#" Dim rsblog Dim rscommenti Dim vpage Dim page Dim Block Dim Blocks Dim i Dim totale Dim maxpages Dim PagStart Dim PagStop Dim RemainingRecords Dim msg Block = Request.querystring("Block") page = Request.querystring("page") if Block="" then Block=1 if page="" then page=1 %> <% = Ublogname %>
<% = strLangSelectArchivesBlog %>     <%If giorno <> "" Then response.write giorno & " " & Ucase(sMonth) & " " & iYear elseif archivio<>"OK" then response.write Ucase(sMonth) & " " & iYear else response.write strLangSelectArchivesBlogFull end if %>  
 
 
<% Set rsblog = Server.CreateObject("ADODB.Recordset") ' verifico se la scelta è relativa ad un giorno specifico ' nel caso di giorno<>"" visualizzo tutti i blog relativi al giorno specificato if giorno <> "" then strSQL = "SELECT blog.* FROM blog WHERE data = " & data_blog & "ORDER BY blog_id DESC;" msg = "



" & strLangErrorMessageNoBlog1 &"" msg = msg & "

" & strLangNavRedirectErrorNoBlog & "
" ' verifico se è stato scelto di visualizzare l'archivio completo ed in caso contrario, archivio <>OK, visualizzo i blog relativi al mese richiamato dal calendario elseif archivio<>"OK" then mese=Right(CStr(100+iMonth), 2) strSQL = "SELECT blog.* FROM blog WHERE mese = '" & mese & "' AND anno = '" & iYear & "' ORDER BY blog_id DESC;" msg = "



" & strLangErrorMessageNoBlog2 &"" msg = msg & "

" & strLangNavRedirectErrorNoBlog & "
" else ' visualizzo tutto l'archivio blog strSQL = "SELECT blog.* FROM blog ORDER BY blog_id DESC;" msg = "



" & strLangErrorMessageNoBlog3 &"" end if rsblog.Open strSQL, adoCon, 1, 3 rsblog.PageSize = intRecordsPerPage If NOT rsblog.EOF Then rsblog.AbsolutePage = page Set rscommenti = Server.CreateObject("ADODB.Recordset") If rsblog.EOF Then Response.Write msg Response.End Else totale = rsblog.RecordCount For i=1 to intRecordsPerPage If rsblog.EOF Then Exit For 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 %>
<% = UCase(rsblog("blog_titolo")) %>  <% = strLangGlobBy %> <%If rsblog("blog_email") <> "" Then Response.Write("" & rsblog("blog_autore") & "") Else Response.Write(rsblog("blog_autore")) %> <% = rsblog("data")%> <% = strLangGlobAt %> <% = FormatDateTime(rsblog("ora"),vbShortTime) %>
<% strText = rsblog("blog_testo") Response.write anteprima(strText, 40) %>
<% If CBool(rsblog("commenti")) = True Then %> &month=<% = iMonth %>&year=<% = iYear %>&giorno=<% = giorno %>&archivio=<% = archivio %>&#commento"><% = strLangFormSubmitComment %> <% If NOT rscommenti.EOF Then Response.Write " [ " & strLangGlobNumberOfComment & " " & rscommenti("numerocommenti") & " ]" Else Response.Write " [ " & strLangGlobNumberOfComment & " 0 ]" End If End If %>   &month=<% = iMonth %>&year=<% = iYear %>&giorno=<% = giorno %>&archivio=<% = archivio %>"><% = strLangGlobReadAll %>


<% rscommenti.Close rsblog.MoveNext Next End If %>

<% '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 "
" %>

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