Ponta Leste Atividades Subaquáticas

<%response.buffer=true dim titulo() dim texto() quant=0 sql="select titulo,texto from qualifpetro" Set mdbpontaleste = Server.CreateObject("ADODB.Connection") mdbpontaleste.open Application("ConexaoODBC_pontaleste") set rs=mdbpontaleste.execute(sql) while not rs.eof redim preserve titulo(quant+1) redim preserve texto(quant+1) titulo(quant)=rs("titulo") texto(quant)=rs("texto") 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),"||-","'") texto(i)=replace(texto(i),"||-","'") texto(i)=replace(texto(i),chr(13),"

") texto(i)="

" & texto(i) %> <%i=i+1 if i<=quant-1 then titulo(i)=replace(titulo(i),"||-","'") texto(i)=replace(texto(i),"||-","'") texto(i)=replace(texto(i),chr(13),"

") texto(i)="

" & texto(i) %> <% end if next erase titulo erase texto%>


	Inspeção Visual Medição de Potencial Eletroquímico Medição de Parede por Ultra-Som Ensaio por Partículas Magnéticas Fotografia Televisionamento <%=texto(i)%>


	<%=titulo(i)%> Manutenção Corte e Solda Instalação de defensas e abraçadeiras. Aplicação de massa epóxi Remoção de incrustações marinhas de casco hélice, leme e caixa de mar de embarcações. <%=texto(i)%>