%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Command1__CatID Command1__CatID = "1" if(Request("CatID") <> "") then Command1__CatID = Request("CatID") %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_connLouries_STRING Command1.CommandText = "ItemsInCategory" Command1.Parameters.Append Command1.CreateParameter("@RETURN_VALUE", 3, 4) Command1.Parameters.Append Command1.CreateParameter("@CatID", 3, 1,4,Command1__CatID) Command1.CommandType = 4 Command1.CommandTimeout = 0 Command1.Prepared = true set rsItems = Command1.Execute rsItems_numRows = 0 %> <% Dim Repeat_rsItems__numRowsHL Dim Repeat_rsItems__indexHL Repeat_rsItems__numRowsHL = -1 Repeat_rsItems__indexHL = 0 rsItems_numRows = rsItems_numRows + Repeat_rsItems__numRowsHL %>
|