Foros Club Delphi - Problemas en consulta Sql Server 2000

Hola a todos
Tengo una consulta en donde comparo un mes elegido con los meses que se encuentran en la base de datos para hallar un valor en particular, pero me muestra todos los valores en cero.
El query es el siguiente:

Código SQL [-]
SELECT dbo.CEPE_META.Id_MetaPadre, dbo.CEPE_META.Id_Meta, dbo.CEPE_META.Des_Meta AS Des_meta_hijo,
CEPE_META_1.Des_Meta AS Des_meta_padre, dbo.CEPE_META.Referencia, dbo.CEPE_META.ID_Nivel, dbo.CEPE_ValorMeta.Id_Meta AS Expr1,
dbo.CEPE_ValorMeta.VALOR_PIPE, MONTH(dbo.CEPE_ValorMeta.Fecha) AS Expr2, dbo.CEPE_ValorMeta.ACCIONES
FROM dbo.CEPE_META INNER JOIN
dbo.CEPE_META CEPE_META_1 ON dbo.CEPE_META.Id_MetaPadre = CEPE_META_1.Id_Meta INNER JOIN
dbo.CEPE_ValorMeta ON dbo.CEPE_META.Id_Meta = dbo.CEPE_ValorMeta.Id_Meta AND
CEPE_META_1.VersionMeta = dbo.CEPE_ValorMeta.VersionMeta AND CEPE_META_1.VersionPipe = dbo.CEPE_ValorMeta.VersionPipe AND
CEPE_META_1.ID_Pipe = dbo.CEPE_ValorMeta.ID_Pipe
WHERE (YEAR(dbo.CEPE_META.VersionPipe) = 2008) AND (MONTH(dbo.CEPE_ValorMeta.Fecha) = "&mes&")
GROUP BY dbo.CEPE_META.Id_MetaPadre, dbo.CEPE_META.Id_Meta, dbo.CEPE_META.Des_Meta, CEPE_META_1.Des_Meta, dbo.CEPE_META.Referencia,
dbo.CEPE_META.ID_Nivel, dbo.CEPE_ValorMeta.Id_Meta, dbo.CEPE_ValorMeta.ACCIONES, MONTH(dbo.CEPE_ValorMeta.Fecha),
dbo.CEPE_ValorMeta.VALOR_PIPE
HAVING (dbo.CEPE_ValorMeta.ACCIONES = '1') AND (SUBSTRING(dbo.CEPE_META.Des_Meta, 1, 7) = 'Costo U')

Luego tengo lo siguiente:

Código:

Metapun.Source = SQLPIT

Metapun.Open

j=0

  redim id_m(j)

  While Metapun.EOF = False

  redim preserve fec(j+1)

  redim preserve qit(j+1)

 

  fec(j) = Metapun.Fields.Item(9).Value

  qit(j) = Metapun.Fields.Item(8).Value

 

  j=j+1

 

  Metapun.MoveNext

  Wend

  Metapun.close

 

<%if pit(j) <> "" Then 

 if (fec(j) = mes) then

  display_pit = cdbl(pit(i)) 

 end if

else 

  display_pit  ="n.d"

end if%>

<%=formatnumd(display_pit)%>

¿Dónde puede estar el problema?

Gracias anticipadas... :o