%@LANGUAGE="VBSCRIPT"%> <% Dim noticia__MMColParam noticia__MMColParam = "1" if (Request.QueryString("ID") <> "") then noticia__MMColParam = Request.QueryString("ID") %> <% set noticia = Server.CreateObject("ADODB.Recordset") noticia.ActiveConnection = MM_fc_encamp_STRING noticia.Source = "SELECT * FROM noticies WHERE ID = " + Replace(noticia__MMColParam, "'", "''") + "" noticia.CursorType = 0 noticia.CursorLocation = 2 noticia.LockType = 3 noticia.Open() noticia_numRows = 0 %>
|