<%response.buffer=true sql="select texto from textos where ordem=1" 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

   
 


  Inspeção e manutenção de estruturas submarinas de pontes, barragens, portos, piers, marinas, embarcações e plataformas offshore.
  Perícias técnicas e resgate de embarcações sinistradas
<%=texto%>