%@LANGUAGE="VBSCRIPT"%> <% Dim RS_recipes Dim RS_recipes_cmd Dim RS_recipes_numRows Set RS_recipes_cmd = Server.CreateObject ("ADODB.Command") RS_recipes_cmd.ActiveConnection = MM_onions_usa_STRING RS_recipes_cmd.CommandText = "SELECT * FROM dbo.NOA_recipes WHERE rec_active = 1 and rec_type = 1 ORDER BY rec_name ASC" RS_recipes_cmd.Prepared = true Set RS_recipes = RS_recipes_cmd.Execute RS_recipes_numRows = 0 %>
|
|||||||
|
|
||||||
|
|||||||