<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rcl Dim rcl_numRows Set rcl = Server.CreateObject("ADODB.Recordset") rcl.ActiveConnection = MM_malta133_STRING rcl.Source = "SELECT distinct ResultatsPedreguer13.Cat FROM ResultatsPedreguer13" 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_malta133_STRING rl.Source = "SELECT * FROM ResultatsPedreguer13 WHERE ResultatsPedreguer13.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 = 800 Repeat1__index = 0 rl_numRows = rl_numRows + Repeat1__numRows %> Classificació per categories XXII Cursa Popular Vila de Pedreguer
Inici
XXII CURSA PEDREGUER

XXII CURSA POPULAR VILA DE PEDREGUER

6a Prova puntuable del Circuit a peu Marina Alta 2013
Data: 18 de Maig de 2013

Organitza: Ajuntament de Pedreguer - C. A. Cametes Spat


CLASSIFICACIÓ PER CATEGORIES
XXII CURSA POPULAR VILA DE PEDREGUER

CRONOMETRATGE SOM ESPORT
www.somesport.com

Sel·lecciona la teua categoria  
<% While ((Repeat1__numRows <> 0) AND (NOT rl.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rl.MoveNext() Wend %>
Pos
Cat
Nom
Pos
Gral
Categoria
Club
Temps
Oficial
Temps
Real
T/ Km
Real
Punts
Gral.
Punts
Sexe
Punts
Categ.
<%=(rl.Fields.Item("PC").Value)%>
<%=(rl.Fields.Item("Nom").Value)%>
<%=(rl.Fields.Item("PG").Value)%>
<%=(rl.Fields.Item("Cat").Value)%> <%=(rl.Fields.Item("Club").Value)%>
<%=(rl.Fields.Item("T").Value)%>
<%=(rl.Fields.Item("TN").Value)%>
<%=(rl.Fields.Item("M").Value)%>
<%=(rl.Fields.Item("PtG").Value)%>
<%=(rl.Fields.Item("PtS").Value)%>
<%=(rl.Fields.Item("PtC").Value)%>
SOM ESPORT : Dorsals, Cronòmetres, Arcs de Meta, Inscripcions, Disseny Web, Cronometratge de proves© Todos los derechos reservados
Queda terminantemente prohibida la reproducción total o parcial de los contenidos ofrecidos a través de esta web, salvo autorización expresa de somesport.com.
Así mismo, queda prohibida toda reproducción a los efectos del artículo 32.1, párrafo segundo, Ley 23/2006 de la Propiedad intelectual.
Se autoriza la utilización con fines personales de los resultados en webs de clubs de atletismo, páginas y blogs personales,

siempre que sea bajo las mismas condiciones aquí expresadas.
Queda expresamente prohibida la utilización con fines comerciales y la realización de obra derivada.

<% rcl.Close() Set rcl = Nothing %> <% rl.Close() Set rl = Nothing %>