<%response.buffer=true dim ordem() dim titulo() dim stit() quant=0 sql="select ordem,titulo,stit from servexec order by titulo" Set mdbpontaleste = Server.CreateObject("ADODB.Connection") mdbpontaleste.open Application("ConexaoODBC_pontaleste") set rs=mdbpontaleste.execute(sql) while not rs.eof redim preserve ordem(quant+1) redim preserve titulo(quant+1) redim preserve stit(quant+1) ordem(quant)=rs("ordem") titulo(quant)=rs("titulo") stit(quant)=rs("stit") quant=quant+1 rs.movenext wend mdbpontaleste.close:set mdbpontaleste=nothing:set rs=nothing %> Ponta Leste Atividades Subaquáticas

   
<%for i=0 to quant-1 titulo(i)=replace(titulo(i),"||-","'") stit(i)=replace(stit(i),"||-","'") %> <%next erase ordem erase titulo erase stit %>
Petrobras Petróleo Brasileiro S.A.

Aplicação de massa epóxi das estacas do Terminal Marítmo Almirante Barroso


Equipe de trabalho
Aplicação de
massa epóxi nas estacas do Terminal Marítmo Almirante Barroso - TEBAR em São Sebastião - SP, para um total de 3.700 m², tendo seu início em 20/10/97 e término previsto para 01/12/98.

  <%=stit(i)%>