<% dim fs dim como dim id dim folder dim i dim nombre dim cat dim nombre_cat cat = request.querystring("cat") id = request.querystring("id") nombre = request.querystring("nombre") como = request.querystring("como") if como = "" then como = Session("como") if como = "" then como = "blanco" Session("como") = como if como = "blanco" then textoPulsado="#660033" else textoPulsado="#bfb69a" end if Set fs=Server.CreateObject("Scripting.FileSystemObject") SET Obj_Conn = Server.CreateObject("ADODB.Connection") Obj_Conn.ConnectionString = dsn_ruta Obj_Conn.Open SET Obj_RS = Server.CreateObject("ADODB.Recordset") SELECT CASE cat CASE 1 nombre_cat="Dónde comer" CASE 2 nombre_cat="Dónde alojarse" CASE 3 nombre_cat="Bodegas a visitar" CASE 4 nombre_cat="Otros servicios" CASE 9 nombre_cat="Museos y enotecas" END SELECT %> Ruta del Vino de Rioja Alavesa
 
Inicio English | Euskera | <%=day(now)%> de <%SELECT CASE MONTH(now) CASE 1 response.write("Enero") CASE 2 response.write("Febrero") CASE 3 response.write("Marzo") CASE 4 response.write("Abril") CASE 5 response.write("Mayo") CASE 6 response.write("Junio") CASE 7 response.write("Julio") CASE 8 response.write("Agosto") CASE 9 response.write("Septiembre") CASE 10 response.write("Octubre") CASE 11 response.write("Noviembre") CASE 12 response.write("Diciembre") END SELECT%> de <%=year(now)%>   
<% if como = "blanco" then %> <% else %> <% end if %> <% if como = "tinto" then %> <% else %> <% end if %> <% if como = "crianza" then %> <% else %> <% end if %>
Buscador Próximamente Próximamente Ver como blancoVer como tintoVer como crianza

 

