%@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
<%
President.Close()
%>
<%
VicePresident.Close()
%>
<%
Secretary.Close()
%>
<%
Treasurer.Close()
%>
<%
Members.Close()
%>