<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_ciri10_STRING rcl.Source = "SELECT distinct ResultatsJPobreCursa10.Club FROM ResultatsJPobreCursa10" rcl.CursorType = 0 rcl.CursorLocation = 2 rcl.LockType = 1 rcl.Open() rcl_numRows = 0 %> <% Dim rl__BAT rl__BAT = "C. A. La Faixa" If (Request.QueryString("busca") <> "") Then rl__BAT = Request.QueryString("busca") End If %> <% Dim rl Dim rl_numRows Set rl = Server.CreateObject("ADODB.Recordset") rl.ActiveConnection = MM_ciri10_STRING rl.Source = "SELECT * FROM ResultatsJPobreCursa10 WHERE ResultatsJPobreCursa10.club='" + Replace(rl__BAT, "'", "''") + "' ORDER BY PG" rl.CursorType = 0 rl.CursorLocation = 2 rl.LockType = 1 rl.Open() rl_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rl_total Dim rl_first Dim rl_last ' set the record count rl_total = rl.RecordCount ' set the number of rows displayed on this page If (rl_numRows < 0) Then rl_numRows = rl_total Elseif (rl_numRows = 0) Then rl_numRows = 1 End If ' set the first and last displayed record rl_first = 1 rl_last = rl_first + rl_numRows - 1 ' if we have the correct record count, check the other stats If (rl_total <> -1) Then If (rl_first > rl_total) Then rl_first = rl_total End If If (rl_last > rl_total) Then rl_last = rl_total End If If (rl_numRows > rl_total) Then rl_numRows = rl_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rl_total = -1) Then ' count the total records by iterating through the recordset rl_total=0 While (Not rl.EOF) rl_total = rl_total + 1 rl.MoveNext Wend ' reset the cursor to the beginning If (rl.CursorType > 0) Then rl.MoveFirst Else rl.Requery End If ' set the number of rows displayed on this page If (rl_numRows < 0 Or rl_numRows > rl_total) Then rl_numRows = rl_total End If ' set the first and last displayed record rl_first = 1 rl_last = rl_first + rl_numRows - 1 If (rl_first > rl_total) Then rl_first = rl_total End If If (rl_last > rl_total) Then rl_last = rl_total End If End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 90 Repeat1__index = 0 rl_numRows = rl_numRows + Repeat1__numRows %> Classificació per Clubs XIII Cursa Popular Jesús Pobre
14 Circuit a peu Marina Alta



Patrocinador Oficial
del Circuit:
Matias Salva

www.matiassalva.com
Col·laborador Oficial:
Centro Medico - Medicina Deportiva




Próxima prova del Circuit:

Próxima prova del Circuit a peu Marina Alta
XIII CURSA POPULAR JESÚS POBRE

7a Prova puntuable del
Circuit a peu Marina Alta 2010


Data: 5 de Juny de 2010
Distància Adults: 9,3 Km

Organitza: C. A. La Faixa
Regidoria d' Esports
EATIM Jesús Pobre

+ Classificacions >>>
Pendent de revisió i sancions.
Dorsals sancionats / Dorsales sancionados:
57 - 153 - 178 - 259 - 298 - 360 - 498 - 515 - 657 - 665 - 726 - 778
920 - 950 - 975 - 980 - 1060 - 1130 - 1168 - 1199 - 1215 - 1260 - 1373 - 1595

 

 


Els dorsals desqualificats del Circuit ha perdut el dret a regals, classificacions i trofeus,
i per tant no apareixen en la classificació de la carrera. En la próxima edició del Circuit
hauran d'abonar la quota General, encara que disposen del xip en propietat.



CLASSIFICACIÓ PER CLUBS XIII CURSA POPULAR JESÚS POBRE

CRONOMETRATGE SOM ESPORT
www.somesport.com

Sel·lecciona el teu Club  


<% While ((Repeat1__numRows <> 0) AND (NOT Rl.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rl.MoveNext() Wend %>
Pos
Gral
Nom
Pos
Cat
Categoria
Club
Temps
oficial
Temps
real
T/ Km
Punts
Gral
<%=(Rl.Fields.Item("PG").Value)%>
<%=(Rl.Fields.Item("Nom").Value)%>
<%=(Rl.Fields.Item("PC").Value)%>
<%=(Rl.Fields.Item("Cat").Value)%> <%=(Rl.Fields.Item("Club").Value)%>
<%=(Rl.Fields.Item("T").Value)%>
<%=(Rl.Fields.Item("TN").Value)%>
<%=(Rl.Fields.Item("M").Value)%>
<%=(Rl.Fields.Item("PtG").Value)%>

 
<% rcl.Close() Set rcl = Nothing %> <% rl.Close() Set rl = Nothing %>