Não há disponibilidade para esta data (repare no quadro azul OFERTAS DE ALOJAMENTO). Se deseja buscar outra data, selecione data e hotel no formulário RESERVAS-ONLINE (caixa superior do menu lateral direito):·>
Buscar disponibilidad
<<%%>!-- #INCLUDE FILE="..\Lib\Lib.asp" --<%%>>
<%
' JJBM, 05/08/2005, bajar combo de hotel.
' JJBM, 26/08/2005, posible error en selección de noches en el input.
' Víctor, 20/09/2005, Cambiar el número por bnwp_fpw
' Víctor, 15/12/2005, Varios cambios para cumplir el W3C
' Víctor, 28/12/2005, Cambiar bnwp_fpw por su constante K_FPW_BKLD
' Víctor, 05/06/2006, Eliminar error en chkDisp en la función FPW2016_Cambia_Dias_Combos
' JJBM, 26/10/2006, adaptar para que sea pieza en menú lateral.
' JJBM, 31/10/2006, quitar link a búsqueda por mapa debajo de listado de servicios adicionales.
' JJBM, 31/10/2006, quitar link's a búsqueda geográfica.
' JJBM, 31/10/2006, quitar link's a búsqueda de ferias y convenciones.
' Víctor, 14/11/2006, Llamada a FPW2016_Cargar_Busq
' Víctor, 20/11/2006, Subir la provincia encima de la ciudad
' Víctor, 28/11/2006, Rediseñar el formulario
' Víctor, 12/12/2006, Pasar input noches a combo
' Víctor, 15/12/2006, Máximo valor de las opciones tipo adultos, niños y bebés
' Víctor, 20/12/2006, El combo de noches no cargaba bien BKLD_DIAS_MAX
' JJBM, 04/10/2007, ajustar para Aramón
' Víctor, 08/10/2007, Bug de doble código en PonerComboXXXX
' JJBM, 09/10/2007, ajustar controles para Aramón
' JJBM, 08/02/2008, LiberarLib
Const FPW_BKLD_FRM_BSQ_PAIS_VISIBLE = True
' Registro de lectura de bloque:
Dim fpw_info_bloque_clv ' Código de instalación.
Dim fpw_info_bloque_id ' Alias del bloque.
Dim fpw_info_bloque_nombre ' Nombre en el idioma actual.
Dim fpw_info_bloque_desc ' Descripción en el idioma actual.
Dim fpw_info_bloque_tipo_nombre ' Nombre del tipo de bloque en el idioma actual.
Dim fpw_info_bloque_tipo_desc ' Descripción del tipo de bloque en el idioma actual.
Dim fpw_info_archivo_nombre ' Nombre del archivo de inicio del módulo.
Dim fpw_info_en_lista_ind ' Indicador de inclusión en lista de acceso.
Dim fpw_info_acceso ' Indicador de permiso de acceso para el tipo de cliente actual.
Dim fpw_info_acceso_archivo ' Nombre completo bien formado del archivo de inicio.
Function Info_Bloque( ID_bloque )
Dim r
Comando_rst "bnwp_fpw_bloque_info " & Session("intIdioma") & ", null, null, '" & ID_bloque & "'", r
If Not r.EOF Then
fpw_info_bloque_clv = r("bloque_clv")
fpw_info_bloque_id = r("bloque_id")
fpw_info_bloque_nombre = r("bloque_nombre")
fpw_info_bloque_desc = r("bloque_desc")
fpw_info_bloque_tipo_nombre = r("bloque_tipo_nombre")
fpw_info_bloque_tipo_desc = r("bloque_tipo_desc")
fpw_info_archivo_nombre = r("archivo_nombre")
fpw_info_en_lista_ind = r("en_lista_ind")
fpw_info_acceso = r("acceso")
fpw_info_acceso_archivo = fpw_info_bloque_clv & "_" & fpw_info_archivo_nombre
Else
fpw_info_bloque_clv = -1
End If
Set r = Nothing
End Function
%>
<<%%>%
Dim pzm_fdb_plt_noches_max
If BKLD_DIAS_MAX <> "" Then
pzm_fdb_plt_noches_max = BKLD_DIAS_MAX
Else
pzm_fdb_plt_noches_max = 10
End If
%<%%>>
<%Info_Bloque "BKLD_2014"%>
<<%%>!-- #INCLUDE FILE="../Lib/LibFin.asp" --<%%>>
<%
Sub FPW2016_Rellenar_Datos
Dim r
Comando_rst "bnwp_bkld_proveedor_busqueda_lista " & Session("intIdioma"), r
While Not r.EOF
%>d(<% = r("pais_clv")
%>,<% = fgbbnFormato.CadenaJS(r("pais_nombre"))
%>,<% = r("proveedor_clv")
%>,<% = fgbbnFormato.CadenaJS(r("proveedor_nombre"))
%>,<% = fgbbnFormato.CadenaJS(r("provincia"))
%>,<% = fgbbnFormato.CadenaJS(r("ciudad"))
%>,<% = r("nestrellas")
%>,<% = r("nodo_clv")
%>,<% = fgbbnFormato.CadenaJS(r("nodo_nombre"))
%>,<% = fgbbnFormato.CadenaJS(r("prod_tipo_str"))
%>);<%
r.MoveNext
Wend
r.Close
Set r = Nothing
End Sub
Sub FPW2016_Rellenar_Prod_Tipo
Dim r
Comando_rst "bnwp_bkld_proveedor_prod_tipo_lista " & Session("intIdioma"), r
While Not r.EOF
%>p(<% = r("prod_tipo_clv")
%>,<% = fgbbnFormato.CadenaJS(r("prod_tipo_nombre"))
%>);<%
r.MoveNext
Wend
r.Close
Set r = Nothing
End Sub
Sub FPW2016_Rellenar_Servicios
Dim rst, cont
cont = 0
Comando_rst "bnwp_bkld_servicio_tipo_muestra " & Session("intIdioma") & ", " & "null ,null", rst
If Not rst.EOF Then
%>
<%
While Not rst.EOF
If Left( CStr( rst("fnt_servicio_tipo_id") ), 1 ) <> "$" Then
If cont Mod 2 = 0 Then Response.Write "
"
%>
"> <%=rst("nombre")%>
<%
If cont Mod 2 <> 0 Then Response.Write "
"
cont = cont + 1
End If
rst.MoveNext
Wend
If cont Mod 2 <> 0 Then
%>
<%
End If
%>
<%
End IF
rst.Close
Set rst = Nothing
End Sub
Sub FPW2016_Muestra_Clasificacion_ID(ID)
Dim rst
Comando_rst "bnwp_fpam_30_nodo_muestra_ID " & Session("intIdioma") & ", " & ID, rst
%>Z=<%=rst("nodo_clv")%>;ZI=<%=rst("nodo_clv")%>;ZN='<%=rst("nodo_nombre")%>';<%
rst.Close
Set rst = Nothing
End Sub
Function FPW2016_Numero_Adultos
FPW2016_Numero_Adultos = FPW2016_Opcion_Tipo_Mayor(15)
End Function
Function FPW2016_Numero_Ninos
FPW2016_Numero_Ninos = FPW2016_Opcion_Tipo_Mayor(16)
End Function
Function FPW2016_Numero_Bebes
FPW2016_Numero_Bebes = FPW2016_Opcion_Tipo_Mayor(17)
End Function
Function FPW2016_Opcion_Tipo_Mayor(opcion_tipo_clv)
Dim rst, mayor
' Por defecto el mayor es 1
mayor = 1
Comando_rst "bnwp_bkld_opcion_tipo_lista " & Session("intIdioma") & ", " & opcion_tipo_clv, rst
While Not rst.EOF
If CLng(rst("opcion_tipo_valor")) > mayor Then mayor = CLng(rst("opcion_tipo_valor"))
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
FPW2016_Opcion_Tipo_Mayor = mayor
End Function
Sub PonerComboTipoServicio
' Se situa en diferentes sitios:
%><%
End Sub
Sub PonerComboCategorias
' Se situa en diferentes sitios:
%><%=fgbbnIDI("BKLD_BUSQH_CATEGORIA")%> <%
End Sub
%>
-->
