<%@LANGUAGE="VBSCRIPT"%> <% If Request.QueryString("IdNota") = "10" Then Response.Redirect("../replicas/index.asp") End If If Request.QueryString("IdNota") = "12" Then Response.Redirect("../prensa/index.asp") End If %> <% Dim rsNotas__strIdNota rsNotas__strIdNota = "0" if (Request.QueryString("IdNota") <> "") then rsNotas__strIdNota = Request.QueryString("IdNota") %> <% set rsNotas = Server.CreateObject("ADODB.Recordset") rsNotas.ActiveConnection = MM_connCombo_STRING rsNotas.Source = "SELECT IdNota, Titulo, Copete, Contenido FROM Notas WHERE IdNota = " + Replace(rsNotas__strIdNota, "'", "''") + " ORDER BY Titulo ASC" rsNotas.CursorType = 0 rsNotas.CursorLocation = 2 rsNotas.LockType = 3 rsNotas.Open() rsNotas_numRows = 0 %> <% Dim rsSeccion__strSeccion rsSeccion__strSeccion = "0" if (Request.QueryString("IdSeccion") <> "") then rsSeccion__strSeccion = Request.QueryString("IdSeccion") %> <% set rsSeccion = Server.CreateObject("ADODB.Recordset") rsSeccion.ActiveConnection = MM_connCombo_STRING rsSeccion.Source = "SELECT Nombre FROM Secciones WHERE IdSeccion = " + Replace(rsSeccion__strSeccion, "'", "''") + "" rsSeccion.CursorType = 0 rsSeccion.CursorLocation = 2 rsSeccion.LockType = 3 rsSeccion.Open() rsSeccion_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsNotas_numRows = rsNotas_numRows + Repeat1__numRows %> <% Dim rsContenido__strId rsContenido__strId = strHomePage if (Request.QueryString("IdSeccion") <> "") then rsContenido__strId = Request.QueryString("IdSeccion") %> <%=TituloSite%>

<%AjustarContenido(rsNotas.Fields.Item("Contenido").Value)%>

 
<% rsNotas.Close() %> <% rsSeccion.Close() %>