%@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.Shop" 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 Newspage Dim Newspage_cmd Dim Newspage_numRows Set Newspage_cmd = Server.CreateObject ("ADODB.Command") Newspage_cmd.ActiveConnection = MM_test_STRING Newspage_cmd.CommandText = "SELECT * FROM dbo.newsPage" Newspage_cmd.Prepared = true Set Newspage = Newspage_cmd.Execute Newspage_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Product_cat_numRows = Product_cat_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||||||||||||