<%=nombre_cat%> / <%=nombre%>
<% if id = 0 then Obj_RS.Open "SELECT empresas.*, municipios.nombre as nombre_municipio FROM empresas LEFT OUTER JOIN municipios ON municipios.id=empresas.municipio where categoria=" & cat & " ORDER BY empresas.nombre", Obj_Conn, 3, 3 else Obj_RS.Open "SELECT empresas.*, municipios.nombre as nombre_municipio FROM empresas LEFT OUTER JOIN municipios ON municipios.id=empresas.municipio where municipio=" & id & " AND categoria=" & cat & " ORDER BY empresas.nombre", Obj_Conn, 3, 3 end if if Obj_RS.eof then %>
No existen empresas de este tipo adheridas a la ruta en este municipio.
<% end if while not Obj_RS.eof %> <%=UCASE(Obj_RS("nombre"))%>
<% if fs.FolderExists(Server.MapPath("../../images/empresas/" & Obj_RS("id"))) then Set folder = fs.GetFolder(Server.MapPath("../../images/empresas/" & Obj_RS("id"))) i=0 For each filefound in folder.files i=1 %> <% exit for next if i = 0 then %> <% end if else %> <% end if i=0 %>
/<%= filefound.Name %>" width="150" height="143" class="bordesImagenes">
<%if Obj_RS("vino_joven") then %><%if i=5 then %>
<%i=0 end if i = i+1%>elaboración vinos jóvenes o cosecheros <% end if %> <% if Obj_RS("vino_crianza") then %><%if i=5 then %>
<%i=0 end if i = i+1%>elaboración vinos con crianza <% end if %> <% if Obj_RS("acogida") then %><%if i=5 then %>
<%i=0 end if i = i+1%>acogida de grupos <% end if %> <% if Obj_RS("cita_grupos") then %><%if i=5 then %>
<%i=0 end if i = i+1%>cita previa_grupos <% end if %> <% if Obj_RS("visita_museo") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita a museos <% end if %> <% if Obj_RS("cita_visita") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita con cita previa <% end if %> <% if Obj_RS("visita_bodega") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita a bodega <% end if %> <% if Obj_RS("restauracion_reserva") then %><%if i=5 then %>
<%i=0 end if i = i+1%>restauración reserva previa <% end if %> <% if Obj_RS("visita_vinedo") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita a viñedo <% end if %> <% if Obj_RS("centrico") then %><%if i=5 then %>
<%i=0 end if i = i+1%>lugar céntrico <% end if %> <% if Obj_RS("cata") then %><%if i=5 then %>
<%i=0 end if i = i+1%>degustación y cata <% end if %> <% if Obj_RS("cita_cata") then %><%if i=5 then %>
<%i=0 end if i = i+1%>cata con cita previa <% end if %> <% if Obj_RS("visita_idiomas") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita en idiomas <% end if %> <% if Obj_RS("cita_idiomas") then %><%if i=5 then %>
<%i=0 end if i = i+1%>visita en idiomas con cita previa <% end if %> <% if Obj_RS("venta_vinos") then %><%if i=5 then %>
<%i=0 end if i = i+1%>venta de vinos <% end if %> <% if Obj_RS("venta_otros") then %><%if i=5 then %>
<%i=0 end if i = i+1%>venta otros productos <% end if %> <% if Obj_RS("parking") then %><%if i=5 then %>
<%i=0 end if i = i+1%>parking <% end if %> <% if Obj_RS("parking_autocares") then %><%if i=5 then %>
<%i=0 end if i = i+1%>parking autocares <% end if %> <% if Obj_RS("animales") then %><%if i=5 then %>
<%i=0 end if i = i+1%>animales de compañía <% end if %> <% if Obj_RS("historico") then %><%if i=5 then %>
<%i=0 end if i = i+1%>edificio histórico <% end if %> <% if Obj_RS("desayuno") then %><%if i=5 then %>
<%i=0 end if i = i+1%>desayuno <% end if %> <% if Obj_RS("media_pension") then %><%if i=5 then %>
<%i=0 end if i = i+1%>media pensión <% end if %> <% if Obj_RS("pension_completa") then %><%if i=5 then %>
<%i=0 end if i = i+1%>pensión completa <% end if %> <% if Obj_RS("derecho_cocina") then %><%if i=5 then %>
<%i=0 end if i = i+1%>derecho a cocina <% end if %> <% if Obj_RS("minibar") then %><%if i=5 then %>
<%i=0 end if i = i+1%>minibar <% end if %> <% if Obj_RS("ascensor") then %><%if i=5 then %>
<%i=0 end if i = i+1%>ascensor <% end if %> <% if Obj_RS("internet") then %><%if i=5 then %>
<%i=0 end if i = i+1%>internet <% end if %> <% if Obj_RS("alquiler_casa") then %><%if i=5 then %>
<%i=0 end if i = i+1%>alquiler casa entera <% end if %> <% if Obj_RS("minusvalidos") then %><%if i=5 then %>
<%i=0 end if i = i+1%>acceso minusválidos <% end if %> <% if Obj_RS("piscina") then %><%if i=5 then %>
<%i=0 end if i = i+1%>piscina <% end if %> <% if Obj_RS("servicios_eno") then %><%if i=5 then %>
<%i=0 end if i = i+1%>servicios enoturísticos <% end if %> <% if Obj_RS("calefaccion") then %><%if i=5 then %>
<%i=0 end if i = i+1%>calefacción en las habitaciones <% end if %> <% if Obj_RS("tv_habitaciones") then %><%if i=5 then %>
<%i=0 end if i = i+1%>tv en las habitaciones <% end if %> <% if Obj_RS("servicio_habitaciones") then %><%if i=5 then %>
<%i=0 end if i = i+1%>servicio de habitaciones <% end if %> <% if Obj_RS("bano_habitaciones") then %><%if i=5 then %>
<%i=0 end if i = i+1%>baño en las habitaciones <% end if %> <% if Obj_RS("telefono_habitaciones") then %><%if i=5 then %>
<%i=0 end if i = i+1%>teléfono en las habitaciones <% end if %> <% if Obj_RS("numero_habitaciones")<>"" then %><%if i=5 then %>
<%i=0 end if i = i+1%><%=Obj_RS( habitaciones" src="../../images/iconos/numero_habitaciones.gif" width="20" height="21"> <% end if %>

<%=Replace(Obj_RS("descripcion_breve_cas"), VbCrLf,"
")%>

Dirección: <%=Obj_RS("direccion")%>
C.P.: <%=Obj_RS("cp")%>
<%if id=0 then%> Población: <%if Trim(Obj_RS("poblacion"))="" Then %><%=Obj_RS("nombre_municipio")%><%else%><%=Obj_RS("poblacion")%><%end if%>">[ver]
<%else%> <%if Trim(Obj_RS("poblacion"))<>"" Then %>Población:<%=Obj_RS("poblacion")%>
<%end if%> <%end if%> Tel.: <%=Obj_RS("telefono")%>
Fax.: <%=Obj_RS("fax")%>
E-Mail: " target="_blank" class="enlaceCaja"><%=Obj_RS("mail")%>
Web: " target="_blank" class="enlaceCaja"><%=Obj_RS("web")%>

Horario de visita: <%=Obj_RS("horario_cas")%>

" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image26','','../../images/img_<%=como%>/bt_ver_mas_ov.gif',1)"> Ver detalle

<% Obj_RS.MoveNext wend Obj_RS.close %>


 
Copyright 2005. Ruta del Vino de Rioja Alavesa   
<% Obj_Conn.Close SET Obj_Rs = Nothing SET Obj_Conn = Nothing %>