<%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 %>
CNO - Construtora Norberto Odebrecht
Inspeção e apoio para execução de drenagem e batimetria
CSN - Companhia Siderúrgica Nacional
Reforma geral das defensas do Pier do Porto de Sepetiba
Petrobras Petróleo Brasileiro S.A.
  Aplicação de massa epóxi das estacas do Terminal Marítmo Almirante Barroso
<%=titulo(i)%>
  <%=stit(i)%>