<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsCategories Dim rsCategories_numRows Set rsCategories = Server.CreateObject("ADODB.Recordset") rsCategories.ActiveConnection = MM_connShop_STRING rsCategories.Source = "SELECT * FROM Categories LEFT JOIN SubCategories ON Categories.CatId = SubCategories.CatId ORDER BY SubCategories.SubCatId ASC" rsCategories.CursorType = 0 rsCategories.CursorLocation = 2 rsCategories.LockType = 1 rsCategories.Open() rsCategories_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsCategories_numRows = rsCategories_numRows + Repeat1__numRows %> Retrotek Speed Ford Fuel Injected Engines


<% rsCategories.Close() Set rsCategories = Nothing %>