<% set rs=server.CreateObject("adodb.recordset") rs.activeconnection=strconn set rsAux=server.CreateObject("adodb.recordset") rsAux.activeconnection=strconn id=request("id") lg=request("lg") site_mph=request("site_mph") checkIntegerInjection array(id) template="conteudo_c_foto_2.asp?id="&id&"&" if lg="pt" then id_lg=1 label_eng_operacoes="Engenharia e Operações" label_info="Inf. Financeira" elseif lg="en" then id_lg=2 label_eng_operacoes="Engineering and Operations" label_info="Financial Info" end if sql="select a.nome_"&lg&",b.id_empresa,b.titulo_"&lg&",b.intro_"&lg&",a.logo,a.id_pai from SMGEmpresas a inner join SMGConteudos b on a.id_empresa=b.id_empresa where b.id_conteudo="&id rs.open sql nome_empresa=rs(0) id_empresa=rs(1) titulo=rs(2) intro=rs(3) logo=rs(4) id_pai=rs(5) rs.close id_pai_rec=id_pai id_empresa_pai=id_empresa while id_pai_rec<>9 sql="select id_pai,nome_"&lg&",id_empresa,tem_pagina from SMGEmpresas where id_empresa="&id_pai_rec rs.open sql id_pai_rec=rs(0) nome_pai=rs(1) id_empresa_pai=rs(2) tem_pagina=rs("tem_pagina") rs.close if tem_pagina then sql="select id_conteudo,template from SMGConteudos where id_empresa="&id_empresa_pai&" and ordem=1" rs.open sql id_conteudo_pai=rs(0) template_pai=rs(1) rs.close if nome_pai<>"Somague Engenharia" and nome_pai<>"Somague Ambiente" and nome_pai<>"Somague Concessões" and nome_pai<>"Somague Imobiliária" then nome_empresa=""&nome_pai&" : "&nome_empresa end if end if wend if id_pai_rec=id_pai then nome_str=nome_empresa else nome_str=nome_pai end if id_tipo=da_id_tipo(nome_str) label=da_label(id_lg,id_tipo) id_participadas=da_id_participadas(id_empresa_pai) id_root=da_id_root(id_empresa_pai) template_pai=da_template_pai(id_empresa_pai) foto_centro=da_foto_centro(id_empresa) foto_topo=da_foto_topo(id_empresa) label_css=da_label_css(id_tipo) color_hover=da_color_hover(id_tipo) if id=61 or id=65 then ' se for Engenharia ou Operações nome_empresa=nome_empresa&" : "&label_eng_operacoes&"" 'nome_empresa=nome_empresa&" : Engenharia e Operações" id=60 'Engenharia e Operaçõoes (para abrir o menu empresa neste ponto) end if if id=160 then ' se for Indicadores nome_empresa=nome_empresa&" : "&label_info&"" 'nome_empresa=nome_empresa&" : Inf. Financeira" id=6 'Inf. Financeira (para abrir o menu empresa neste ponto) end if title_tag=da_tag_title(nome_empresa) img_bullet_1="../img/seta_01_"&label_css&".png" %> <% if id_pai_rec<>id_pai then %> <%=titulo%> - <%=title_tag%> - <%=nome_pai%> - Somague <% else %> <%=titulo%> - <%=title_tag%> - Somague <% end if %>
Imagem Topo
Logo Empresa
<% if id_pai_rec=id_pai then %>
<%=label%> : <%=nome_empresa%>
<% else %>
<%=label%> : <%=nome_pai%> : <%=nome_empresa%>
<% end if %>
<% if foto_centro<>"" then %>
Area Empresas
<% end if %>
Seta Verde  <%=titulo%>


<%=intro%>



<% set rs=nothing set rsAux=nothing %>