<%@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 Entradas order by Entradas asc") Set consulta2 = Conn.execute("select * from Refeicoes order by Refeicoes asc") Set consulta3 = Conn.execute("select * from Bebidas order by Bebidas asc") Set consulta4 = Conn.execute("select * from Porcoes order by Porcoes asc") %>
<% cor = 1 while not Consulta.eof if (cor = 1) then bg = "#FFFFFF" cor = 2 else bg = "#EFEFEF" cor = 1 end if %> <% consulta.movenext wend %>
<%=consulta("Entradas")%> :

<%=replace(consulta("Descricao"), vbcrlf,"
")%>
 R$
<%=consulta("Valor")%>
<% while not consulta2.eof if (cor = 1) then bg = "#FFFFFF" cor = 2 else bg = "#EFEFEF" cor = 1 end if %> <% consulta2.movenext wend %>
<%=consulta2("Refeicoes")%> :
<%=replace(consulta2("Descricao"), vbcrlf,"
")%>
 R$
<%=consulta2("Valor")%>
<% while not consulta3.eof if (cor = 1) then bg = "#FFFFFF" cor = 2 else bg = "#EFEFEF" cor = 1 end if %> <% consulta3.movenext wend %>
<%=consulta3("Bebidas")%> :
<%=replace(consulta3("Descricao"), vbcrlf,"
")%>
 R$
<%=consulta3("Valor")%>
<% while not consulta4.eof if (cor = 1) then bg = "#FFFFFF" cor = 2 else bg = "#EFEFEF" cor = 1 end if %> <% consulta4.movenext wend consulta.close consulta2.close consulta3.close consulta4.close conn.close %>
<%=consulta4("Porcoes")%> :
<%=replace(consulta4("Descricao"), vbcrlf,"
")%>
 R$
<%=consulta4("Valor")%>
TOPO