<%@LANGUAGE="VBSCRIPT"%> <% Dim Alumni90__MMColParam Alumni90__MMColParam = "1990" if (Request("MM_EmptyValue") <> "") then Alumni90__MMColParam = Request("MM_EmptyValue") %> <% set Alumni90 = Server.CreateObject("ADODB.Recordset") Alumni90.ActiveConnection = MM_PFNYC_db_STRING Alumni90.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni90__MMColParam, "'", "''") + "" Alumni90.CursorType = 0 Alumni90.CursorLocation = 2 Alumni90.LockType = 3 Alumni90.Open() Alumni90_numRows = 0 %> <% Dim Alumni91__MMColParam Alumni91__MMColParam = "1991" if (Request("MM_EmptyValue") <> "") then Alumni91__MMColParam = Request("MM_EmptyValue") %> <% set Alumni91 = Server.CreateObject("ADODB.Recordset") Alumni91.ActiveConnection = MM_PFNYC_db_STRING Alumni91.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni91__MMColParam, "'", "''") + "" Alumni91.CursorType = 0 Alumni91.CursorLocation = 2 Alumni91.LockType = 3 Alumni91.Open() Alumni91_numRows = 0 %> <% Dim Alumni92__MMColParam Alumni92__MMColParam = "1992" if (Request("MM_EmptyValue") <> "") then Alumni92__MMColParam = Request("MM_EmptyValue") %> <% set Alumni92 = Server.CreateObject("ADODB.Recordset") Alumni92.ActiveConnection = MM_PFNYC_db_STRING Alumni92.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni92__MMColParam, "'", "''") + "" Alumni92.CursorType = 0 Alumni92.CursorLocation = 2 Alumni92.LockType = 3 Alumni92.Open() Alumni92_numRows = 0 %> <% Dim Alumni93__MMColParam Alumni93__MMColParam = "1993" if (Request("MM_EmptyValue") <> "") then Alumni93__MMColParam = Request("MM_EmptyValue") %> <% set Alumni93 = Server.CreateObject("ADODB.Recordset") Alumni93.ActiveConnection = MM_PFNYC_db_STRING Alumni93.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni93__MMColParam, "'", "''") + "" Alumni93.CursorType = 0 Alumni93.CursorLocation = 2 Alumni93.LockType = 3 Alumni93.Open() Alumni93_numRows = 0 %> <% Dim Alumni94__MMColParam Alumni94__MMColParam = "1994" if (Request("MM_EmptyValue") <> "") then Alumni94__MMColParam = Request("MM_EmptyValue") %> <% set Alumni94 = Server.CreateObject("ADODB.Recordset") Alumni94.ActiveConnection = MM_PFNYC_db_STRING Alumni94.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni94__MMColParam, "'", "''") + "" Alumni94.CursorType = 0 Alumni94.CursorLocation = 2 Alumni94.LockType = 3 Alumni94.Open() Alumni94_numRows = 0 %> <% Dim Alumni95__MMColParam Alumni95__MMColParam = "1995" if (Request("MM_EmptyValue") <> "") then Alumni95__MMColParam = Request("MM_EmptyValue") %> <% set Alumni95 = Server.CreateObject("ADODB.Recordset") Alumni95.ActiveConnection = MM_PFNYC_db_STRING Alumni95.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni95__MMColParam, "'", "''") + "" Alumni95.CursorType = 0 Alumni95.CursorLocation = 2 Alumni95.LockType = 3 Alumni95.Open() Alumni95_numRows = 0 %> <% Dim Alumni96__MMColParam Alumni96__MMColParam = "1996" if (Request("MM_EmptyValue") <> "") then Alumni96__MMColParam = Request("MM_EmptyValue") %> <% set Alumni96 = Server.CreateObject("ADODB.Recordset") Alumni96.ActiveConnection = MM_PFNYC_db_STRING Alumni96.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni96__MMColParam, "'", "''") + "" Alumni96.CursorType = 0 Alumni96.CursorLocation = 2 Alumni96.LockType = 3 Alumni96.Open() Alumni96_numRows = 0 %> <% Dim Alumni97__MMColParam Alumni97__MMColParam = "1997" if (Request("MM_EmptyValue") <> "") then Alumni97__MMColParam = Request("MM_EmptyValue") %> <% set Alumni97 = Server.CreateObject("ADODB.Recordset") Alumni97.ActiveConnection = MM_PFNYC_db_STRING Alumni97.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni97__MMColParam, "'", "''") + "" Alumni97.CursorType = 0 Alumni97.CursorLocation = 2 Alumni97.LockType = 3 Alumni97.Open() Alumni97_numRows = 0 %> <% Dim Alumni98__MMColParam Alumni98__MMColParam = "1998" if (Request("MM_EmptyValue") <> "") then Alumni98__MMColParam = Request("MM_EmptyValue") %> <% set Alumni98 = Server.CreateObject("ADODB.Recordset") Alumni98.ActiveConnection = MM_PFNYC_db_STRING Alumni98.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni98__MMColParam, "'", "''") + "" Alumni98.CursorType = 0 Alumni98.CursorLocation = 2 Alumni98.LockType = 3 Alumni98.Open() Alumni98_numRows = 0 %> <% Dim Alumni99__MMColParam Alumni99__MMColParam = "1999" if (Request("MM_EmptyValue") <> "") then Alumni99__MMColParam = Request("MM_EmptyValue") %> <% set Alumni99 = Server.CreateObject("ADODB.Recordset") Alumni99.ActiveConnection = MM_PFNYC_db_STRING Alumni99.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni99__MMColParam, "'", "''") + "" Alumni99.CursorType = 0 Alumni99.CursorLocation = 2 Alumni99.LockType = 3 Alumni99.Open() Alumni99_numRows = 0 %> <% Dim Alumni00__MMColParam Alumni00__MMColParam = "2000" if (Request("MM_EmptyValue") <> "") then Alumni00__MMColParam = Request("MM_EmptyValue") %> <% set Alumni00 = Server.CreateObject("ADODB.Recordset") Alumni00.ActiveConnection = MM_PFNYC_db_STRING Alumni00.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni00__MMColParam, "'", "''") + "" Alumni00.CursorType = 0 Alumni00.CursorLocation = 2 Alumni00.LockType = 3 Alumni00.Open() Alumni00_numRows = 0 %> <% Dim Alumni01__MMColParam Alumni01__MMColParam = "2001" if (Request("MM_EmptyValue") <> "") then Alumni01__MMColParam = Request("MM_EmptyValue") %> <% set Alumni01 = Server.CreateObject("ADODB.Recordset") Alumni01.ActiveConnection = MM_PFNYC_db_STRING Alumni01.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni01__MMColParam, "'", "''") + "" Alumni01.CursorType = 0 Alumni01.CursorLocation = 2 Alumni01.LockType = 3 Alumni01.Open() Alumni01_numRows = 0 %> <% Dim Alumni02__MMColParam Alumni02__MMColParam = "2002" if (Request("MM_EmptyValue") <> "") then Alumni02__MMColParam = Request("MM_EmptyValue") %> <% set Alumni02 = Server.CreateObject("ADODB.Recordset") Alumni02.ActiveConnection = MM_PFNYC_db_STRING Alumni02.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni02__MMColParam, "'", "''") + "" Alumni02.CursorType = 0 Alumni02.CursorLocation = 2 Alumni02.LockType = 3 Alumni02.Open() Alumni02_numRows = 0 %> <% Dim Alumni03__MMColParam Alumni03__MMColParam = "2003" if (Request("MM_EmptyValue") <> "") then Alumni03__MMColParam = Request("MM_EmptyValue") %> <% set Alumni03 = Server.CreateObject("ADODB.Recordset") Alumni03.ActiveConnection = MM_PFNYC_db_STRING Alumni03.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni03__MMColParam, "'", "''") + "" Alumni03.CursorType = 0 Alumni03.CursorLocation = 2 Alumni03.LockType = 3 Alumni03.Open() Alumni03_numRows = 0 %> <% Dim Alumni04__MMColParam Alumni04__MMColParam = "2004" if (Request("MM_EmptyValue") <> "") then Alumni04__MMColParam = Request("MM_EmptyValue") %> <% set Alumni04 = Server.CreateObject("ADODB.Recordset") Alumni04.ActiveConnection = MM_PFNYC_db_STRING Alumni04.Source = "SELECT CLASS, NAME, POSITION, COMPANY FROM DRFAlumni WHERE CLASS = " + Replace(Alumni04__MMColParam, "'", "''") + "" Alumni04.CursorType = 0 Alumni04.CursorLocation = 2 Alumni04.LockType = 3 Alumni04.Open() Alumni04_numRows = 0 %> <% Dim Labels__MMColParam Labels__MMColParam = "1" if (Request.QueryString("CLASS") <> "") then Labels__MMColParam = Request.QueryString("CLASS") %> <% set Labels = Server.CreateObject("ADODB.Recordset") Labels.ActiveConnection = MM_PFNYC_db_STRING Labels.Source = "SELECT ID FROM DRFAlumniLABELS WHERE ID = " + Replace(Labels__MMColParam, "'", "''") + "" Labels.CursorType = 0 Labels.CursorLocation = 2 Labels.LockType = 3 Labels.Open() Labels_numRows = 0 %> <% Dim Alumni__MMColParam Alumni__MMColParam = "1" if (Request.QueryString("CLASS") <> "") then Alumni__MMColParam = Request.QueryString("CLASS") %> <% set Alumni = Server.CreateObject("ADODB.Recordset") Alumni.ActiveConnection = MM_PFNYC_db_STRING Alumni.Source = "SELECT * FROM DRFAlumni WHERE CLASS = " + Replace(Alumni__MMColParam, "'", "''") + "" Alumni.CursorType = 0 Alumni.CursorLocation = 2 Alumni.LockType = 3 Alumni.Open() Alumni_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Alumni_numRows = Alumni_numRows + Repeat1__numRows %> DRF: Alumni Fellows
Partnership for New York City New York City Investment Fund
David Rockefeller Fellows

 

 
 

 

Alumni Fellows
Select Graduating Class from Menu
 

<%=(Labels.Fields.Item("ID").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT Alumni.EOF)) %>

<%=(Alumni.Fields.Item("NAME").Value)%>
<%=(Alumni.Fields.Item("POSITION").Value)%>
<%=(Alumni.Fields.Item("COMPANY").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Alumni.MoveNext() Wend %>
   
  ©2010 Partnership for New York City. All rights reserved. :: Privacy Policy
<% Alumni90.Close() %> <% Alumni91.Close() %> <% Alumni92.Close() %> <% Alumni93.Close() %> <% Alumni94.Close() %> <% Alumni95.Close() %> <% Alumni96.Close() %> <% Alumni97.Close() %> <% Alumni98.Close() %> <% Alumni99.Close() %> <% Alumni00.Close() %> <% Alumni01.Close() %> <% Alumni02.Close() %> <% Alumni03.Close() %> <% Alumni04.Close() %> <% Labels.Close() %> <% Alumni.Close() %>