%@LANGUAGE="VBSCRIPT"%> <% Dim Product_cat Dim Product_cat_cmd Dim Product_cat_numRows Set Product_cat_cmd = Server.CreateObject ("ADODB.Command") Product_cat_cmd.ActiveConnection = MM_test_STRING Product_cat_cmd.CommandText = "SELECT * FROM dbo.catagory" Product_cat_cmd.Prepared = true Set Product_cat = Product_cat_cmd.Execute Product_cat_numRows = 0 %> <% Dim ProductsPage Dim ProductsPage_cmd Dim ProductsPage_numRows Set ProductsPage_cmd = Server.CreateObject ("ADODB.Command") ProductsPage_cmd.ActiveConnection = MM_test_STRING ProductsPage_cmd.CommandText = "SELECT * FROM dbo.PPage" ProductsPage_cmd.Prepared = true Set ProductsPage = ProductsPage_cmd.Execute ProductsPage_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Product_cat_numRows = Product_cat_numRows + Repeat1__numRows %>
|
||||||||||||||||||||||||||||||||||||||