Montar Select e Listar Página

[wilnet 92]

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.

[xanburzum 169]

no Response.Write da sql o que é mostrado ?

[wilnet 92]

Olá Xan, obrigado.

 

Então ele mostra o Resultado Correto que vem da Página anterior que foi clicada.

 

Na Página "BLOG_ARQUIVO" é montado desta forma:

 

 

Agosto 2014 (12)

 

Julho 2014 (7)

 

Fevereiro 2014 (26)

 

Novembro 2013 (17)

 

 

Quando clico em Julho 2014 por exemplo, vai para a Página "BLOG_LISTAARQUIVO"

 

Dando o Response.Write na SQL é mostrado assim:

Select * FROM noticias where dataNoticias=7 7 2014

Ou seja, está consultado correto, porém, não monta a Página com as informações deste mês que tem:

 

Título:

Data Postagem:

Texto:

 

Ele SEMPRE cai nesse campo

If listaFotos.EOF Then 


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

Else

Se eu consegue fazer essa consulta pelo ID, daria certo, mas neste caso eu não conseguiria montar o SELECT com o Group by como mostra na Página BLOG_ARQUIVO.

 

 

Grato por qualquer ajuda.

[wilnet 92]

Resolvido, graças a Deus!!!

 

Retrabalhei meu Select da 2º Página.

qual_mes= Request.querystring("exibeNoticias_mes")
qual_ano= Request.querystring("ano")


Set listaFotos = dados.Execute("SELECT * FROM noticias where month(dataNoticias) = " & Request.QueryString("exibeNoticias_mes") & " AND year(dataNoticias) = " & Request.QueryString("ano") & " ORDER BY dataNoticias Desc")

E retirei toda a parte que faz a Paginação... embora depois vou tentar usa-la novamente e ver onde da o erro.

 

 

 

Mas por ora, estou Super Feliz, depois de Dias Pesquisando e Batendo Cabeça nisso.

[xanburzum 169]

MARAVILHA...

 

depois dá uma olhada no fórum que postei alguns exemplos de paginação bem legais e funcionais

[wilnet 92]

Legal,

 

Então eu até tenho vários exemplos de paginação.

 

O que eu estava usando neste script, tava dando Erro, eu resolvi excluir por ora apenas para enxugar o script e deixa-lo funcionando como o descrito acima.

 

Depois irei voltar e implementar a parte de paginação novamente.

 

Caso eu tiver algum problema, eu volto e recorro a boa ajuda dos amigos aqui.