<%@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 InscripcioCircuit_06.Club FROM InscripcioCircuit_06"
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 InscripcioCircuit_06 WHERE InscripcioCircuit_06.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 = 90
Repeat1__index = 0
rsV_numRows = rsV_numRows + Repeat1__numRows
%>
Llistat de Clubs inscrits en el 11è Circuit a Peu Marina Alta
