<%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),"||-","'")
%>
