%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim Baguette Dim Baguette_numRows Set Baguette = Server.CreateObject("ADODB.Recordset") Baguette.ActiveConnection = MM_FoodLovers_STRING Baguette.Source = "SELECT * FROM Baguette ORDER BY Baguette_ID ASC" Baguette.CursorType = 0 Baguette.CursorLocation = 2 Baguette.LockType = 1 Baguette.Open() Baguette_numRows = 0 %> <% Dim sandwich Dim sandwich_numRows Set sandwich = Server.CreateObject("ADODB.Recordset") sandwich.ActiveConnection = MM_FoodLovers_STRING sandwich.Source = "SELECT * FROM Sandwich ORDER BY Sandwich_ID ASC" sandwich.CursorType = 0 sandwich.CursorLocation = 2 sandwich.LockType = 1 sandwich.Open() sandwich_numRows = 0 %> <% Dim salad Dim salad_numRows Set salad = Server.CreateObject("ADODB.Recordset") salad.ActiveConnection = MM_FoodLovers_STRING salad.Source = "SELECT * FROM Salad ORDER BY Salad_ID ASC" salad.CursorType = 0 salad.CursorLocation = 2 salad.LockType = 1 salad.Open() salad_numRows = 0 %>
|
Tel: (02088)755750 Fax: (02088)755750 |