%@LANGUAGE="VBSCRIPT"%> <% Dim rsnoticias__MM_ColParam rsnoticias__MM_ColParam = "1" if (Request.QueryString("id") <> "") then rsnoticias__MM_ColParam = Request.QueryString("id") %> <% set rsnoticias = Server.CreateObject("ADODB.Recordset") rsnoticias.ActiveConnection = MM_conexion1_STRING rsnoticias.Source = "SELECT * FROM Noticias WHERE id = " + Replace(rsnoticias__MM_ColParam, "'", "''") + " ORDER BY fecha ASC" rsnoticias.CursorType = 0 rsnoticias.CursorLocation = 2 rsnoticias.LockType = 3 rsnoticias.Open() rsnoticias_numRows = 0 %>