%@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
<%
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()
%>