<%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)%>