<%@ Language=VBScript %> <% Response.Buffer = True %> <% Dim ComId, bInit, bExecuted, Title, message, cnt 'Initialize the Page for each server request InitializePage() %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function InitializePage() bInit = CBool(Cint(Request.Querystring ("init"))) cnt = 0 If Request.Form("selComm") = "0" AND Not bInit Then Response.Clear Response.Redirect "error.asp?mess=You must select a committee to view its members." Response.End End If If bInit <> Cint(False) then ComId = Cint(0) else If Request.QueryString("comid") <> "" Then ComId = Request.QueryString("comid") Else ComId = Request.Form("selComm") End If End If End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Dim objMemTypes Set objMemTypes = Server.CreateObject("Scripting.Dictionary") Dim rsMembers Set rsMembers = Server.CreateObject("ADODB.Recordset") Dim rsComm Set rsComm = Server.CreateObject("ADODB.Recordset") GetCommittees rsComm %> <% Title = "Edit Committee Members" %>

<% dbNVS.Close If Not bInit then LoadMemberTypes objMemTypes dbNVS.Close LoadCommMembers rsMembers If Not rsMembers.EOF Then %> <% While Not rsMembers.EOF cnt = cnt + 1 %> "> <% rsMembers.MoveNext Wend %> <% Else %> <% End If %> <% End If %>  Add/Delete |  Edit     <%If bInit <> False then%> - Select a Committee - <%End If%> <%While Not rsComm.EOF%> <%If Clng(rsComm.Fields("COMID").Value) = Clng(ComId) then%> "><%=Left(rsComm.Fields("COMNAME").Value, 40)%> <%Else%> "><%=Left(rsComm.Fields("COMNAME").Value, 50)%> <%End If%> <% rsComm.MoveNext Wend%>        Member Name Term Expires Membership Type     <%=rsMembers.Fields("L_NAME").Value + " " + rsMembers.Fields("F_NAME").Value%> "> <% Dim arrKeys, arrItems arrKeys = objMemTypes.Keys arrItems = objMemTypes.Items For intCount = 0 to objMemTypes.Count - 1 If Clng(rsMembers.Fields("TYPE_ID").Value) = Clng(arrKeys(intCount)) then%> <%=arrItems(intCount)%> <%Else%> <%=arrItems(intCount)%> <%End If Next %>         Member Name Term Expires Membership Type     There are currently no members of this committee.

<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'THIS DISPLAYS A MESSAGE BOX...WILL USE TO CONFIRM A SUCCESSFULL COMMITTEE ADDITION... If Request.QueryString("confirm") = "yes" Then Response.write "" End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Set dbNVS = Nothing Set rsComm = Nothing Set rsMembers = Nothing Set objMemType = Nothing Response.End %>