Grafico + GRoup BY

[marciolvs 1]

Olá pessoal, tenho um código que me gera grafico em colunas horizontal, ok.

Bom criei um filtro a ele mas ai nem funcionou nem retornou erro.

Alguem pode dar uma mão ai ?

 

Código:

<%
	  SQL = "select count(*) as total From ContasAPagar"' GROUP BY referente"
	  Call abreConexao
	  Set rstotal = conexaodb.execute(SQL)
	 

	  SQL = "SELECT Baixa, Count(*) AS Total_votos FROM ContasAPagar WHERE day(DataVencimento) >= "&day(Request("DE"))&" and Month(DataVencimento) >= "&month(Request("DE"))&" and Year(DataVencimento) >= "&Year(Request("DE"))&" and day(DataVencimento) <= "&day(Request("ATE"))&" and Month(DataVencimento) <= "&Month(Request("ATE"))&" and Year(DataVencimento) <= "&year(Request("ATE")) &" GROUP BY Baixa "
	  'SQL = "SELECT Baixa, count(*) AS total_votos FROM ContasAPagar GROUP BY Baixa"
	  Call abreConexao
	  Set rs = conexaodb.execute(SQL)
	  
	  If Not Rs.EOF Then
		 Do While Not Rs.EOF		

			total = rstotal("total")
			tamanho = Rs.Fields.Item(1).Value
			valor = tamanho/total*100
			
			Opcao = Rs.Fields.Item(0).Value

			IF Opcao = "SIM" Then
				Response.Write "   Contas Pagas   <img src='images/pixVerde.jpg' height='10' width='"&valor&"%'> " &valor& "%<br/>"
			END IF
			IF opcao = "NÃO" Then
				Response.Write "   Contas a Pagar <img src='images/pixVermelho.jpg' height='10' width='"&valor&"%'> " &valor& "%<br/>"
			END IF
			
			Rs.MoveNext
		 Loop
	  End If
	  rs.close
	%>

Response SQL

SELECT Baixa, Count(*) AS Total_votos FROM ContasAPagar WHERE day(DataVencimento) >= 20 and Month(DataVencimento) >= 10 and Year(DataVencimento) >= 2009 and day(DataVencimento) <= 30 and Month(DataVencimento) <= 4 and Year(DataVencimento) <= 2010 GROUP BY Baixa

[Mário Monteiro 179]

porque não usa a data apenas? ao invés de usar suas partes