<% sql = "SELECT * FROM Noticias WHERE aprovado = 'S' and posicao ='DESTAQUE-1' order by codigo desc" Set RS = Conn.Execute(sql) Cont = 0 %>

<%=RS("categoria")%>

<%Do While (Not RS.EOF) AND (Cont < 1)%> <% if rs("tem_link") = 1 then response.write "" else response.write "" end if %> " border="0" alt="<%=RS("titulo")%>" class="img-responsive">

<%=RS("titulo")%>

<%RS.MoveNext Cont = Cont + 1 Loop%>

<% sql = "SELECT * FROM Noticias WHERE aprovado = 'S' and posicao ='DESTAQUE-2' order by codigo desc" Set RS = Conn.Execute(sql) Cont = 0 %>

<%=RS("categoria")%>

<%Do While (Not RS.EOF) AND (Cont < 1)%> <% if rs("tem_link") = 1 then response.write "" else response.write "" end if %> " border="0" alt="<%=RS("titulo")%>" class="img-responsive">

<%=RS("titulo")%>

<%RS.MoveNext Cont = Cont + 1 Loop%>

<% sql = "SELECT * FROM Noticias WHERE aprovado = 'S' and posicao ='DESTAQUE-3' order by codigo desc" Set RS = Conn.Execute(sql) Cont = 0 %>

<%=RS("categoria")%>

<%Do While (Not RS.EOF) AND (Cont < 1)%> <% if rs("tem_link") = 1 then response.write "" else response.write "" end if %> " border="0" alt="<%=RS("titulo")%>" class="img-responsive">

<%=RS("titulo")%>

<%RS.MoveNext Cont = Cont + 1 Loop%>