%@LANGUAGE="VBSCRIPT"%> <% Dim foodpromo__MMColParam foodpromo__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then foodpromo__MMColParam = Request("MM_EmptyValue") %> <% set foodpromo = Server.CreateObject("ADODB.Recordset") foodpromo.ActiveConnection = MM_hl_STRING foodpromo.Source = "SELECT * FROM damenu WHERE id = " + Replace(foodpromo__MMColParam, "'", "''") + "" foodpromo.CursorType = 0 foodpromo.CursorLocation = 2 foodpromo.LockType = 3 foodpromo.Open() foodpromo_numRows = 0 %>
|