%@LANGUAGE="VBSCRIPT"%> <% Dim rs_Price__MMColParam rs_Price__MMColParam = "3426" If (Request("MM_EmptyValue") <> "") Then rs_Price__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_Price Dim rs_Price_numRows Set rs_Price = Server.CreateObject("ADODB.Recordset") rs_Price.ActiveConnection = MM_hipaacart_STRING rs_Price.Source = "SELECT ProductID, ProductPrice, misc FROM dbo.tbl_Products WHERE ProductID = " + Replace(rs_Price__MMColParam, "'", "''") + "" rs_Price.CursorType = 0 rs_Price.CursorLocation = 2 rs_Price.LockType = 1 rs_Price.Open() rs_Price_numRows = 0 %>