[Resolvido] Separar noticias por Ano e Mes

[betobto 0]

mesmo erro :/

 

mudei coloquei apenas 1 valor e nada soh dah erro

[Mário Monteiro 179]

Vamos por parte

 

Substitui

 

Response.Write ("<a href=index.asp?pagina=noticiasDesc&cod=" & wrs("cod") & ">• " & wrs("data") & " - " & wrs("titulo") & "</a>")

 

por

 

Response.Write (wrs("cod") & "<br>")

Response.Write (wrs("data") & "<br>")

Response.Write (wrs("titulo") & "<br>")

 

veja onde acusa o erro

[betobto 0]

acusando o mesmo erro..... qq será hein.... to quebrando a cabeça aqui e não consigo uma solução tenso...

 

será q tem outra alternativa?

[Mário Monteiro 179]

mas a linha do erro agora é qual?

 

qual o erro apresentado?

[betobto 0]

Olá consegui fazer aparecer as noticias mas nao estou conseguindo colocar o ultimo mes em primeiro ORDER BY data DESC

 

segue todo o codigo

 

 

<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" type="text/css" href="Styles.css"/>
<link rel="stylesheet" type="text/css" href="css/global.css"/>

<script type="text/javascript" src="js/prototype.js"></script>
<script type="text/javascript" src="js/scriptaculous.js?load=effects,builder"></script>
<script type="text/javascript" src="js/lightbox.js"></script>
<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
<%
Function escrevemes(mes)
    If mes = 01 Then
        escrevemes = "Janeiro"
        Elseif mes = 02 Then escrevemes = "Fevereiro"
        Elseif mes = 03 Then escrevemes = "Março"
        Elseif mes = 04 Then escrevemes = "Abril"
        Elseif mes = 05 Then escrevemes = "Maio"
        Elseif mes = 06 Then escrevemes = "Junho"
        Elseif mes = 07 Then escrevemes = "Julho"
        Elseif mes = 08 Then escrevemes = "Agosto"
        Elseif mes = 09 Then escrevemes = "Setembro"
        Elseif mes = 10 Then escrevemes = "Outubro"
        Elseif mes = 11 Then escrevemes = "Novembro"
        Elseif mes = 12 Then escrevemes = "Dezembro"
    End If
End Function

menor = "05/04/2005" : maior = day(date) &"/"& month(date) &"/"& year(date)
pegamenor = Year(menor) : pegamaior = Year(maior)
anos = pegamaior - pegamenor

Response.Write "<img src=imagens/titulo_arquivo.png width=800 height=38 /><br /><br />"

For anodata = 1 to anos
    anocriado = pegamenor + anodata
    For mesdata = 1 to 12
        mescriado = mesdata
        Set wcon = CreateObject("ADODB.Connection")
        wcon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("base.mdb")   
        Set wrs = wcon.Execute("SELECT Count(cod) as contador FROM tblNoticias WHERE MONTH(data) = " & mescriado & " and YEAR(data) = " & anocriado)
        if wrs("contador") >= 1 then
             If anocriado = anocomparado Then %>
			<div id="noticiasPage">
                <div class="noticiasArquivos-box">
                <div class="noticiasArquivos-box-mes">
				<% Response.Write escrevemes(mescriado) %>
                </div>
					<%
					 wsql2 = "SELECT * FROM tblNoticias WHERE MONTH(data) =" & mescriado & " ORDER BY data DESC"
					 SET wrs2 = wcon.EXECUTE(wsql2)
					 DO WHILE NOT wrs2.EOF
					  %>
                     	<div class="noticiasArquivos-box-dia-noticias"><%=wrs2("data")%> - <%=wrs2("titulo")%></div>
					 <%wrs2.MOVENEXT : LOOP%>
            </div>
        </div>
			 
			 
			 
			 <% Else %>
			<div id="noticiasPage">
                <div class="noticiasArquivos-box">
                <div class="noticiasArquivos-box-ano"><%response.Write anocriado%></div>
                <div class="noticiasArquivos-box-mes"><%
                     Response.Write  escrevemes(mescriado)
                     anocomparado = anocriado%>
                </div>
					<%
					 wsql3 = "SELECT * FROM tblNoticias WHERE MONTH(data) =" & mescriado & " ORDER BY data DESC"
					 SET wrs3 = wcon.EXECUTE(wsql3)
					 DO WHILE NOT wrs3.EOF %>
                     	<div class="noticiasArquivos-box-dia-noticias"><%=wrs3("data")%> - <%=wrs3("titulo")%></div>
					 <%wrs3.MOVENEXT : LOOP%>
            </div>
        </div>
					 
			 <%
              End If
        End If
        wcon.close
        Set wcon = Nothing
        Set wrs = Nothing
    Next
Next
%>

[Mário Monteiro 179]

Mude o for

 

For mesdata = 1 to 12

 

para

 

For mesdata = 12 to 1 STEP 1

[betobto 0]

Bom dia, fiz conforme você disse... mas qdo aplico For mesdata = 12 to 1 STEP 1 ele nao me mostra nada... fica tudo em branco

[Mário Monteiro 179]

cometi um errinho

 

é STEP -1

 

teste

[betobto 0]

aeeeeeeeeeeeeeeeeeeeeeeeeeeeee

 

mto obrigado.....

 

nem sei como agradecer....

 

mtoooooooooooo

 

obrigado deu certinho :D vlwwwwww

 

pode fechar

[Mário Monteiro 179]

que bom que resolveu

 

parabéns

[betobto 0]

Olá... olha eu ressuscitando o topico novamente....

 

to com um porem com os anos....

 

ao inves do 2011 fica em cima do 2010 esta o contrario.... o posso fazer para resolver isso

 

e outra coisa... pq fica lento para abrir o arquivo?

 

obrigado

[Mário Monteiro 179]

Poe o ano na ordenação também

[betobto 0]

fiz e retorna vazio o resultado....

[Mário Monteiro 179]

como fez?

[betobto 0]

For anodata = 1 to anos STEP -1
   anocriado = pegamenor + anodata
   For mesdata = 12 to 1 STEP -1
       mescriado = mesdata
       Set wcon = CreateObject("ADODB.Connection")
       wcon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("base.mdb")          
	wsql = "SELECT Count(data) as contador FROM tblNoticias WHERE MONTH(data) = " & mescriado & " and YEAR(data) = " & anocriado
	SET wrs = wcon.EXECUTE(wsql)	

 

consegui resolver mudei a linha

 

For anodata = 1 to anos STEP -1

 

por esta \/

 

For anodata = anos to 1 STEP -1

 

e deu certo

 

vlw

[Mário Monteiro 179]

Parabéns pela solução