Ruta del Vino de Rioja Alavesa

<% dim como dim cat dim nombre_cat dim img_cat dim i cat = request.querystring("cat") 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 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" img_cat="img_donde_comer.jpg" CASE 2 nombre_cat="Dónde alojarse" img_cat="img_alojarse.jpg" CASE 3 nombre_cat="Bodegas a visitar" img_cat="img_bodegas_a_visitar.jpg" CASE 4 nombre_cat="Otros servicios" img_cat="img_otras_posibilidades.jpg" CASE 9 nombre_cat="Museos y enotecas" img_cat="img_museos.jpg" END SELECT %> Ruta del Vino de Rioja Alavesa

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 %>

<%= nombre_cat %>

<% SELECT CASE cat CASE 1 Obj_RS.Open "SELECT * FROM (SELECT TOP 1 0 as id,' Todos los restaurantes' as nombre, c.cantidad FROM municipios,(SELECT Count(*) as cantidad FROM Empresas where categoria = 1) as C UNION SELECT municipios.id,nombre, cantidad FROM municipios LEFT OUTER JOIN (SELECT municipios.id,empresas.categoria, Count(*) as cantidad FROM municipios INNER JOIN Empresas On Empresas.municipio=municipios.id Group by municipios.id, empresas.categoria, municipios.nombre having empresas.categoria = 1) as C On C.id = municipios.id ) Order by nombre", Obj_Conn, 3, 3 CASE 2 Obj_RS.Open "SELECT * FROM (SELECT TOP 1 0 as id,' Todos los alojamientos' as nombre, c.cantidad FROM municipios,(SELECT Count(*) as cantidad FROM Empresas where categoria = 2) as C UNION SELECT municipios.id,nombre, cantidad FROM municipios LEFT OUTER JOIN (SELECT municipios.id,empresas.categoria, Count(*) as cantidad FROM municipios INNER JOIN Empresas On Empresas.municipio=municipios.id Group by municipios.id, empresas.categoria, municipios.nombre having empresas.categoria = 2) as C On C.id = municipios.id ) Order by nombre", Obj_Conn, 3, 3 CASE 3 Obj_RS.Open "SELECT * FROM (SELECT TOP 1 0 as id,' Todas las bodegas' as nombre, c.cantidad FROM municipios,(SELECT Count(*) as cantidad FROM Empresas where categoria = 3) as C UNION SELECT municipios.id,nombre, cantidad FROM municipios LEFT OUTER JOIN (SELECT municipios.id,empresas.categoria, Count(*) as cantidad FROM municipios INNER JOIN Empresas On Empresas.municipio=municipios.id Group by municipios.id, empresas.categoria, municipios.nombre having empresas.categoria = 3) as C On C.id = municipios.id ) Order by nombre", Obj_Conn, 3, 3 CASE 4 Obj_RS.Open "SELECT * FROM (SELECT TOP 1 0 as id,' Todos los servicios' as nombre, c.cantidad FROM municipios,(SELECT Count(*) as cantidad FROM Empresas where categoria = 4) as C UNION SELECT municipios.id,nombre, cantidad FROM municipios LEFT OUTER JOIN (SELECT municipios.id,empresas.categoria, Count(*) as cantidad FROM municipios INNER JOIN Empresas On Empresas.municipio=municipios.id Group by municipios.id, empresas.categoria, municipios.nombre having empresas.categoria = 4) as C On C.id = municipios.id ) Order by nombre", Obj_Conn, 3, 3 CASE 9 Obj_RS.Open "SELECT * FROM (SELECT TOP 1 0 as id,' Todos los museos y enotecas' as nombre, c.cantidad FROM municipios,(SELECT Count(*) as cantidad FROM Empresas where categoria = 9) as C UNION SELECT municipios.id,nombre, cantidad FROM municipios LEFT OUTER JOIN (SELECT municipios.id,empresas.categoria, Count(*) as cantidad FROM municipios INNER JOIN Empresas On Empresas.municipio=municipios.id Group by municipios.id, empresas.categoria, municipios.nombre having empresas.categoria = 9) as C On C.id = municipios.id ) Order by nombre", Obj_Conn, 3, 3 END SELECT i = 1 while not Obj_RS.eof if i > (Obj_RS.recordcount /2)+1 then i=-10 %>

<%end if%> <% Obj_RS.MoveNext i=i+1 wend Obj_RS.close %>

&nombre=<%=Trim(Obj_RS("nombre"))%>" target="_self" class="enlaceMunicipios"><%=Trim(Ucase(Obj_RS("nombre")))%><% IF ISNULL(Obj_RS("cantidad")) THEN%> (0)<%ELSE%> (<%=Obj_RS("cantidad")%>)<%END IF%>

<% Obj_Conn.Close SET Obj_Rs = Nothing SET Obj_Conn = Nothing %>