%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim President__MMColParam
President__MMColParam = "President"
if (Request("MM_EmptyValue") <> "") then President__MMColParam = Request("MM_EmptyValue")
%>
<%
set President = Server.CreateObject("ADODB.Recordset")
President.ActiveConnection = MM_mainlink_STRING
President.Source = "SELECT * FROM Board WHERE BoardTitle = '" + Replace(President__MMColParam, "'", "''") + "'"
President.CursorType = 0
President.CursorLocation = 2
President.LockType = 3
President.Open()
President_numRows = 0
%>
<%
Dim VicePresident__MMColParam
VicePresident__MMColParam = "Vice"
if (Request("MM_EmptyValue") <> "") then VicePresident__MMColParam = Request("MM_EmptyValue")
%>
<%
set VicePresident = Server.CreateObject("ADODB.Recordset")
VicePresident.ActiveConnection = MM_mainlink_STRING
VicePresident.Source = "SELECT * FROM Board WHERE BoardTitle LIKE '%" + Replace(VicePresident__MMColParam, "'", "''") + "%'"
VicePresident.CursorType = 0
VicePresident.CursorLocation = 2
VicePresident.LockType = 3
VicePresident.Open()
VicePresident_numRows = 0
%>
<%
Dim Secretary__MMColParam
Secretary__MMColParam = "Secretary"
if (Request("MM_EmptyValue") <> "") then Secretary__MMColParam = Request("MM_EmptyValue")
%>
<%
set Secretary = Server.CreateObject("ADODB.Recordset")
Secretary.ActiveConnection = MM_mainlink_STRING
Secretary.Source = "SELECT * FROM Board WHERE BoardTitle = '" + Replace(Secretary__MMColParam, "'", "''") + "'"
Secretary.CursorType = 0
Secretary.CursorLocation = 2
Secretary.LockType = 3
Secretary.Open()
Secretary_numRows = 0
%>
<%
Dim Treasurer__MMColParam
Treasurer__MMColParam = "Treasurer"
if (Request("MM_EmptyValue") <> "") then Treasurer__MMColParam = Request("MM_EmptyValue")
%>
<%
set Treasurer = Server.CreateObject("ADODB.Recordset")
Treasurer.ActiveConnection = MM_mainlink_STRING
Treasurer.Source = "SELECT * FROM Board WHERE BoardTitle = '" + Replace(Treasurer__MMColParam, "'", "''") + "'"
Treasurer.CursorType = 0
Treasurer.CursorLocation = 2
Treasurer.LockType = 3
Treasurer.Open()
Treasurer_numRows = 0
%>
<%
Dim Members__MMColParam
Members__MMColParam = "Large"
if (Request("MM_EmptyValue") <> "") then Members__MMColParam = Request("MM_EmptyValue")
%>
<%
set Members = Server.CreateObject("ADODB.Recordset")
Members.ActiveConnection = MM_mainlink_STRING
Members.Source = "SELECT * FROM Board WHERE BoardTitle LIKE '%" + Replace(Members__MMColParam, "'", "''") + "%'"
Members.CursorType = 0
Members.CursorLocation = 2
Members.LockType = 3
Members.Open()
Members_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Members_numRows = Members_numRows + Repeat1__numRows
%>
MAE Board
Members at Large |
<%
While ((Repeat1__numRows <> 0) AND (NOT Members.EOF))
%>
| Elizabeth Agius |
msliz_66@yahoo.com |
(313) 792-1638 |
Wayne State University |
| Chris Coryn |
chris.coryn@wmich.edu |
(269) 387-5906 |
The Evaluation Center,
Western Michigan University |
| Jason Forney |
forneyja@msu.edu |
(248) 705-7844 |
Michigan State University |
| Nancy McCrohan |
nmccrohan@publicpolicy.com
|
(517) 485-4477
|
Public Policy Associates |
| Rita McPhail |
rmkoenig@battlecreek.net |
(269) 965-4638 |
RMK Management Support |
| Ruth Mohr |
rmohr@pasty.com |
(734) 662-5253 |
Mohr Program Evaluation and Planning |
| Jane Powers |
jpowers@pscinc.com |
(517) 484-4954 |
Public Sector Consultants Inc. |
| Amanda Schafer |
aschafer@mnaonline.org |
(517) 492-2429 |
Michigan Nonprofit Association |
| Laurie Van Egeren |
vanegere@msu.edu |
(517) 355-0140 |
Michigan State University |
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Members.MoveNext()
Wend
%>
<%
President.Close()
%>
<%
VicePresident.Close()
%>
<%
Secretary.Close()
%>
<%
Treasurer.Close()
%>
<%
Members.Close()
%>