<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rct
Dim rct_numRows
Set rct = Server.CreateObject("ADODB.Recordset")
rct.ActiveConnection = MM_ciri09_STRING
rct.Source = "SELECT distinct ResultatsGata09.Cat FROM ResultatsGata09"
rct.CursorType = 0
rct.CursorLocation = 2
rct.LockType = 1
rct.Open()
rct_numRows = 0
%>
<%
Dim rl__CAT
rl__CAT = "Aleví masc"
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 ResultatsGata09 WHERE ResultatsGata09.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ó Xiquets 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
XIII VOLTA POPULAR A GATA
