%@LANGUAGE="VBSCRIPT"%> <% Dim rsProduct__MMColParam rsProduct__MMColParam = "1" If (Request.QueryString("ID_product") <> "") Then rsProduct__MMColParam = Request.QueryString("ID_product") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_connNWR_STRING rsProduct.Source = "SELECT * FROM products WHERE ID_product = " + Replace(rsProduct__MMColParam, "'", "''") + "" rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %>