<%
i_countMenu = 0
while(NOT rs_subCat_list.EOF)
i_subId_list = trim(rs_subCat_list.fields.item("SubCatId").value)
t_subName_list = trim(rs_subCat_list.fields.item("SubCatName").value)
t_subDescription_list = trim(rs_subCat_list.fields.item("SubCatDescription").value)
sql_subsubCat_list = "SELECT * " & _
"FROM SubSubCategories " & _
"WHERE SubCatId = " & i_subId_list & " " & _
"ORDER BY SubSubCatName"
Dim rs_subSubCat_list
Set rs_subSubCat_list = Server.CreateObject("ADODB.Recordset")
rs_subSubCat_list.ActiveConnection = MM_national_sports_STRING
rs_subSubCat_list.Source = sql_subsubCat_list
rs_subSubCat_list.CursorType = 0
rs_subSubCat_list.CursorLocation = 2
rs_subSubCat_list.LockType = 1
rs_subSubCat_list.Open()
i_countSubSubMenu =countRecords(rs_subSubCat_list)
%>
|
|
<%
i_countMenu = i_countMenu + 1
rs_subCat_list.MoveNext
wend
rs_subCat_list.close()
Set rs_subCat_list = Nothing
%>
|
| How to Order |
Please contact our customer service team:
800.478.6497
sales@nationalsportsproducts.com
You can also download an order form here and fax it to us at 800-443-8907
We accept Masetercard/Visa, Discover, & American Express. Checks are also accepted and Schools may submit a PO.
|
| |
Copyright © 2007 Douglas Industries, Inc.
All Rights Reserved
|
