%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recipes__MMColParam Recipes__MMColParam = "Peaches" If (Request("MM_EmptyValue") <> "") Then Recipes__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recipes Dim Recipes_numRows Set Recipes = Server.CreateObject("ADODB.Recordset") Recipes.ActiveConnection = MM_Pia_STRING Recipes.Source = "SELECT * FROM Recipes WHERE recipeName = '" + Replace(Recipes__MMColParam, "'", "''") + "'" Recipes.CursorType = 0 Recipes.CursorLocation = 2 Recipes.LockType = 1 Recipes.Open() Recipes_numRows = 0 %> <% Dim Products__MMColParam Products__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Products__MMColParam = Request.QueryString("ID") End If %> <% Dim Products Dim Products_numRows Set Products = Server.CreateObject("ADODB.Recordset") Products.ActiveConnection = MM_Pia_STRING Products.Source = "SELECT * FROM Products WHERE ID = " + Replace(Products__MMColParam, "'", "''") + "" Products.CursorType = 0 Products.CursorLocation = 2 Products.LockType = 1 Products.Open() Products_numRows = 0 %>