Blog - como chamar noticias anterioes do blog por data

[W. Sales 0]

Ola galera tenho um blog em asp e queria saber como faço para que ele exiba ao lado as materias postadas: exemplo abaixo

 

Novembro

Tem certeza que voce

nao acredita em Papai Noel??

 

Vereador prezo por roubo na

camara dos vereadores

 

Dezembro

Natal terá neve em São Paulo

 

Copa 2014 ainda falta muita

coisa para ser feito

 

Mega Sena pode fazer um milhonario

na MEga da Vira do ano.

 

 

Eu queria que ficasse assim , ja tenho um blog porem não tenho isso alguem ai tem uma função para isso?

 

Grato

[Vinicius Ianni 189]

Voce pode fazer um select aninhado usando um select distinct primeiro para pegar os meses e no segundo select usar o resultado do primeiro para pegar a noticia e a descrição, tudo isso dentro de um loop.

 

Pode também usar um select com group by e outros parametros que também podem permitir isso que deseja.

Tem várias soluções para o caso, depende de como está montado o bd, de como está o codigo, etc...

[xanburzum 169]

ou poe também usar um select between nas datas

[W. Sales 0]

essa do select select between, parace bom mas como faço pra chamar em banco acess?

[xanburzum 169]

exemplo:

 

<%
session.LCID = 1046
datai = Request.Form("datai")
dataf = Request.Form("dataf")
pago  = Request.Form("pago")
relc  = Request.Form("relc")



datai = CDate(datai)
dataf = CDate(dataf)



if (IsDate(datai) = true) and (IsDate(dataf) = true) then
datai = datai
dataf = dataf
else
datai = ""
dataf = ""
end if



if (datai = "") or (dataf = "") then
Response.Write = "Data inicial ou final não são validas"
Response.End
Else



datai = Month(datai) & "/" & Day(datai) & "/" & Year(datai)
dataf = Month(dataf) & "/" & Day(dataf) & "/" & Year(dataf)



Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open Conectar



Set rs = Server.CreateObject("ADODB.RecordSet")
lin = "Select pedidofabrica.id_pedidofabrica, clientes.nome, pedidofabrica.pedido, pedidofabrica.pedido, pedidofabrica.valor, pedidofabrica.comissao "
lin = lin & "From pedidofabrica, clientes Where pedidofabrica.user_id = clientes.user_id and "
lin = lin & "pedidofabrica.data between #"& datai &"# and #" & dataf & "# and pedidofabrica.pago=" & pago & " and pedidofabrica.relatoriocomissao=" & relc
rs.Open lin ,cnn,1,1