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.