<%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 %>
CSN - Companhia Siderúrgica Nacional
Reforma geral das defensas do Pier do Porto de Sepetiba
 
Reforma geral das defensas do Pier do Porto de Sepetiba - Itaguaí - RJ, para um total de 32 defensas, tendo seu início em 02/04/98 e término previsto para 02/04/99.

  <%=stit(i)%>