Contacta con Belowgroup
<% sql="SELECT Month(fecha) AS Expr1, Year(fecha) AS Expr2 FROM noticias GROUP BY Month(fecha), Year(fecha) ORDER BY Month(fecha) DESC , Year(fecha) DESC;" set Rs=my_Conn.execute(sql) %>
<% if not Rs.EOF Then Do while not Rs.EOF mes=Rs("Expr1") Select Case mes Case 1 mes="Enero" Case 2 mes="Febrero" Case 3 mes="Marzo" Case 4 mes="Abril" Case 5 mes="Mayo" Case 6 mes="Junio" Case 7 mes="Julio" Case 8 mes="Agosto" Case 9 mes="Septiembre" Case 10 mes="Octubre" Case 11 mes="Noviembre" Case 12 mes="Diciembre" End Select mes=mes & " " %> <% Rs.movenext Loop %>
<%else%>
No hay noticias
<% end if %>
<% mounth=Request("mounth") year_=Request("year_") noticias = 0 if mounth<>"" and year_<>"" then sql="select * from noticias where month(fecha)=" & mounth & " and year(fecha)="& year_ &" order by fecha desc" 'response.write sql else sql="select * from noticias order by fecha desc" 'response.write sql end if set Rs=my_Conn.execute(sql) %> <% if not Rs.EOF Then 'Do while not Rs.EOF 'Do while noticias < 1 %>
<%=Rs("fecha")%>
" target="_self" class="enlaceGris"><%=Rs("titular")%> HOLA
<% noticias = noticias + 1 i = 0 Maximo = 350 ' Tamaño máximo permitido Cadena = Rs("desarrollo") If len ( Cadena ) > Maximo Then Cadena2 = Split ( Cadena, " " ) Cadena = "" Do While len ( Cadena ) + len ( Cadena2 ( i ) ) < Maximo Cadena = Cadena & " " & Cadena2 ( i ) i = i + 1 Loop End if response.write ( Cadena & "..." ) %>
<% Rs.movenext Loop 'Aqui acaba el bucle para cada noticia %> <%else%>
No hay noticias
<% end if %>