Montar Select e Listar Página

Olá galera.

Não estou conseguindo montar Corretamente o Link e Select para serem Listado na Nova Página.

Base de Dados: Access

Campo : dataNoticias

Formato: Data/Hora

Blog_arquivo.asp

<%
Dim listaNoticias, contarNoticias

Set listaNoticias = dados.Execute("SELECT Month(dataNoticias) as Mes,Year(dataNoticias) as Ano,COUNT(id) as TOTAL FROM noticias GROUP BY Month(dataNoticias),Year(dataNoticias) Order by Year(dataNoticias) DESC, Month(dataNoticias) DESC")

If listaNoticias.EOF = False Then

contarNoticias = -1
While Not listaNoticias.EOF

contarNoticias = contarNoticias + 1
%>

<a href="blog_listaArquivo.asp?exibe_mes=<%=listaNoticias("mes")%>&exibe_ano=<%=listaNoticias("ano")%>"><%=escrevemes(listaNoticias("mes"))%> <%=listaNoticias("ano")%> (<%=listaNoticias("total")%>)</a>

<%
listaNoticias.MoveNext
Wend

Else

Response.Write "<br>"
Response.Write "Nenhum Cadastro."

End If

listaNoticias.Close
Set listaNoticias = Nothing
%>

blog_listaArquivo.asp

<%
Dim qual_mes, qual_ano, exibeNoticias, dataMes

qual_mes= Request.querystring("exibe_mes")
qual_ano= Request.querystring("exibe_ano")

Set exibeNoticias = dados.Execute("SELECT Month(dataNoticias) as Mes,Year(dataNoticias) as Ano FROM noticias where dataNoticias="& dataMes & qual_mes &" ")

dataMes= Request.querystring("exibe_mes")
%>

Home » Blog » <%=escrevemes(qual_mes)%> » <%=qual_ano%>

Neste página ela exibe o resultado do Click, listando o acima.

Porém, NÃO ESTÁ MONTANDO O CONTEÚDO como: "Titulo - Data - Texto"

Ele sempre mostra "Nenhum Registro Cadastrado."

sql="Select * FROM noticias where dataNoticias="& dataMes & qual_mes & qual_ano &" "
'Response.Write sql
'Response.End()
Set listaFotos = dados.Execute(sql)

If listaFotos.EOF Then

Response.Write "<br>"
Response.Write "<center><font color=red><font size=4>Nenhum Registro Cadastrado.</font></font></center>"
Response.Write "<br>"

Else

Dim contador, maxcol, lista_dados, exibeNoticias_id
Set lista_dados = dados.Execute("SELECT * FROM noticias")

contador = 0
maxcol = 4
listaFotos.AbsolutePage = pag
While Not listaFotos.EOF And i < listaFotos.PageSize i = i + 1

If contador <= maxcol Then
%>

.
.
.
.

<%=FormataStringToUrl(listaFotos("titulo"))%>

<%=listaFotos("dataNoticias")%>

<%=FormatStr(pontinhos(listaFotos("txt"),430))%>

Na URL é mostrado os Meses e o Ano certinho do que eu cliquei.

URL: ....../blog_listaArquivo.asp?exibe_mes=3&exibe_ano=2013

Porém, nesta Página, não monta o Conteúdo desse Mês e Ano.

Será isso, porque não estou pegando o ID da Tabela???

Preciso de ajuda por favor.

Response.Write "<br>"
Response.Write "<center>Nenhum Registro Cadastrado.</center>"
Response.Write "<br>"