<%@ Language=VBScript %> <% Response.Buffer = True %> <% Dim ComId, bInit, bExecuted, Title, message 'Initialize the Page for each server request InitializePage() %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function InitializePage() bInit = CBool(Cint(Request.Querystring ("init"))) 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 rsMembers Set rsMembers = Server.CreateObject("ADODB.Recordset") Dim rsNONMembers Set rsNONMembers = Server.CreateObject("ADODB.Recordset") Dim rsComm Set rsComm = Server.CreateObject("ADODB.Recordset") GetCommittees rsComm %> <% Title = "Add Committee Members" %>

<% dbNVS.Close If Not bInit then LoadNonCommitteeMembers rsNONMembers %> <% dbNVS.Close LoadCommMembers rsMembers %> <% 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%>        ------Faculty Members------   <%While Not rsNONMembers.EOF%> "><%=Left(rsNONMembers.Fields("L_NAME").Value, 20) + " " + Left(rsNONMembers.Fields("F_NAME").Value, 20)%> <% rsNONMembers.MoveNext Wend%>   -------Committee Members-------   <%While Not rsMembers.EOF%> "><%=Left(rsMembers.Fields("L_NAME").Value, 20) + " " + Left(rsMembers.Fields("F_NAME").Value, 20) + " | " + rsMembers.Fields("TYPE_NAME").Value%> <% rsMembers.MoveNext Wend%>

<% Set dbNVS = Nothing Set rsComm = Nothing Set rsMembers = Nothing Response.End %>