Innovacion y Desarrollo FINRURAL

<%@LANGUAGE="VBSCRIPT"%> <% Dim Raiting Dim Raiting_numRows Set Raiting = Server.CreateObject("ADODB.Recordset") Raiting.ActiveConnection = MM_FINRURAL_STRING Raiting.Source = "SELECT * FROM Raiting ORDER BY Fecha DESC" Raiting.CursorType = 0 Raiting.CursorLocation = 2 Raiting.LockType = 1 Raiting.Open() Raiting_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Raiting_numRows = Raiting_numRows + Repeat1__numRows %> Innovacion y Desarrollo FINRURAL

INFORME DE CUMPLIMIENTO DE NORMAS

<% While ((Repeat1__numRows <> 0) AND (NOT Raiting.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Raiting.MoveNext() Wend %>

Institución	Reporte	Archivo
ANED	2006
CIDRE	2006
CRECER	2006
FRIF DIACONIA	2006
FADES	2006
FONDECO	2006
FONCRESOL	2006
FUNBODEM	2006
FUBODE	2006
IMPRO	2006
IDEPRO	2006
PROMUJER	2006
SARTAWI	2006

<% While ((Repeat1__numRows <> 0) AND (NOT Raiting.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Raiting.MoveNext() Wend %>

Institución	Reporte	Archivo
ANED	2005
CIDRE	2005
CRECER	2005
FRIF DIACONIA	2005
FADES	2005
FONDECO	2005
FONCRESOL	2005
FUNBODEM	2005
FUBODE	2005
IMPRO	2005
IDEPRO	2005
PROMUJER	2005

<% While ((Repeat1__numRows <> 0) AND (NOT Raiting.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Raiting.MoveNext() Wend %>

Institución	Reporte	Archivo
ANED	2004
CIDRE	2004
CRECER	2004
FRIF DIACONIA	2004
FADES	2004
FONDECO	2004
FONCRESOL	2004
FUNBODEM	2004
FUBODE	2004
IMPRO	2004
IDEPRO	2004
PROMUJER	2004

<% Raiting.Close() Set Raiting = Nothing %>