<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_andreusis_STRING rcl.Source = "SELECT distinct Club FROM ResultatsBaixMontgo11" rcl.CursorType = 0 rcl.CursorLocation = 2 rcl.LockType = 1 rcl.Open() rcl_numRows = 0 %> <% Dim rz__ZAR rz__ZAR = "C. A. Llebeig Xàbia" If (Request.Form("busca") <> "") Then rz__ZAR = Request.Form("busca") End If %> <% Dim rz Dim rz_numRows Set rz = Server.CreateObject("ADODB.Recordset") rz.ActiveConnection = MM_andreusis_STRING rz.Source = "SELECT * FROM ResultatsBaixMontgo11 WHERE Club='" + Replace(rz__ZAR, "'", "''") + "' ORDER BY PG" rz.CursorType = 0 rz.CursorLocation = 2 rz.LockType = 1 rz.Open() rz_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rz_numRows = rz_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rz_total Dim rz_first Dim rz_last ' set the record count rz_total = rz.RecordCount ' set the number of rows displayed on this page If (rz_numRows < 0) Then rz_numRows = rz_total Elseif (rz_numRows = 0) Then rz_numRows = 1 End If ' set the first and last displayed record rz_first = 1 rz_last = rz_first + rz_numRows - 1 ' if we have the correct record count, check the other stats If (rz_total <> -1) Then If (rz_first > rz_total) Then rz_first = rz_total End If If (rz_last > rz_total) Then rz_last = rz_total End If If (rz_numRows > rz_total) Then rz_numRows = rz_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rz_total = -1) Then ' count the total records by iterating through the recordset rz_total=0 While (Not rz.EOF) rz_total = rz_total + 1 rz.MoveNext Wend ' reset the cursor to the beginning If (rz.CursorType > 0) Then rz.MoveFirst Else rz.Requery End If ' set the number of rows displayed on this page If (rz_numRows < 0 Or rz_numRows > rz_total) Then rz_numRows = rz_total End If ' set the first and last displayed record rz_first = 1 rz_last = rz_first + rz_numRows - 1 If (rz_first > rz_total) Then rz_first = rz_total End If If (rz_last > rz_total) Then rz_last = rz_total End If End If %> Classificació per clubs del 19è Cross Popular Baix Montgó
  Som Esport
19è Cross Baix Montgo

19è Cross Popular Baix Montgó
DISSABTE - 8 D'OCTUBRE DE 2011

Distància: 12 Km
Hora d'eixida: 18:00 h
Patrocinen:  Festers del Cabrerot – Ajuntament de Xàbia
                  E.A.T.I.M. de Jesús Pobre
Organitzen: C.A. Llebeig Xàbia – C.A. La Faixa Jesús Pobre


+ CLASSIFICACIONS


CLASSIFICACIÓ PER CLUBS DEL 19è CROSS BAIX MONTGÓ
Clasificación por clubs del 19è Cross Popular Baix Montgó

Els següents atletes estan desqualificats, i per tant no apareixen en la classificació:
M. LLEO, N. CASTELLS, J.S. NADAL, V. SAPENA, A. EGIDO, L. LLORCA, A. TORMO, J. CERVERA, J.G. CLIMENT, R. VILLAR,
A. PIERA, M.B. ABAD, P. DOMENECH, P. SAPENA, A. RODRIGO, V. PASTOR, V. CABRERA.

19è Cross Baix Montgo
Cronometratge
WWW.SOM ESPORT.COM



CRONOMETRATGE WWW.SOM ESPORT.COM
Sel·lecciona el teu Club  

<% While ((Repeat1__numRows <> 0) AND (NOT rz.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rz.MoveNext() Wend %>
P. Gral
Nom
P. Cat
Categoria
Baix Montgó
P. Cat
Virtual
Categoria
Virtual
Club
Temps
T / Km
<%=(rz.Fields.Item("PG").Value)%>
<%=(rz.Fields.Item("Nom").Value)%>
<%=(rz.Fields.Item("PC").Value)%>
<%=(rz.Fields.Item("Cat").Value)%>
<%=(rz.Fields.Item("PcV").Value)%>
<%=(rz.Fields.Item("CatV").Value)%>
<%=(rz.Fields.Item("Club").Value)%>
<%=(rz.Fields.Item("T").Value)%>
<%=(rz.Fields.Item("M").Value)%>

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