<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_puntuacio08_STRING rcl.Source = "SELECT distinct Cat FROM ResultatsCircuit08" rcl.CursorType = 0 rcl.CursorLocation = 2 rcl.LockType = 1 rcl.Open() rcl_numRows = 0 %> <% Dim rl__CAT rl__CAT = "Juvenil fem" If (Request.Form("busca") <> "") Then rl__CAT = Request.Form("busca") End If %> <% Dim rl Dim rl_numRows Set rl = Server.CreateObject("ADODB.Recordset") rl.ActiveConnection = MM_puntuacio08_STRING rl.Source = "SELECT * FROM ResultatsCircuit08 WHERE Cat='" + Replace(rl__CAT, "'", "''") + "' ORDER BY PC" 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 %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rl MM_rsCount = rl_total MM_size = rl_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record rl_first = MM_offset + 1 rl_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rl_first > MM_rsCount) Then rl_first = MM_rsCount End If If (rl_last > MM_rsCount) Then rl_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** 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 = 800 Repeat1__index = 0 rl_numRows = rl_numRows + Repeat1__numRows %> Classificació per General per Categories 12è Circuit a peu Marina Alta
Som Esport
Calendari Circuit a Peu Marina Alta 2008 6ª Cursa Popular Teulada II Volta a Peu El Verger XXVI Volta a peu a Pego XVII Cursa Popular Vila de Pedreguer XII Volta Popular Gata XIX Volta a Peu a Xàbia 10ena Cursa Popular Ondara XI Cursa Popular Jesús Pobre XI Cursa Vila de Benissa
Categories Reglament Inscripcions Fotos
Patrocinador Oficial del Circuit
CLASSIFICACIÓ GENERAL PER CATEGORIES 12è Circuit a Peu Marina Alta

9 proves disputades del 12è Circuit a Peu Marina Alta
+INFO I RECLAMACIONS: Email
Després de la Reunió del Circuit, s' acorda l'exclusió dels corredors que han infringit les normes.
SANCIONS ALS CORREDORS: Pèrdua de punts i exclusió del Circuit.
Dorsal desqualificats:
Teulada
2
 El Verger
991
 Gata
1499
 Ondara
223
Pego
297, 894, 1044
 Pedreguer
705
 Xàbia
722
 Benissa
1100

Sel·lecciona la teua categoria  

CRONOMETRATGE SOM ESPORT
www.somesport.com

<% While ((Repeat1__numRows <> 0) AND (NOT Rl.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rl.MoveNext() Wend %>
P.Cat Nom
Punts
Categ.
 Club Categoria
Punts
Benissa
Punts
JPobre
Punts
Ondara
Punts
Xàbia
Punts
Gata
Punts
Pedreg.
Punts
Pego
Punts
Verger
Punts
Teulada
<%=(Rl.Fields.Item("PC").Value)%>
<%=(Rl.Fields.Item("Nom").Value)%>
<%=(Rl.Fields.Item("TC").Value)%>
<%=(Rl.Fields.Item("Club").Value)%>
<%=(Rl.Fields.Item("Cat").Value)%>
<%=(Rl.Fields.Item("C9").Value)%>
<%=(Rl.Fields.Item("C8").Value)%>
<%=(Rl.Fields.Item("C7").Value)%>
<%=(Rl.Fields.Item("C6").Value)%>
<%=(Rl.Fields.Item("C5").Value)%>
<%=(Rl.Fields.Item("C4").Value)%>
<%=(Rl.Fields.Item("C3").Value)%>
<%=(Rl.Fields.Item("C2").Value)%>
<%=(Rl.Fields.Item("C1").Value)%>
Col·laboradors del Circuit
<% rcl.Close() Set rcl = Nothing %> <% rl.Close() Set rl = Nothing %>