<%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
 
Inspeção e apoio para execução de drenagem e batimetria nas instalações da Usina Nuclear - Angra dos Reis - RJ, tendo seu início em 24/07/97 e término previsto para 24/10/98.

  <%=stit(i)%>