<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rcl
Dim rcl_numRows
Set rcl = Server.CreateObject("ADODB.Recordset")
rcl.ActiveConnection = MM_ciri09_STRING
rcl.Source = "SELECT distinct ResultatsOndaraCursa09.Club FROM ResultatsOndaraCursa09"
rcl.CursorType = 0
rcl.CursorLocation = 2
rcl.LockType = 1
rcl.Open()
rcl_numRows = 0
%>
<%
Dim rl__BAT
rl__BAT = "C. A. Ondara"
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_ciri09_STRING
rl.Source = "SELECT * FROM ResultatsOndaraCursa09 WHERE ResultatsOndaraCursa09.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 11ena Cursa Popular Ondara
11ena Cursa Popular Ondara 7a Prova puntuable del Circuit a peu
Marina Alta 2009
Data: 6 de Juny de 2009 Exida i Meta :Avgda General Bosch
( junt a la plaça de Bous ) Organitza: C. A. Ondara
Regidoria d' Esports Ajuntament d' Ondara
Categories fora del Circuit
Barrufets nascuts 2003 a 2007
Pre-Benjamins nascuts el 2001 i 2002
La classificació del Circuit es publicará dimecres a les 20.00 h , després de que el comité de Jutges del Circuit format per 1 membre de cada club organitzador ( C.A. Cametes Pedreguer, C.E. Dorsal 19 Ambra Pego, BTT Rodes Amples Verger, C.A. Corremundos Teulada, C.A. Llebeig Xàbia, C.A. Gata, C.A. Ondara, C.A. La Faixa Jesús Pobre i C.A. Benissa) comuniquen a Som Esport les sancions. DESQUALIFICACIONS Reglament ( art 8 ) Art.8.1 Podrà ser motiu de desqualificació el fet de córrer amb el dorsal o el xip d’un altre corredor, no comptant per tant la prova com a disputada. En este cas ambdós participants quedaran desqualificats. Art.8.2 Podrà ser motiu de desqualificació córrer sense dorsal, o portar-lo en un lloc no visible . Art.8.3 No completar la totalitat del recorregut.Recordem que és obligatori córrer amb el dorsal en lloc ben visible
11ena CURSA POPULAR Ondara
