Welcome to Resort

Edolor sit amet, consectetur, adipis civelit sed quia non qui dolorem ipsum quia dolor sit amet, consectetur, adipis civelit.

<% Set query = Server.CreateObject("ADODB.Command") query.ActiveConnection = objConn Set query2 = Server.CreateObject("ADODB.Command") query2.ActiveConnection = objConn Set query3 = Server.CreateObject("ADODB.Command") query3.ActiveConnection = objConn %> <% Comarca= request.Form("comarca") query2.CommandText="SELECT * FROM Comarcas WHERE (Comarca='" &Replace(Comarca,"'","''")& "')" Set rs2 = query2.Execute Arreglo="" Articulo=rs2("ArticuloDe") for i=1 to Len(Comarca) Select Case LCase(Mid(Comarca,i,1)) Case "è": Arreglo=Arreglo+"e" Case "'": Arreglo=Arreglo Case " ": Arreglo=Arreglo Case "à": Arreglo=Arreglo+"a" Case "ç": Arreglo=Arreglo+"c" Case else: Arreglo=Arreglo+Mid(Comarca,i,1) end select next Arreglo=LCase(Arreglo) query.CommandText="SELECT * FROM Pueblos WHERE ((Comarca='" &Replace(Comarca,"'","''")& "') AND (FiestaMayor1<>'0'))" Set rs = query.Execute Vegueria= rs("Vegueria") AVegueria= LCase(rs("Vegueria")) Anyo=DatePart("yyyy",Date()) Select Case AVegueria Case "camp de tarragona": AVegueria="tarragona" Case "terres de l'ebre": AVegueria="ebre" Case "catalunya central": AVegueria="central" Case "alt pirineu i aran": AVegueria="pirineu" Case "catalunya nord": AVegueria="nord" Case "la franja": AVegueria="franja" Case "illes balears": AVegueria="illes" end select ' OJO:!!! HACER EXCEPCION CON ANDORRA !!!! Select Case request.Form("mes") Case "ENE": MesF="Gener" MiMesN=1 Case "FEB": MesF="Febrer" MiMesN=2 Case "MAR": MesF="Març" MiMesN=3 Case "ABR": MesF="Abril" MiMesN=4 Case "MAY": MesF="Maig" MiMesN=5 Case "JUN": MesF="Juny" MiMesN=6 Case "JUL": MesF="Juliol" MiMesN=7 Case "AGO": MesF="Agost" MiMesN=8 Case "SEP": MesF="Septembre" MiMesN=9 Case "OCT": MesF="Octubre" MiMesN=10 Case "NOV": MesF="Novembre" MiMesN=11 Case "DIC": MesF="Desembre" MiMesN=12 end Select %> <% Dim Tabla(100), Tabla2(100) for i=0 to 100 Tabla(i)="" Tabla2(i)="" next k=1 While not rs.EOF Fiesta="0" call calcularDia(1) call calcularDia(2) call calcularDia(3) rs.MoveNext Wend rs.MoveFirst for i=2 to 100 for j=100 to i step -1 if Tabla(j-1) > Tabla(j) then x=Tabla(j-1) y=Tabla2(j-1) Tabla(j-1)=Tabla(j) Tabla2(j-1)=Tabla2(j) Tabla(j)=x Tabla2(j)=y end if next next %> <% ' CONTENIDO %>


Festes i Fires de la comarca <%= Articulo %> <%= Comarca %> per <%= MesF %> de <%= Anyo %>


  Festes trobades: <%= k-1 %>

<% for i = 0 to 100 %> <% if Tabla2(i)<>"" then %> <% end if %> <% Next %>

<% query3.CommandText="SELECT Pueblo FROM Pueblos WHERE Id="&Tabla2(i) Set rs3 = query3.Execute %> <% Select Case WeekDay(Tabla(i)) Case 1: miDiaL="Diumenge" Case 2: miDiaL="Dilluns" Case 3: miDiaL="Dimarts" Case 4: miDiaL="Dimecres" Case 5: miDiaL="Dijous" Case 6: miDiaL="Divendres" Case 7: miDiaL="Dissabte" End Select %> <%= Tabla(i) %> - (<%=miDiaL%>) - <%= rs3("Pueblo") %>

<% for i=0 to 100 Tabla(i)="" Tabla2(i)="" next k=1 While not rs.EOF Fiesta="0" call calcularDia(11) call calcularDia(12) rs.MoveNext Wend rs.MoveFirst for i=2 to 100 for j=100 to i step -1 if Tabla(j-1) > Tabla(j) then x=Tabla(j-1) y=Tabla2(j-1) Tabla(j-1)=Tabla(j) Tabla2(j-1)=Tabla2(j) Tabla(j)=x Tabla2(j)=y end if next next %>  

  Fires trobades: <%= k-1 %>

<% for i = 0 to 100 %> <% if Tabla2(i)<>"" then %> <% end if %> <% Next %>

<% query3.CommandText="SELECT Pueblo FROM Pueblos WHERE Id="&Tabla2(i) Set rs3 = query3.Execute %> <% Select Case WeekDay(Tabla(i)) Case 1: miDiaL="Diumenge" Case 2: miDiaL="Dilluns" Case 3: miDiaL="Dimarts" Case 4: miDiaL="Dimecres" Case 5: miDiaL="Dijous" Case 6: miDiaL="Divendres" Case 7: miDiaL="Dissabte" End Select %> <%= Tabla(i) %> - (<%=miDiaL%>) - <%= rs3("Pueblo") %>



<% objConn.Close Set objConn = nothing %>

NEWSLETTER

Subscriu-te i rebràs totes les novetats de la web!