have 2 database
1. list of product = product type & Product catalog
-------------------------
product type Product catalog
AA a1
BB b1
-------------------------

2. Detail of product = product catalog & detail product
-------------------------
Product
catalog detail
a1 1
a1 1
a1 1
b1 1
b1 1
b1 1
b1 1
-------------------------
<%
Dim product__MMColParam
product__MMColParam = "Product"
If (Request("MM_EmptyValue") <> "") Then
product__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim product
Dim product_numRows

Set product = Server.CreateObject("ADODB.Recordset")
product.ActiveConnection = MM_data_STRING
product.Source = "SELECT * FROM list of product WHERE Product_type = '" +

Replace(product__MMColParam, "'", "''") + "' ORDER BY Product_catalog ASC"
product.CursorType = 0
product.CursorLocation = 2
product.LockType = 1
product.Open()

product_numRows = 0
%>
<%
Dim Rec_count__MMColParam
Rec_count__MMColParam = "a1"
If (Request("MM_EmptyValue") <> "") Then
Rec_count__MMColParam = Request("MM_EmptyValue")
End If
%>
<%