<%@LANGUAGE="VBSCRIPT"%> <% Dim iMonth, iYear, giorno, archivio 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") Dim rsblog Dim rscommenti Dim blog_id Dim rscommenticount Dim commenti_presenti If isNull(Request.QueryString("blog_id")) = True Or isNumeric(Request.QueryString("blog_id")) = False Then Response.redirect "index.asp?month=" & iMonth &"&year=" & iYear &"&giorno=" & giorno & "&archivio="& archivio &"" Else blog_id = CLng(Request.QueryString("blog_id")) End If Set rsblog = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT blog.* FROM blog " strSQL = strSQL & "WHERE blog.blog_id = " & blog_id rsblog.Open strSQL, adoCon If NOT rsblog.EOF Then commenti_presenti = CBool(rsblog("commenti")) Set rscommenticount = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Count(commenti.blog_id) AS numerocommenti " strSQL = strSQL & "FROM commenti " strSQL = strSQL & "WHERE commenti.blog_id = " & CLng(blog_id) & ";" rscommenticount.Open strSQL, adoCon %> 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

<% = rsblog("blog_titolo") %>

Posted

<%=rTime(rsblog("ora"))%>

Author

<%=(rsblog("blog_autore")) %>
<% = rsblog("blog_testo")%>
<% If commenti_presenti = True Then If NOT rscommenticount.EOF Then Response.Write strLangGlobNumberOfComment & " (" & rscommenticount("numerocommenti") & ")" Else Response.Write strLangGlobNumberOfComment & " (0)" End If End If %>
<% rsblog.Close Set rsblog = Nothing rscommenticount.Close Set rscommenticount = Nothing End If %> <% If commenti_presenti = True Then Set rscommenti = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT commenti.* FROM commenti WHERE commenti.blog_id = " & blog_id & " ORDER BY data DESC;" rscommenti.Open strSQL, adoCon Do While NOT rscommenti.EOF %>
<%=rDate(rscommenti("data"))%>

<%=(rscommenti("commento_autore")) %>
<% = rscommenti("commento_testo") %>
<% rscommenti.MoveNext Loop %>

<% = UCase(strLangFormSubmitComment) %>

 <% If Session("ErrorCAPTCHA") <> "" Then response.write ""&Session("ErrorCAPTCHA")&"
Please try again

" Session("ErrorCAPTCHA") = "" End If %>

<% = strLangFormAuthor %>

   

<% = strLangFormEmail %>

   

<% = strLangFormComment %>

 
Type the characters shown above for verification.

Submit

 
<% end if %> <% rscommenti.Close Set rscommenti = Nothing Set strCon = Nothing Set adoCon = Nothing %>
 
Email Us e-mail     Print This Print