<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rcl
Dim rcl_numRows
Set rcl = Server.CreateObject("ADODB.Recordset")
rcl.ActiveConnection = MM_ciri09_STRING
rcl.Source = "SELECT distinct ResultatsGataCursa09.Cat FROM ResultatsGataCursa09"
rcl.CursorType = 0
rcl.CursorLocation = 2
rcl.LockType = 1
rcl.Open()
rcl_numRows = 0
%>
<%
Dim rl__CAT
rl__CAT = "Veterans B fem"
If (Request.QueryString("busca") <> "") Then
rl__CAT = 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 ResultatsGataCursa09 WHERE ResultatsGataCursa09.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
%>
<%
' *** 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 = 620
Repeat1__index = 0
rl_numRows = rl_numRows + Repeat1__numRows
%>
Classificació per Categories XIII Volta Popular Gata
XII VOLTA POPULAR A GATA 6a Prova puntuable del Circuit a peu
Marina Alta 2009
Data: 30 de Maig de 2009 Exida i Meta :Grup Escolar Santíssim Crist Organitza: C. A. Gata
Regidoria d' Esports Ajuntament de Gata
Categories fora del Circuit
Barrufets nascuts 2003 i 2004
Pre-Benjamins nascuts el 2001 i 2002
TROFEUS i OBSEQUIS
Samarreta als 1000 primers corredors que
finalitzen la cursa a banda dels xiquets.
Trofeu
3 primers classificats de cada categoria i
sexe desde Benjamí fins Veterans C.
Trofeus locals seran pels socis del C. A. Gata
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
XIII VOLTA POPULAR A GATA
