<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_ciri08_STRING rcl.Source = "SELECT distinct ResultatsTeuladaCursa08.Cat FROM ResultatsTeuladaCursa08" rcl.CursorType = 0 rcl.CursorLocation = 2 rcl.LockType = 1 rcl.Open() rcl_numRows = 0 %> <% Dim rl__CAT rl__CAT = "Senior 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_ciri08_STRING rl.Source = "SELECT * FROM ResultatsTeuladaCursa08 WHERE ResultatsTeuladaCursa08.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 6ª Cursa Popular Teulada
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



CLASSIFICACIÓ PER CATEGORIES 6ª CURSA POPULAR TEULADA
1ª prova del 12è Circuit a Peu Marina Alta



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 P.Gral Club Categoria Temps
Punts
Categ.
<%=(Rl.Fields.Item("PC").Value)%>
<%=(Rl.Fields.Item("Nom").Value)%>
<%=(Rl.Fields.Item("PG").Value)%>
<%=(Rl.Fields.Item("Club").Value)%>
<%=(Rl.Fields.Item("Cat").Value)%>
 <%=(Rl.Fields.Item("T").Value)%>
<%=(Rl.Fields.Item("PtC").Value)%>




Col·laboradors del Circuit
<% rcl.Close() Set rcl = Nothing %> <% rl.Close() Set rl = Nothing %>