<%response.buffer=true sql="select texto from textos where ordem=2" Set mdbpontaleste = Server.CreateObject("ADODB.Connection") mdbpontaleste.open Application("ConexaoODBC_pontaleste") set rs=mdbpontaleste.execute(sql) texto=rs("texto") mdbpontaleste.close:set mdbpontaleste=nothing:set rs=nothing texto=replace(texto,"||-","'") texto=replace(texto,chr(13),"
 ") texto="   " & texto %> Ponta Leste Atividades Subaquáticas

   
 

<%=texto%>

  Petróleo Brasileiro S.A. - PETROBRAS
  Companhia Vale do Rio Doce
  Companhia Docas do Rio de Janeiro
  Furnas Centrais Elétricas
  Light - Serviços de Eletricidade S.A.
  Construtora Norberto Odebrecht S.A.
  IVI - Indústrias Verolme - Ishibras S.A.
  Construtora Queiroz Galvão S.A.
  Construtora Andrade Gutierrez S.A.
  Companhia Siderúrgica Nacional - CSN