<% ' usar multiplos de 4, ou seja, há 4 noticias por página maxNoticias=8 session("site_mph")=0 set rs=server.CreateObject("adodb.recordset") rs.activeconnection=strconn lg=request("lg") if lg="" then lg="pt" end if if lg="pt" then label_portfolio="Portfólio" elseif lg="en" then label_portfolio="Portfolio" end if template="index.asp?" if lg="pt" then id_lg=1 campo_titulo_noticia="titulo" campo_noticia="noticia" campo_titulo_destaque="descricao_pt" campo_link_destaque="link_pt" elseif lg="en" then id_lg=2 campo_titulo_noticia="ENG_titulo" campo_noticia="ENG_noticia" campo_titulo_destaque="descricao_en" campo_link_destaque="link_en" end if %> Homepage - Somague
<% id_empresa=10 imagem=da_imagem("const") sql="select titulo_"&lg&",template,id_conteudo from SMGConteudos where id_empresa="&id_empresa&" and ordem<>0" rs.open sql link_1=rs("template")&".asp?id="&rs("id_conteudo")&"&lg="&lg&"&id_empresa="&id_empresa %>
Engenharia
Engenharia
<% id_empresa=11 imagem=da_imagem("ambie") sql="select titulo_"&lg&",template,id_conteudo from SMGConteudos where id_empresa="&id_empresa&" and ordem<>0" rs.open sql link_1=rs("template")&".asp?id="&rs("id_conteudo")&"&lg="&lg&"&id_empresa="&id_empresa %>
Ambiente
Ambiente
<% id_empresa=12 imagem=da_imagem("conce") sql="select titulo_"&lg&",template,id_conteudo from SMGConteudos where id_empresa="&id_empresa&" and ordem<>0" rs.open sql link_1=rs("template")&".asp?id="&rs("id_conteudo")&"&lg="&lg&"&id_empresa="&id_empresa %>
Concessões
Concessões
<% maxNoticiasSelect=maxNoticias-2 sql="select top 1 "&campo_titulo_destaque&","&campo_link_destaque&",imagem_"&lg&",id_destaque,descricao_pt as titulo_pt from SMG_destaques where online=1 and "&campo_titulo_destaque&"<>'' order by newid()" rs.open sql ha_somasegue=false if not rs.eof then ha_somasegue=true link_destaque=rs(1) str_titulo=da_parte_titulo(rs(0)) id_destaque=rs(3) imagem=rs(2) %>
<% if InStr(rs("titulo_pt"),"[hide]")<=0 then%>
<%=str_noticia%>
<%end if%>
<% end if rs.close sql="select top "&maxNoticiasSelect&" "&campo_titulo_noticia&","&campo_noticia&",imagem,idnoticias from SMG_Noticias where idtipo=1 and online=1 and "&campo_titulo_noticia&"<>'' order by data desc" rs.open sql i=1 while not rs.eof str_noticia=""'rs(1) str_titulo=da_parte_titulo(rs(0)) idnoticia=rs(3) if not ha_somasegue then %>
<%=str_noticia%>
" width="116" height="71" alt="Notícia Home" />
<% rs.movenext if not rs.eof then str_noticia=""'rs(1) str_titulo=da_parte_titulo(rs(0)) idnoticia=rs(3) %>
<%=str_noticia%>
" width="116" height="71" alt="Notícia Home" />
<% rs.movenext end if end if if not rs.eof then str_noticia=""'rs(1) str_titulo=da_parte_titulo(rs(0)) idnoticia=rs(3) %>
<%=str_noticia%>
" width="116" height="71" alt="Notícia Home" />
<% rs.movenext end if if not rs.eof then str_noticia=""'rs(1) str_titulo=da_parte_titulo(rs(0)) idnoticia=rs(3) %>
<%=str_noticia%>
" width="116" height="71" alt="Notícia Home" />
<% rs.movenext end if %>
<% i=i+1 ha_somasegue=false 'bota a falso para carregar a segunda página já com as duas primeiras noticias wend %>
Botão Notícia Home  <% for i=2 to maxNoticias/4 %> Botão Notícia Home  <% next %>