%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim teams__MMColParam teams__MMColParam = "priory" If (Request("MM_EmptyValue") <> "") Then teams__MMColParam = Request("MM_EmptyValue") End If %> <% Dim teams Dim teams_numRows Set teams = Server.CreateObject("ADODB.Recordset") teams.ActiveConnection = MM_parkside_mysql_STRING teams.Source = "SELECT * FROM team_details WHERE team_id LIKE '%" + Replace(teams__MMColParam, "'", "''") + "%' ORDER BY id ASC" teams.CursorType = 0 teams.CursorLocation = 2 teams.LockType = 1 teams.Open() teams_numRows = 0 %>