%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsSubcategories__MMColParam rsSubcategories__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then rsSubcategories__MMColParam = Request("MM_EmptyValue") %> <% 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" 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 = 1 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 Colours ORDER BY colour ASC" rsColours.CursorType = 0 rsColours.CursorLocation = 2 rsColours.LockType = 3 rsColours.Open() rsColours_numRows = 0 %>
|