<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_puntuacio09_STRING rcl.Source = "SELECT distinct ResultatsCircuit12.Cat FROM ResultatsCircuit12" rcl.CursorType = 0 rcl.CursorLocation = 2 rcl.LockType = 1 rcl.Open() rcl_numRows = 0 %> <% Dim I__CAT I__CAT = "Veterans B masc" If (Request.QueryString("busca") <> "") Then I__CAT = Request.QueryString("busca") End If %> <% Dim I Dim I_numRows Set I = Server.CreateObject("ADODB.Recordset") I.ActiveConnection = MM_puntuacio09_STRING I.Source = "SELECT * FROM ResultatsCircuit12 WHERE ResultatsCircuit12.Cat='" + Replace(I__CAT, "'", "''") + "' ORDER BY Pc" I.CursorType = 0 I.CursorLocation = 2 I.LockType = 1 I.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 = I.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 I_total=0 While (Not I.EOF) I_total = I_total + 1 I.MoveNext Wend ' reset the cursor to the beginning If (I.CursorType > 0) Then I.MoveFirst Else I.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 = 840 Repeat1__index = 0 rl_numRows = rl_numRows + Repeat1__numRows %> Classificació per categories 16è Circuit a peu Marina Alta
Circuit a peu Marina Alta 2011

16è CIRCUIT A PEU MARINA ALTA

9 proves disputades del 16è Circuit a peu Marina Alta 2012
Puntuen les 7 millors carreres.
Actualitzada 10/06/2012.

CLASSIFICACIÓ PER CATEGORIES
16è CIRCUIT A PEU MARINA ALTA

CRONOMETRATGE SOM ESPORT
www.somesport.com

Sel·lecciona la teua categoria  

IniciINICI
CategoriesCATEGORIES
ReglamentREGLAMENTReglamentSANCIONS

SANCIONS   + Info >>

Els següents dorsals sancionats pel Circuit han perdut el dret a classificació i obsequi final.
31-258-340-480-507-551-652-897-945-1018-2218-2219-
2242-2246-2288-2423-2469-2587-2606-2639-2658-2705-
2744

ClassificacionsCLASSIFICACIONS

<% While ((Repeat1__numRows <> 0) AND (NOT I.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 I.MoveNext() Wend %>
Pos
Cat
Nom
Punts
Totals
Categoria
Club
Punts
Xàbia
Punts
Gata
Punts
Verger
Punts
Teulada
Punts
Pego
Punts
Ondara
Punts
JPobre
Punts
Pedreguer
Punts
Benissa
<%=(I.Fields.Item("Pc").Value)%>
<%=(I.Fields.Item("Nom").Value)%>
<%=(I.Fields.Item("TC").Value)%>
<%=(I.Fields.Item("Cat").Value)%> <%=(I.Fields.Item("Club").Value)%>
<%=(I.Fields.Item("C1").Value)%>
<%=(I.Fields.Item("C2").Value)%>
<%=(I.Fields.Item("C3").Value)%>
<%=(I.Fields.Item("C4").Value)%>
<%=(I.Fields.Item("C5").Value)%>
<%=(I.Fields.Item("C6").Value)%>
<%=(I.Fields.Item("C7").Value)%>
<%=(I.Fields.Item("C8").Value)%>
<%=(I.Fields.Item("C9").Value)%>
<% rcl.Close() Set rcl = Nothing %> <% I.Close() Set I = Nothing %>