%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_test_STRING Recordset1_cmd.CommandText = "SELECT * FROM dbo.catagory" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% 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 Books Dim Books_cmd Dim Books_numRows Set Books_cmd = Server.CreateObject ("ADODB.Command") Books_cmd.ActiveConnection = MM_test_STRING Books_cmd.CommandText = "SELECT * FROM dbo.Books" Books_cmd.Prepared = true Set Books = Books_cmd.Execute Books_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Books_numRows = Books_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Product_cat_numRows = Product_cat_numRows + Repeat1__numRows %>
|
||||||||||||||||||||||||||||||||||||||||||