%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsSubcategories__MMColParam rsSubcategories__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then rsSubcategories__MMColParam = Request("MM_EmptyValue") End If %> <% set rsSubcategories = Server.CreateObject("ADODB.Recordset") rsSubcategories.ActiveConnection = MM_connLogCabin_STRING rsSubcategories.Source = "SELECT * FROM Subcategories WHERE categoryid = " + Replace(rsSubcategories__MMColParam, "'", "''") + " ORDER BY subcategory ASC" rsSubcategories.CursorType = 0 rsSubcategories.CursorLocation = 2 rsSubcategories.LockType = 3 rsSubcategories.Open() rsSubcategories_numRows = 0 %> <% set rsManufacturers = Server.CreateObject("ADODB.Recordset") rsManufacturers.ActiveConnection = MM_connLogCabin_STRING rsManufacturers.Source = "SELECT DISTINCT manufacturer FROM Products WHERE catid = 9" rsManufacturers.CursorType = 0 rsManufacturers.CursorLocation = 2 rsManufacturers.LockType = 3 rsManufacturers.Open() rsManufacturers_numRows = 0 %> <% set rsRanges = Server.CreateObject("ADODB.Recordset") rsRanges.ActiveConnection = MM_connLogCabin_STRING rsRanges.Source = "SELECT DISTINCT range_name FROM Products WHERE catid = 9 ORDER BY range_name ASC" rsRanges.CursorType = 0 rsRanges.CursorLocation = 2 rsRanges.LockType = 3 rsRanges.Open() rsRanges_numRows = 0 %> <% set rsColours = Server.CreateObject("ADODB.Recordset") rsColours.ActiveConnection = MM_connLogCabin_STRING rsColours.Source = "SELECT * FROM WoolColours" rsColours.CursorType = 0 rsColours.CursorLocation = 2 rsColours.LockType = 3 rsColours.Open() rsColours_numRows = 0 %>
|