<%@language="vbscript" codepage="1252"%> <crossmidia> <% call pegaNotG1 call pegaNot %>
<% dim EventoSim, NumNotEsq 'EventoSim define janela de eventos, NumNotEsq define nº de notícias na coluna EventoSim = false NumNotEsq = 4 if EventoSim then NumNotEsq = 3 %>
<% end if dim j for j=2 to 8 step 2%>

< <%=Nsecao(j)%> >

<%=data(j)%>

<%=tit(j)%>

<% if img(j) <> "" then %> <% end if %>

<%=chm(j)%>

<%if j<8 then%>
<% end if %>
<%next%>
<%if codigoG1<>"" then%>
<%if imgG1 <> empty then%> <% end if %>

<%=titG1%>

<%=chamG1%>

<%end if%> <%for j=0 to 1%>

< <%=Nsecao(j)%> >

<%=data(j)%>

<%=tit(j)%>

<% if img(j) <> "" then %> <% end if %>

<%=chm(j)%>


<%next%> <%for j=3 to 7 step 2%>

< <%=Nsecao(j)%> >

<%=data(j)%>

<%=tit(j)%>

<% if img(j) <> "" then %> <% end if %>

<%=chm(j)%>

<%if j<7 then%>
<% end if %>
<%next%>