<%on error resume next if request.QueryString("tipo")="" then tipo=1 else tipo=request.QueryString("tipo") end if Set RSFoto = Server.CreateObject("ADODB.Recordset") RSFoto.ActiveConnection = MM_conArral_string RSFoto.source = "select * from tbFoto where ucase(Tipo)='"&tipo&"'" RSFoto.open() %>
INICIO - HABITACIONES - ZONAS COMUNES - LOCALIZACIÓN - GALERÍA DE IMÁGENES - PRECIOS - CONTACTA - RESERVAS       


<%if tipo=1 then%>  » La casa <%else%>  » La casa <%end if%> - <%if tipo=2 then%>  » Habitaciones <%else%>  » Habitaciones <%end if%> - <%if tipo=3 then%>  » Terrazas <%else%>  » Terrazas <%end if%> - <%if tipo=4 then%>  » Zonas comunes <%else%>  » Zonas comunes <%end if%>

<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%i=" "%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%do while i= " " and not RSFoto.eof%><%=RSFoto.movenext%><%if not RSFoto.eof then%><%i=RSFoto("FotoPequeña")%><%end if%><%loop%><%if not RSFoto.eof then%>&tipo=<%=tipo%>')">" width="67" height="50" border="0"><%RSFoto.movenext%><%else%><%end if%>
<%RSFoto.Close() Set RSFoto = Nothing%>

 


Cal Sans
Tf.: 616 928251
nuria@abadiadelpriorat.com