<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Fundación para Estudio e Investigación de la Mujer -FEIM- <% Dim rs_not__MMColParam rs_not__MMColParam = "1" If (Request.QueryString("id") <> "") Then rs_not__MMColParam = Request.QueryString("id") End If %> <% Dim rs_not Dim rs_not_numRows Set rs_not = Server.CreateObject("ADODB.Recordset") rs_not.ActiveConnection = MM_cnx_STRING rs_not.Source = "SELECT ALL * FROM noticias WHERE seccion = 'comunicado' ORDER BY anio DESC, mes DESC, dia DESC" rs_not.CursorType = 0 rs_not.CursorLocation = 2 rs_not.LockType = 1 rs_not.Open() rs_not_numRows = 0 %> <% Dim rs_notFuente Dim rs_notFuente_numRows Set rs_notFuente = Server.CreateObject("ADODB.Recordset") rs_notFuente.ActiveConnection = MM_cnx_STRING rs_notFuente.Source = "SELECT DISTINCT DIARIO FROM noticias ORDER BY DIARIO asc" rs_notFuente.CursorType = 0 rs_notFuente.CursorLocation = 2 rs_notFuente.LockType = 1 rs_notFuente.Open() rs_notFuente_numRows = 0 %>
 
 
NOTICIAS

Todas las noticias

<%do while not rs_not.eof%>

:: <%=rs_not("fecha")%>. | <%=rs_not("diario")%>
  <%=rs_not("TITULO")%>
<%=rs_not("copete")%>">
Fuente: " target="_blank"><%=rs_not("fuente")%>
Descargar " target="_blank">

<%rs_not.movenext loop%>  

 

Con Personería Jurídica desde 1989
Con Status Consultivo en Naciones Unidas desde 2006

Tel/Fax: (+54-11) 4372-2763 | Paraná 135, piso 3, dto.13 | (C1017AAC) | Buenos Aires, Argentina | feim@feim.org.ar

<% rs_not.Close() Set rs_not = Nothing %> <% rs_notFuente.Close() Set rs_notFuente = Nothing %>