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