<% sql="SELECT * FROM home WHERE id=1" %> <% Set resultHom=con.Execute(sql) %> <% Function ArreglaSaltos(cadena) cadena = Replace(cadena,vbCrLf,"
") ArreglaSaltos = cadena End Function %> <% sw_form=request.Form("sw_form") %> <% sw_paginas=request.Querystring("sw_paginas") %> <% If sw_paginas="" or sw_paginas=0 Then %> <% If sw_form=0 or sw_form="" Then %> <% hotel=0 %> <% balneario=0 %> <% hostal=0 %> <% pension=0 %> <% hosteria=0 %> <% hospederia=0 %> <% albergue=0 %> <% camping=0 %> <% hotelrural=0 %> <% alojamientoruralsingular=0 %> <% venta=0 %> <% complejodeturismorural=0 %> <% explotaciondeagroturismo=0 %> <% casarural=1 %> <% apartamento=0 %> <% aparthotel=0 %> <% alquilercompleto=0 %> <% actividades=0 %> <% animales=0 %> <% jardin=0 %> <% barbacoa=0 %> <% piscina=0 %> <% jacuzzi=0 %> <% spa=0 %> <% esqui=0 %> <% adaptado=0 %> <% aire=0 %> <% chimenea=0 %> <% hidromasaje=0 %> <% wifi=0 %> <% comida=0 %> <% cena=0 %> <% desayuno=0 %> <% Else %> <% provincia=request.Form("provincia") %> <% municipio=request.Form("municipio") %> <% hotel=request.Form("hotel") %> <% balneario=request.Form("balneario") %> <% hostal=request.Form("hostal") %> <% pension=request.Form("pension") %> <% hosteria=request.Form("hosteria") %> <% hospederia=request.Form("hospederia") %> <% albergue=request.Form("albergue") %> <% camping=request.Form("camping") %> <% hotelrural=request.Form("hotelrural") %> <% alojamientoruralsingular=request.Form("alojamientoruralsingular") %> <% complejodeturismorural=request.Form("complejodeturismorural") %> <% venta=request.Form("venta") %> <% explotaciondeagroturismo=request.Form("explotaciondeagroturismo") %> <% casarural=request.Form("casarural") %> <% apartamento=request.Form("apartamento") %> <% aparthotel=request.Form("aparthotel") %> <% alquilercompleto=request.Form("alquilercompleto") %> <% actividades=request.Form("actividades") %> <% animales=request.Form("animales") %> <% jardin=request.Form("jardin") %> <% barbacoa=request.Form("barbacoa") %> <% piscina=request.Form("piscina") %> <% jacuzzi=request.Form("jacuzzi") %> <% spa=request.Form("spa") %> <% esqui=request.Form("esqui") %> <% adaptado=request.Form("adaptado") %> <% aire=request.Form("aire") %> <% chimenea=request.Form("chimenea") %> <% hidromasaje=request.Form("hidromasaje") %> <% wifi=request.Form("wifi") %> <% comida=request.Form("comida") %> <% cena=request.Form("cena") %> <% desayuno=request.Form("desayuno") %> <% End If %> <% pag=1 %> <% Else %> <% provincia=Request.Querystring("provincia") %> <% If provincia="" Then %> <% provincia=0 %> <% End If %> <% municipio=Request.Querystring("municipio") %> <% If municipio="" Then %> <% municipio=0 %> <% End If %> <% hotel=Request.Querystring("hotel") %> <% balneario=Request.Querystring("balneario") %> <% hostal=Request.Querystring("hostal") %> <% pension=Request.Querystring("pension") %> <% hosteria=Request.Querystring("hosteria") %> <% hospederia=Request.Querystring("hospederia") %> <% albergue=Request.Querystring("albergue") %> <% camping=Request.Querystring("camping") %> <% hotelrural=Request.Querystring("hotelrural") %> <% alojamientoruralsingular=Request.Querystring("alojamientoruralsingular") %> <% complejodeturismorural=Request.Querystring("complejodeturismorural") %> <% venta=Request.Querystring("venta") %> <% explotaciondeagroturismo=Request.Querystring("explotaciondeagroturismo") %> <% casarural=Request.Querystring("casarural") %> <% apartamento=Request.Querystring("apartamento") %> <% aparthotel=Request.Querystring("aparthotel") %> <% alquilercompleto=Request.Querystring("alquilercompleto") %> <% actividades=request.Querystring("actividades") %> <% animales=request.Querystring("animales") %> <% jardin=request.Querystring("jardin") %> <% barbacoa=request.Querystring("barbacoa") %> <% piscina=request.Querystring("piscina") %> <% jacuzzi=request.Querystring("jacuzzi") %> <% spa=request.Querystring("spa") %> <% esqui=request.Querystring("esqui") %> <% adaptado=request.Querystring("adaptado") %> <% aire=request.Querystring("aire") %> <% chimenea=request.Querystring("chimenea") %> <% hidromasaje=request.Querystring("hidromasaje") %> <% wifi=request.Querystring("wifi") %> <% comida=request.Querystring("comida") %> <% cena=request.Querystring("cena") %> <% desayuno=request.Querystring("desayuno") %> <% pag=Request.Querystring("pag") %> <% End If %> <% If pag="" or pag=0 Then %> <% pag=1 %> <% End If %> <% If provincia="" or provincia=0 Then %> <% provincia=0 %> <% End If %> <% If municipio="" or municipio=0 Then %> <% municipio=0 %> <% End If %> <% If hotel="" Then %> <% hotel=0 %> <% End If %> <% If balneario="" Then %> <% balneario=0 %> <% End If %> <% If hostal="" Then %> <% hostal=0 %> <% End If %> <% If pension="" Then %> <% pension=0 %> <% End If %> <% If hosteria="" Then %> <% hosteria=0 %> <% End If %> <% If hospederia="" Then %> <% hospederia=0 %> <% End If %> <% If albergue="" Then %> <% albergue=0 %> <% End If %> <% If camping="" Then %> <% camping=0 %> <% End If %> <% If hotelrural="" Then %> <% hotelrural=0 %> <% End If %> <% If alojamientoruralsingular="" Then %> <% alojamientoruralsingular=0 %> <% End If %> <% If complejodeturismorural="" Then %> <% complejodeturismorural=0 %> <% End If %> <% If venta="" Then %> <% venta=0 %> <% End If %> <% If explotaciondeagroturismo="" Then %> <% explotaciondeagroturismo=0 %> <% End If %> <% If casarural="" Then %> <% casarural=0 %> <% End If %> <% If apartamento="" Then %> <% apartamento=0 %> <% End If %> <% If aparthotel="" Then %> <% aparthotel=0 %> <% End If %> <% If alquilercompleto="" Then %> <% alquilercompleto=0 %> <% End If %> <% If actividades="" Then %> <% actividades=0 %> <% End If %> <% If animales="" Then %> <% animales=0 %> <% End If %> <% If jardin="" Then %> <% jardin=0 %> <% End If %> <% If barbacoa="" Then %> <% barbacoa=0 %> <% End If %> <% If piscina="" Then %> <% piscina=0 %> <% End If %> <% If jacuzzi="" Then %> <% jacuzzi=0 %> <% End If %> <% If spa="" Then %> <% spa=0 %> <% End If %> <% If esqui="" Then %> <% esqui=0 %> <% End If %> <% If adaptado="" Then %> <% adaptado=0 %> <% End If %> <% If aire="" Then %> <% aire=0 %> <% End If %> <% If chimenea="" Then %> <% chimenea=0 %> <% End If %> <% If hidromasaje="" Then %> <% hidromasaje=0 %> <% End If %> <% If wifi="" Then %> <% wifi=0 %> <% End If %> <% If comida="" Then %> <% comida=0 %> <% End If %> <% If cena="" Then %> <% cena=0 %> <% End If %> <% If desayuno="" Then %> <% desayuno=0 %> <% End If %> Casas rurales en Castilla-La Mancha | La mejor oferta de casas rurales | Casa rural en Castilla-La Mancha | Pag. <% Response.Write(pag) %>
<% sql="SELECT * FROM alojamientos WHERE id=" & resultHom("rec1") %> <% Set resultAlo=con.Execute(sql) %>

"><% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>
<% If resultAlo("categoria")>0 Then %> <% for i=1 to resultAlo("categoria") %> <% If resultAlo("clase")=2 Then %> <% ElseIf resultAlo("tipo")="Apartamento" or resultAlo("tipo")="Apartamentos" or resultAlo("tipo")="Aparthotel" Then %> <% Else %> <% End If %> <% next %> <% Else %>
<% End If %> <% If len(resultAlo("tipo")) + len(resultAlo("establecimiento"))<33 Then %>
<% End If %>

">/foto1.jpg" alt="<% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>" title="<% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>" style="width:200px; height:134px" vspace="5"> <% sql="SELECT * FROM provincias WHERE id=" & resultAlo("codprovincia") %> <% Set resultPro=con.Execute(sql) %>

<% Response.Write(Ucase(resultPro("provincia"))) %>

<% sql="SELECT * FROM alojamientos WHERE id=" & resultHom("rec2") %> <% Set resultAlo=con.Execute(sql) %>

"><% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>
<% If resultAlo("categoria")>0 Then %> <% for i=1 to resultAlo("categoria") %> <% If resultAlo("clase")=2 Then %> <% ElseIf resultAlo("tipo")="Apartamento" or resultAlo("tipo")="Apartamentos" or resultAlo("tipo")="Aparthotel" Then %> <% Else %> <% End If %> <% next %> <% Else %>
<% End If %> <% If len(resultAlo("tipo")) + len(resultAlo("establecimiento"))<33 Then %>
<% End If %>

">/foto1.jpg" alt="<% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>" title="<% Response.Write(resultAlo("tipo") & " " & resultAlo("establecimiento")) %>" style="width:200px; height:134px" vspace="5"> <% sql="SELECT * FROM provincias WHERE id=" & resultAlo("codprovincia") %> <% Set resultPro=con.Execute(sql) %>

<% Response.Write(Ucase(resultPro("provincia"))) %>

<% sql="SELECT * FROM empresas WHERE id=" & resultHom("rec5") %> <% Set resultEmp=con.Execute(sql) %>

"><% Response.Write(resultEmp("nombre")) %>
<% If len(resultEmp("nombre"))<33 Then %>
<% End If %>

">/foto1.jpg" alt="<% Response.Write(resultEmp("nombre")) %>" title="<% Response.Write(resultEmp("nombre")) %>" style="width:200px; height:134px" vspace="5"> <% sql="SELECT * FROM provincias WHERE id=" & resultEmp("provincia") %> <% Set resultPro=con.Execute(sql) %>

<% Response.Write(Ucase(resultPro("provincia"))) %>

<% sql="SELECT * FROM empresas WHERE id=" & resultHom("rec6") %> <% Set resultEmp=con.Execute(sql) %>

"><% Response.Write(resultEmp("nombre")) %>
<% If len(resultEmp("nombre"))<33 Then %>
<% End If %>

">/foto1.jpg" alt="<% Response.Write(resultEmp("nombre")) %>" title="<% Response.Write(resultEmp("nombre")) %>" style="width:200px; height:134px" vspace="5"> <% sql="SELECT * FROM provincias WHERE id=" & resultEmp("provincia") %> <% Set resultPro=con.Execute(sql) %>

<% Response.Write(Ucase(resultPro("provincia"))) %>

<% If sw_paginas=0 Then %> <% If sw_form=0 Then %>
<% sql="SELECT * FROM alojamientos WHERE contrato>0 AND tipo='Casa rural' ORDER BY contrato DESC, fecha_alta" %>
<% Else %> <% sw_sql=0 %> <% sql="SELECT * FROM alojamientos WHERE contrato>0" %> <% If provincia>0 Then %> <% sql=sql & " AND codprovincia=" & provincia %> <% End If %> <% If municipio>0 Then %> <% sql=sql & " AND municipio=" & municipio %> <% End If %> <% If hotel=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hotel'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hotel'" %> <% End If %> <% End If %> <% If balneario=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Balneario'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Balneario'" %> <% End If %> <% End If %> <% If hostal=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hostal'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hostal'" %> <% End If %> <% End If %> <% If pension=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Pensión'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Pensión'" %> <% End If %> <% End If %> <% If hosteria=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hostería'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hostería'" %> <% End If %> <% End If %> <% If hospederia=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hospedería'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hospedería'" %> <% End If %> <% End If %> <% If albergue=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Albergue'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Albergue'" %> <% End If %> <% End If %> <% If camping=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Camping'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Camping'" %> <% End If %> <% End If %> <% If hotelrural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hotel rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hotel rural'" %> <% End If %> <% End If %> <% If alojamientoruralsingular=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Alojamiento rural singular'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Alojamiento rural singular'" %> <% End If %> <% End If %> <% If venta=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Venta'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Venta'" %> <% End If %> <% End If %> <% If complejodeturismorural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Complejo de turismo rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Complejo de turismo rural'" %> <% End If %> <% End If %> <% If casarural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Casa rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Casa rural'" %> <% End If %> <% End If %> <% If explotaciondeagroturismo=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Explotación de agroturismo'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Explotación de agroturismo'" %> <% End If %> <% End If %> <% If apartamento=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Apartamentos'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Apartamentos'" %> <% End If %> <% End If %> <% If aparthotel=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Aparthotel'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Aparthotel'" %> <% End If %> <% End If %> <% If alquilercompleto=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND ((contenido='Vivienda completa' OR contenido='Ambos')" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR (contenido='Vivienda completa' OR contenido='Ambos')" %> <% End If %> <% End If %> <% If sw_sql=1 Then %> <% sql=sql & ")" %> <% End If %> <% ' Servicios %> <% If actividades=1 Then %> <% sql=sql & " AND actividades=1" %> <% End If %> <% If animales=1 Then %> <% sql=sql & " AND animales=1" %> <% End If %> <% If jardin=1 Then %> <% sql=sql & " AND jardin=1" %> <% End If %> <% If barbacoa=1 Then %> <% sql=sql & " AND barbacoa=1" %> <% End If %> <% If piscina=1 Then %> <% sql=sql & " AND piscina=1" %> <% End If %> <% If jacuzzi=1 Then %> <% sql=sql & " AND jacuzzi=1" %> <% End If %> <% If spa=1 Then %> <% sql=sql & " AND spa=1" %> <% End If %> <% If esqui=1 Then %> <% sql=sql & " AND esqui=1" %> <% End If %> <% If adaptado=1 Then %> <% sql=sql & " AND adaptado=1" %> <% End If %> <% If aire=1 Then %> <% sql=sql & " AND aire=1" %> <% End If %> <% If chimenea=1 Then %> <% sql=sql & " AND chimenea=1" %> <% End If %> <% If hidromasaje=1 Then %> <% sql=sql & " AND hidromasaje=1" %> <% End If %> <% If wifi=1 Then %> <% sql=sql & " AND wifi=1" %> <% End If %> <% If comida=1 Then %> <% sql=sql & " AND comida=1" %> <% End If %> <% If cena=1 Then %> <% sql=sql & " AND cena=1" %> <% End If %> <% If desayuno=1 Then %> <% sql=sql & " AND desayuno=1" %> <% End If %> <% sql=sql & " ORDER BY contrato DESC, fecha_alta, id" %> <% End If %> <% Else %> <% ' Cambio de página %> <% sw_sql=0 %> <% sql="SELECT * FROM alojamientos WHERE contrato>0" %> <% If provincia>0 Then %> <% sql=sql & " AND codprovincia=" & provincia %> <% End If %> <% If municipio>0 Then %> <% sql=sql & " AND municipio=" & municipio %> <% End If %> <% If hotel=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hotel'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hotel'" %> <% End If %> <% End If %> <% If balneario=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Balneario'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Balneario'" %> <% End If %> <% End If %> <% If hostal=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hostal'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hostal'" %> <% End If %> <% End If %> <% If pension=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Pensión'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Pensión'" %> <% End If %> <% End If %> <% If hosteria=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hostería'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hostería'" %> <% End If %> <% End If %> <% If hospederia=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hospedería'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hospedería'" %> <% End If %> <% End If %> <% If albergue=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Albergue'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Albergue'" %> <% End If %> <% End If %> <% If camping=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Camping'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Camping'" %> <% End If %> <% End If %> <% If hotelrural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Hotel rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Hotel rural'" %> <% End If %> <% End If %> <% If alojamientoruralsingular=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Alojamiento rural singular'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Alojamiento rural singular'" %> <% End If %> <% End If %> <% If complejodeturismorural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Complejo de turismo rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Complejo de turismo rural'" %> <% End If %> <% End If %> <% If venta=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Venta'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Venta'" %> <% End If %> <% End If %> <% If explotaciondeagroturismo=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Explotación de agroturismo'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Explotación de agroturismo'" %> <% End If %> <% End If %> <% If casarural=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Casa rural'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Casa rural'" %> <% End If %> <% End If %> <% If apartamento=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Apartamentos'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Apartamentos'" %> <% End If %> <% End If %> <% If aparthotel=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND (tipo='Aparthotel'" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR tipo='Aparthotel'" %> <% End If %> <% End If %> <% If alquilercompleto=1 Then %> <% If sw_sql=0 Then %> <% sql=sql & " AND ((contenido='Vivienda completa' OR contenido='Ambos')" %> <% sw_sql=1 %> <% Else %> <% sql=sql & " OR (contenido='Vivienda completa' OR contenido='Ambos')" %> <% End If %> <% End If %> <% If sw_sql=1 Then %> <% sql=sql & ")" %> <% End If %> <% ' Servicios %> <% If actividades=1 Then %> <% sql=sql & " AND actividades=1" %> <% End If %> <% If animales=1 Then %> <% sql=sql & " AND animales=1" %> <% End If %> <% If jardin=1 Then %> <% sql=sql & " AND jardin=1" %> <% End If %> <% If barbacoa=1 Then %> <% sql=sql & " AND barbacoa=1" %> <% End If %> <% If piscina=1 Then %> <% sql=sql & " AND piscina=1" %> <% End If %> <% If jacuzzi=1 Then %> <% sql=sql & " AND jacuzzi=1" %> <% End If %> <% If spa=1 Then %> <% sql=sql & " AND spa=1" %> <% End If %> <% If esqui=1 Then %> <% sql=sql & " AND esqui=1" %> <% End If %> <% If adaptado=1 Then %> <% sql=sql & " AND adaptado=1" %> <% End If %> <% If aire=1 Then %> <% sql=sql & " AND aire=1" %> <% End If %> <% If chimenea=1 Then %> <% sql=sql & " AND chimenea=1" %> <% End If %> <% If hidromasaje=1 Then %> <% sql=sql & " AND hidromasaje=1" %> <% End If %> <% If wifi=1 Then %> <% sql=sql & " AND wifi=1" %> <% End If %> <% If comida=1 Then %> <% sql=sql & " AND comida=1" %> <% End If %> <% If cena=1 Then %> <% sql=sql & " AND cena=1" %> <% End If %> <% If desayuno=1 Then %> <% sql=sql & " AND desayuno=1" %> <% End If %> <% sql=sql & " ORDER BY contrato DESC, fecha_alta, id" %> <% End If %> <% 'Response.Write(sql) %> <% Set result=con.Execute(sql) %> <% sqlP=sql %> <% reg=0 %> <% do while not result.eof %> <% reg=reg+1 %> <% result.movenext %> <% loop %> <% paginas=1 %> <% pagina_actual=pag %> <% registros_pagina=resultHom("registrospagina") %> <% registros=0 %> <% ' Cálculo del número de páginas %> <% paginas1=reg/registros_pagina %> <% paginas2=reg\registros_pagina %> <% If paginas1=paginas2 Then %> <% paginas=paginas1 %> <% Else %> <% paginas=paginas2+1 %> <% End If %> <%' Carga de la tabla de paginación %> <% dim tabla(999) %> <% p=1 %> <% for i=1 to paginas %> <% tabla(i)=p %> <% p=p+registros_pagina %> <% next %>

  BUSCADOR DE ALOJAMIENTOS

   Casas rurales


Establecimientos encontrados: <% Response.Write(reg) %>

FILTROS DE BÚSQUEDA

DESTINO
Provincia: 
Municipio:  <% If provincia=0 or provincia="" Then %> <% sqlM="SELECT * FROM municipios ORDER BY localidad" %> <% Else %> <% sqlM="SELECT * FROM municipios WHERE codprovincia=" & provincia & " ORDER BY localidad" %> <% End If %> <% 'Response.Write(provincia & "-" & municipio) %> <% Set resultMun=con.Execute(sqlM) %>

_______________________________

ALQUILER POR HABITACIONES

<% If hotel=0 or hotel="" Then %>   Hotel <% Else %>   Hotel <% End If %>
<% If balneario=0 or balneario="" Then %>   Balneario <% Else %>   Balneario <% End If %>
<% If hostal=0 or hostal="" Then %>   Hostal <% Else %>   Hostal <% End If %>
<% If pension=0 or pension="" Then %>   Pensión <% Else %>   Pensión <% End If %>
<% If hosteria=0 or hosteria="" Then %>   Hostería <% Else %>   Hostería <% End If %>
<% If hospederia=0 or hospederia="" Then %>   Hospedería <% Else %>   Hospedería <% End If %>
<% If albergue=0 or albergue="" Then %>   Albergue <% Else %>   Albergue <% End If %>
<% If camping=0 or camping="" Then %>   Camping <% Else %>   Camping <% End If %>
<% If alojamientoruralsingular=0 or alojamientoruralsingular="" Then %>   Alojamiento rural singular <% Else %>   Alojamiento rural singular <% End If %>
<% If complejodeturismorural=0 or complejodeturismorural="" Then %>   Complejo de turismo rural <% Else %>   Complejo de turismo rural <% End If %>
<% If venta=0 or venta="" Then %>   Venta <% Else %>   Venta <% End If %>
<% If explotaciondeagroturismo=0 or explotaciondeagroturismo="" Then %>   Explotación de agroturismo <% Else %>   Explotación de agroturismo <% End If %>
<% If hotelrural=0 or hotelrural="" Then %>   Hotel rural <% Else %>   Hotel rural <% End If %>
<% If casarural=0 or casarural="" Then %>   Casa rural <% Else %>   Casa rural <% End If %>

ALQUILER DE VIVIENDA COMPLETA

<% If apartamento=0 or apartamento="" Then %>   Apartamento <% Else %>   Apartamento <% End If %>
<% If aparthotel=0 or aparthotel="" Then %>   Aparthotel <% Else %>   Aparthotel <% End If %>
<% If alquilercompleto=0 or alquilercompleto="" Then %>   Casa rural del alquiler íntegro <% Else %>   Casa rural del alquiler íntegro <% End If %> _______________________________

SERVICIOS

<% If actividades=0 or actividades="" Then %>   Actividades <% Else %>   Actividades <% End If %>
<% If animales=0 or animales="" Then %>   Adminte animales <% Else %>   Adminte animales <% End If %>
<% If jardin=0 or jardin="" Then %>   Jardín <% Else %>   Jardín <% End If %>
<% If barbacoa=0 or barbacoa="" Then %>   Barbacoa <% Else %>   Barbacoa <% End If %>
<% If piscina=0 or piscina="" Then %>   Piscina <% Else %>   Piscina <% End If %>
<% If jacuzzi=0 or jacuzzi="" Then %>   Jacuzzi <% Else %>   Jacuzzi <% End If %>
<% If spa=0 or spa="" Then %>   Spa <% Else %>   Spa <% End If %>
<% If esqui=0 or esqui="" Then %>   Esquí <% Else %>   Esquí <% End If %>
<% If adaptado=0 or adaptado="" Then %>   Adaptado para discapacitados <% Else %>   Adaptado para discapacitados <% End If %>
<% If aire=0 or aire="" Then %>   Aire acondicionado <% Else %>   Aire acondicionado <% End If %>
<% If chimenea=0 or chimenea="" Then %>   Chimenea <% Else %>   Chimenea <% End If %>
<% If hidromasaje=0 or hidromasaje="" Then %>   Ducha o bañera de hidromasaje <% Else %>   Ducha o bañera de hidromasaje <% End If %>
<% If wifi=0 or wifi="" Then %>   Wifi <% Else %>   Wifi <% End If %>
<% If comida=0 or comida="" Then %>   Servicio de comidas <% Else %>   Servicio de comidas <% End If %>
<% If cena=0 or cena="" Then %>   Servicio de cena <% Else %>   Servicio de cenas <% End If %>
<% If desauyuno=0 or desauyuno="" Then %>   Servicio de desauyunos <% Else %>   Servicio de desauyunos <% End If %>

<% Set result=con.Execute(sqlP) %> <% ' Posicionamiento del puntero %> <% saltos=tabla(pag)-1 %> <% for x=1 to saltos %> <% result.movenext %> <% next %> <% num=1 %> <% do while not result.eof and num
">/foto1.jpg" width="150" height="100" hspace="10" vspace="5" align="left"> <% Response.Write(result("tipo") & " " & result("establecimiento")) %>
<% If result("categoria")>0 Then %> <% If result("tipo")="Camping" Then %> <% Response.Write(result("categoria")) %> ª <% Else %> <% for i=1 to result("categoria") %> <% If result("clase")=2 Then %> <% ElseIf result("tipo")="Apartamento" or result("tipo")="Apartamentos" or result("tipo")="Aparthotel" Then %> <% ElseIf result("grupo")=2 Then %> <% Else %> <% End If %> <% next %> <% End If %>
<% End If %> <% sql="SELECT * FROM provincias WHERE id=" & result("codprovincia") %> <% Set resultPro=con.Execute(sql) %> <% Response.Write(result("localidad")) %> (<% Response.Write(resultPro("provincia")) %>)

<% Response.Write(result("eslogan")) %>

<% If result("contrato")>1 Then %>

      

<% Response.Write(ArreglaSaltos(result("oferta"))) %>
<% End If %>
<% result.Movenext %>

<% num=num+1 %> <% loop %>
    <% pa=cint(pagina_actual) %> <% pt=cint(paginas) %>

    <% If paginas>1 Then %>

  • «
  • <% Else %>
  • «
  • <% End If %> <% for w=1 to paginas %> <% If w=pa Then %>
  • <% Response.Write(w) %>
  • <% Else %>
  • <% Response.Write(w) %>
  • <% End If %> <% next %> <% If pa
  • »
  • <% Else %>
  • »
  • <% End If %>







Castilla-La Mancha Original no se responsabiliza de la información publicada, tanto textual como gráfica. Se limita a ofrecer a sus asociados la infraestructura para la modificación de datos online.

Subir

© 2015 Castilla-La Mancha Original. · Aviso legal · Mapa web

<% Server.Execute("pie.asp") %>