<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsClubDetails__MMColParam rsClubDetails__MMColParam = "AS1" If (Request.QueryString("AS1") <> "") Then rsClubDetails__MMColParam = Request.QueryString("AS1") End If %> <% Dim rsClubDetails Dim rsClubDetails_numRows Set rsClubDetails = Server.CreateObject("ADODB.Recordset") rsClubDetails.ActiveConnection = MM_Scricket45_STRING rsClubDetails.Source = "SELECT * FROM Club_Codes WHERE Code = '" + Replace(rsClubDetails__MMColParam, "'", "''") + "'" rsClubDetails.CursorType = 0 rsClubDetails.CursorLocation = 2 rsClubDetails.LockType = 1 rsClubDetails.Open() rsClubDetails_numRows = 0 %> <% Dim rs1stXIDetails__MMColParam rs1stXIDetails__MMColParam = "AS1" If (Request.QueryString("AS1") <> "") Then rs1stXIDetails__MMColParam = Request.QueryString("AS1") End If %> <% Dim rs1stXIDetails Dim rs1stXIDetails_numRows Set rs1stXIDetails = Server.CreateObject("ADODB.Recordset") rs1stXIDetails.ActiveConnection = MM_Scricket45_STRING rs1stXIDetails.Source = "SELECT * FROM Club_1stXI WHERE Code = '" + Replace(rs1stXIDetails__MMColParam, "'", "''") + "'" rs1stXIDetails.CursorType = 0 rs1stXIDetails.CursorLocation = 2 rs1stXIDetails.LockType = 1 rs1stXIDetails.Open() rs1stXIDetails_numRows = 0 %> <% Dim rs2ndXIDetails__MMColParam rs2ndXIDetails__MMColParam = "AS1" If (Request.QueryString("AS1") <> "") Then rs2ndXIDetails__MMColParam = Request.QueryString("AS1") End If %> <% Dim rs2ndXIDetails Dim rs2ndXIDetails_numRows Set rs2ndXIDetails = Server.CreateObject("ADODB.Recordset") rs2ndXIDetails.ActiveConnection = MM_Scricket45_STRING rs2ndXIDetails.Source = "SELECT * FROM Club_2ndXI WHERE Div_Code = '" + Replace(rs2ndXIDetails__MMColParam, "'", "''") + "'" rs2ndXIDetails.CursorType = 0 rs2ndXIDetails.CursorLocation = 2 rs2ndXIDetails.LockType = 1 rs2ndXIDetails.Open() rs2ndXIDetails_numRows = 0 %> Fixtures Index
The Shrubbery hotel somerset cricket league
Search This Site
Enter one or more keywords to search
Note that '*' & '?' wildcards are supported.
Results per page:
Match: any search words
Match: all search words
Current Tables
<% rsClubDetails.Close() Set rsClubDetails = Nothing %> <% rs1stXIDetails.Close() Set rs1stXIDetails = Nothing %> <% rs2ndXIDetails.Close() Set rs2ndXIDetails = Nothing %>