%@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
<%
rsClubDetails.Close()
Set rsClubDetails = Nothing
%>
<%
rs1stXIDetails.Close()
Set rs1stXIDetails = Nothing
%>
<%
rs2ndXIDetails.Close()
Set rs2ndXIDetails = Nothing
%>