<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rscir Dim rscir_numRows Set rscir = Server.CreateObject("ADODB.Recordset") rscir.ActiveConnection = MM_preinscripcion_06_STRING rscir.Source = "SELECT distinct InscripcioCircuit08.Club FROM InscripcioCircuit08" rscir.CursorType = 0 rscir.CursorLocation = 2 rscir.LockType = 1 rscir.Open() rscir_numRows = 0 %> <% Dim rsV__BAT rsV__BAT = "C. A. Corremundos" If (Request.QueryString("busca") <> "") Then rsV__BAT = Request.QueryString("busca") End If %> <% Dim rsV Dim rsV_numRows Set rsV = Server.CreateObject("ADODB.Recordset") rsV.ActiveConnection = MM_preinscripcion_06_STRING rsV.Source = "SELECT * FROM InscripcioCircuit08 WHERE InscripcioCircuit08.club='" + Replace(rsV__BAT, "'", "''")+ "' ORDER BY Nom" rsV.CursorType = 0 rsV.CursorLocation = 2 rsV.LockType = 1 rsV.Open() rsV_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsV_total Dim rsV_first Dim rsV_last ' set the record count rsV_total = rsV.RecordCount ' set the number of rows displayed on this page If (rsV_numRows < 0) Then rsV_numRows = rsV_total Elseif (rsV_numRows = 0) Then rsV_numRows = 1 End If ' set the first and last displayed record rsV_first = 1 rsV_last = rsV_first + rsV_numRows - 1 ' if we have the correct record count, check the other stats If (rsV_total <> -1) Then If (rsV_first > rsV_total) Then rsV_first = rsV_total End If If (rsV_last > rsV_total) Then rsV_last = rsV_total End If If (rsV_numRows > rsV_total) Then rsV_numRows = rsV_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsV_total = -1) Then ' count the total records by iterating through the recordset rsV_total=0 While (Not rsV.EOF) rsV_total = rsV_total + 1 rsV.MoveNext Wend ' reset the cursor to the beginning If (rsV.CursorType > 0) Then rsV.MoveFirst Else rsV.Requery End If ' set the number of rows displayed on this page If (rsV_numRows < 0 Or rsV_numRows > rsV_total) Then rsV_numRows = rsV_total End If ' set the first and last displayed record rsV_first = 1 rsV_last = rsV_first + rsV_numRows - 1 If (rsV_first > rsV_total) Then rsV_first = rsV_total End If If (rsV_last > rsV_total) Then rsV_last = rsV_total End If End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 500 Repeat1__index = 0 rsV_numRows = rsV_numRows + Repeat1__numRows %> Llistat d'inscrits per Clubs en el 12è Circuit a Peu Marina Alta
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

Llistat d'inscrits en el Circuit

Llistat d' inscrits per clubs en el 12è Circuit a Peu Marina Alta
Listado de Inscritos por clubs en el 12è Circuit a Peu Marina Alta
Actualitzat 24/04/2008 14.00 h - Pagaments fins 24/04/2008
Email


Si no pots assistir a la primera prova TEULADA, pot arreplegar el dorsla en qualsevol de les segünets proves



Sel·lecciona el teu Club  
<%=(rsV_total)%> Corredors inscrits del <%=(rsV.Fields.Item("Club").Value)%>       
<% While ((Repeat1__numRows <> 0) AND (NOT rsV.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsV.MoveNext() Wend %>
Nom
 Categoria
Club
<%=(rsV.Fields.Item("Nom").Value)%> <%=(rsV.Fields.Item("Cat").Value)%> <%=(rsV.Fields.Item("Club").Value)%>




Col·laboradors del Circuit
<% rscir.Close() Set rscir = Nothing %> <% RsV.Close() Set RsV = Nothing %>