%@LANGUAGE="VBSCRIPT"%> <% Dim rsRiders Dim rsRiders_cmd Dim rsRiders_numRows Set rsRiders_cmd = Server.CreateObject ("ADODB.Command") rsRiders_cmd.ActiveConnection = MM_connData_STRING rsRiders_cmd.CommandText = "SELECT * FROM qryRiders ORDER BY LastName ASC" rsRiders_cmd.Prepared = true Set rsRiders = rsRiders_cmd.Execute rsRiders_numRows = 0 %> <% Dim rsStages__MMColParam rsStages__MMColParam = "stage" If (Request("MM_EmptyValue") <> "") Then rsStages__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsStages Dim rsStages_cmd Dim rsStages_numRows Set rsStages_cmd = Server.CreateObject ("ADODB.Command") rsStages_cmd.ActiveConnection = MM_connData_STRING rsStages_cmd.CommandText = "SELECT * FROM tblCategories WHERE catGroup = ? ORDER BY catname ASC" rsStages_cmd.Prepared = true rsStages_cmd.Parameters.Append rsStages_cmd.CreateParameter("param1", 200, 1, 50, rsStages__MMColParam) ' adVarChar Set rsStages = rsStages_cmd.Execute rsStages_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRiders_numRows = rsRiders_numRows + Repeat1__numRows %>
|