<% dim fs dim como dim id dim folder dim i dim categoria_ant id = request.querystring("id") 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") SET Obj_RS_Emp = Server.CreateObject("ADODB.Recordset") %> 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

 
<% if fs.FolderExists(Server.MapPath("../../images/municipios/" & id )) then Set folder = fs.GetFolder(Server.MapPath("../../images/municipios/" & id )) i=0 For each filefound in folder.files i=1 %> <% exit for next if i = 0 then %> <% end if else %> <% end if %> <% Obj_RS.Open "SELECT * FROM municipios WHERE id = " & id, Obj_Conn, 3, 3 if not Obj_RS.eof then %> <% end if 'Obj_RS.eof del municipio %>
Los Municipios de la Ruta / <%=Obj_RS("nombre")%>
<%=Replace(Obj_RS("descripcion_cas"), VbCrLf,"
") %>

 A DESTACAR

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

 TELÉFONOS Y DIRECCIONES DE INTERÉS

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

 EMPRESAS ADHERIDAS A LA RUTA
<% Obj_RS_Emp.open "SELECT empresas.id, empresas.nombre, empresas_categorias.categoria_cas FROM empresas " & _ "LEFT OUTER JOIN empresas_categorias on empresas.categoria = empresas_categorias.id " & _ "WHERE municipio = " & id & " ORDER by categoria, nombre", Obj_Conn, 3, 3 while not Obj_RS_Emp.eof if categoria_ant <> Obj_RS_Emp("categoria_cas") then %> <% if categoria_ant = "" then %> <% else %> <% end if categoria_ant = Obj_RS_Emp("categoria_cas") %> <% end if %> <% Obj_RS_Emp.MoveNext %> <% wend Obj_RS_Emp.close %>
<%=Obj_RS_Emp("categoria_cas")%>
(Pulse sobre las empresas para ver el dettalle)
" class="enlaceNo"><%=Obj_RS_Emp("nombre")%>
   
CÓMO LLEGAR

<% if fs.FolderExists(Server.MapPath("../../images/municipios/" & id & "/mapa")) then Set folder = fs.GetFolder(Server.MapPath("../../images/municipios/" & id & "/mapa")) i=0 For each filefound in folder.files i=1 %> <% exit for next if i = 0 then %> <% end if else %> <% end if %>
<%=Replace(Obj_RS("como_llegar_cas"), VbCrLf,"
")%>
 
Copyright 2005. Ruta del Vino de Rioja Alavesa   
<% Obj_RS.Close Obj_Conn.Close SET Obj_Rs = Nothing SET Obj_Rs_Emp = Nothing SET Obj_Conn = Nothing %>