%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim rsClass__MMColParam rsClass__MMColParam = "165" If (Request("MM_EmptyValue") <> "") Then rsClass__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsClass Dim rsClass_numRows Set rsClass = Server.CreateObject("ADODB.Recordset") rsClass.ActiveConnection = MM_conn_STRING rsClass.Source = "SELECT * FROM Class WHERE uplevel = " + Replace(rsClass__MMColParam, "'", "''") + "" rsClass.CursorType = 0 rsClass.CursorLocation = 2 rsClass.LockType = 1 rsClass.Open() rsClass_numRows = 0 %> <% Dim rsProduct__MMColParam rsProduct__MMColParam = "171" If (Request.QueryString("cid") <> "") Then rsProduct__MMColParam = Request.QueryString("cid") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_conn_STRING rsProduct.Source = "SELECT * FROM AllProduct WHERE Class = " + Replace(rsProduct__MMColParam, "'", "''") + " ORDER BY Brand, PModel" rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsClass_numRows = rsClass_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 rsProduct_numRows = rsProduct_numRows + Repeat2__numRows %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|