%@LANGUAGE="VBSCRIPT"%> <% i_catId = 3 %>
<% sql_subCat_list = "SELECT * " & _ "FROM SubCategories " & _ "WHERE CatId = " & i_catId & " " & _ "ORDER BY SubCatName" Dim rs_subCat_list Set rs_subCat_list = Server.CreateObject("ADODB.Recordset") rs_subCat_list.ActiveConnection = MM_national_sports_STRING rs_subCat_list.Source = sql_subCat_list rs_subCat_list.CursorType = 0 rs_subCat_list.CursorLocation = 2 rs_subCat_list.LockType = 1 rs_subCat_list.Open() %>
|
||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||
|
Copyright © 2007 Douglas Industries, Inc. |
|||||||||||||||||||||||||||||||||