% Option Explicit %> <% Dim con Dim sqlTarifa, rsTarifa Call abre_con sqlTarifa = "SELECT * FROM servicos WHERE pousada = 'e' AND tipo = 'c'" Set rsTarifa = Con.Execute(sqlTarifa) %>
<%If rsTarifa.EOF then%>
ALTA E BAIXA TEMPORADA
<%
Else
Dim sqlTitulo, rsTitulo
sqlTitulo = "SELECT * FROM titulos WHERE pousada = 'e'"
Set rsTitulo = Con.Execute(sqlTitulo)
%>
| |||
DUPLO |
TRIPLO |
QUÁDRUPLO |
|
<%=rsTitulo("titulo")%> <%=rsTitulo("titulo2")%> |
R$ <%=rsTarifa("valora")%>
<%rsTarifa.movenext%>
|
R$ <%=rsTarifa("valora")%>
<%rsTarifa.movenext%>
|
R$ <%=rsTarifa("valora")%> |
<%
rsTarifa.movefirst
rsTitulo.movenext
%>
<%=rsTitulo("titulo")%> <%=rsTitulo("titulo2")%> |
R$ <%=rsTarifa("valorb")%>
<%rsTarifa.movenext%>
|
R$ <%=rsTarifa("valorb")%>
<%rsTarifa.movenext%>
|
R$ <%=rsTarifa("valorb")%> |
<%
End If
rsTarifa.Close
Set rsTarifa = Nothing
rsTitulo.Close
Set rsTitulo = Nothing
%>
|
*Incluindo Café da Manhã |
<%=rsPacote("pacote")%> |
<%=novaDes%> |
|