<%@LANGUAGE="VBSCRIPT"%> <% Dim iMonth, iYear Dim giorno, archivio, mese 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") category=request("category") mese=Right(CStr(100+iMonth), 2) 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 Dim msg page = Request("page") RecordsInPage = Request("RecordsInPage") Block = Request("Block") if Block="" then Block=1 if RecordsInPage="" then RecordsInPage=intRecordsPerPage if page="" then page=1 if giorno <> "" or category <> "" then SQLCount = "SELECT COUNT(*) as totale FROM blog WHERE giorno = '" & giorno & "' AND mese = '" & mese & "' AND anno = '" & iYear & "'" elseif archivio<>"OK" then SQLCount = "SELECT COUNT(*) as totale FROM blog WHERE mese = '" & mese & "' AND anno = '" & iYear & "'" else SQLCount = "SELECT COUNT(*) as totale FROM blog" end if If category<>"" then SQLCount = "SELECT COUNT(*) as totale FROM blog WHERE blogCategory = " & category End if set rsCount = adoCon.Execute(SQLCount) totale = rsCount("totale") rsCount.Close set rsCount=Nothing %> New Democracy Coalition - Blog
  Contact Us
New Democracy Coalition, making democracy work  
About Us
What We Do

We need your support

You can help us continue our workby making a one-off or regular donation
donate here on-line

 

 

 

 Register to Vote Join Our Mailing List  

Mon 30 April 2005
New Democracy Coalition Host National Conference on the Voting Rights Act


read more

Renew the Voting Rights Act Project:

The Voting Rights Act is said, by many, to be the greatest of the Civil Rights Legislation of the 1960s. You can read more
<% intStart = CInt((page-1) * intRecordsPerPage) ' 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 giorno = '" & giorno & "' AND mese = '" & mese & "' AND anno = '" & iYear & "' ORDER BY blog_id DESC" strSQL = strSQL & " LIMIT " & intStart & ", " & RecordsInPage 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 strSQL = "SELECT blog.* FROM blog WHERE mese = '" & mese & "' AND anno = '" & iYear & "' ORDER BY blog_id DESC" strSQL = strSQL & " LIMIT " & intStart & ", " & RecordsInPage msg = "



" & strLangErrorMessageNoBlog2 &"" msg = msg & "

" & strLangNavRedirectErrorNoBlog & "
" elseif category<>"" then ' visualizzo tutto l'archivio blog strSQL = "SELECT blog.* FROM blog WHERE blogCategory = " & category & " ORDER BY blog_id DESC" strSQL = strSQL & " LIMIT " & intStart & ", " & RecordsInPage msg = "



" & strLangErrorMessageNoBlog3 &"" else ' visualizzo tutto l'archivio blog strSQL = "SELECT blog.* FROM blog ORDER BY blog_id DESC" strSQL = strSQL & " LIMIT " & intStart & ", " & RecordsInPage msg = "



" & strLangErrorMessageNoBlog3 &"" end if set rsblog = adoCon.Execute(strSQL) Set rscommenti = Server.CreateObject("ADODB.Recordset") If rsblog.EOF AND rsblog.BOF Then Response.Write msg Response.End Else 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 %>

<% = rsblog("blog_titolo") %>


<%=rDateTime(rsblog("data"), rsblog("ora"))%> <%'= strLangGlobAt %> <%' = FormatDateTime(rsblog("ora"),vbShortTime) %>
<% If CBool(rsblog("commenti")) = True Then If NOT rscommenti.EOF Then Response.Write "" & strLangGlobNumberOfComment & " (" & rscommenti("numerocommenti") & ")" Else Response.Write "" & strLangGlobNumberOfComment & "(0)" End If End If %>
<% strText = rsblog("blog_testo") Response.write anteprima(strText, 50) %>
&month=<% = iMonth %>&year=<% = iYear %>&giorno=<% = giorno %>&archivio=<% = archivio %>"> <% If CBool(rsblog("commenti")) = True Then %> &month=<% = iMonth %>&year=<% = iYear %>&giorno=<% = giorno %>&archivio=<% = archivio %>"> <% End If %>

<% rscommenti.Close else exit for end if rsblog.movenext Next RecordsInPage=intRecordsPerPage rsblog.Close end if %> <%Set rsblog = Nothing Set rscommenti = Nothing Set strCon = Nothing Set adoCon = Nothing %>
 
Email Us e-mail     Print This Print