<% if int(request.QueryString("noticias")) = 0 then it_max_noticias = 7 else it_max_noticias = int(request.QueryString("noticias")) end if id_site = Application("siteID") id_site_area_secao = 166 ' Seção Giro do Boi SET sql_01 = DB.Execute("EXEC asp_site_area_secao_002 '" & id_site & "','" & id_site_area_secao & "'") if not sql_01.EOF then id_site_area = int(sql_01("id_site_area")) end if SET sql_01 = nothing if id_site_area > 0 then sql = " SELECT TOP "& it_max_noticias & " " &_ " a.id_noticia, " &_ " b.dt_cadastro, " &_ " b.vc_noticia " &_ " FROM avw_noticia_001 AS a WITH(NOLOCK) " &_ " INNER JOIN atb_noticia AS b WITH(NOLOCK) " &_ " ON a.id_noticia = b.id_noticia " &_ " WHERE a.id_site_area_secao = " & id_site_area_secao & " " &_ " ORDER by b.dt_cadastro DESC " set sql_01 = DB.Execute (sql) if not sql_01.eof then %> :: BeefPoint - O Ponto de Encontro da Cadeia Produtiva da Carne ::
<% while not sql_01.eof %> <% sql_01.movenext wend %>
<%=formataData(sql_01("dt_cadastro"),1)%>  /?actA=7&areaID=<%=id_site_area%>&secaoID=<%=id_site_area_secao%>¬iciaID=<%=int(sql_01("id_noticia"))%>" target="_blank"><%=replaceConteudo(sql_01("vc_noticia"))%>
(Leia Mais)
 
<% end if end if%>