<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = True Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.ExpiresAbsolute = #January 1, 1990 00:00:01# Response.Expires=0 %> Pousada Ajuruteua - O Paraíso é Aqui <% Set consulta = Conn.execute("select * from Pacotes") Set consulta2 = Conn.execute("select * from Diarias") %>
<% while not consulta2.eof %> <% consulta2.movenext wend consulta2.close consulta.close conn.close %>
<% while not consulta.eof %> <% consulta.movenext wend %>
<%=consulta("NomePacote")%> :

<%=replace(consulta("Descricao"), vbcrlf,"
")%>
   
<%=consulta2("TipoDiarias")%> :
<%=replace(consulta2("Descricao"), vbcrlf,"
")%>
   
TOPO