%response.buffer=true
sql="select texto from textos where ordem=4"
Set mdbpontaleste = Server.CreateObject("ADODB.Connection")
mdbpontaleste.open Application("ConexaoODBC_pontaleste")
set rs=mdbpontaleste.execute(sql)
texto=rs("texto")
mdbpontaleste.close:set mdbpontaleste=nothing:set rs=nothing
texto=replace(texto,"||-","'")
texto=replace(texto,chr(13),"
")
%>