<%@ Language=VBScript %> <% Response.Buffer = True %> <% Dim ComId, bInit, bExecuted, blnEdit, pExecuted, Title 'Initialize the Page for each server request InitializePage() %> <% Function FormatMediumDate(DateValue) Dim strYYYY Dim strMM Dim strDD strYYYY = CStr(DatePart("yyyy", DateValue)) strMM = CStr(DatePart("m", DateValue)) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", DateValue)) If Len(strDD) = 1 Then strDD = "0" & strDD FormatMediumDate = strMM & "/" & strDD & "/" & strYYYY End Function %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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 details." 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 If Request.QueryString("mode") <> "edit" Then blnEdit = False Title = "Delete Committees" Else blnEdit = True Title = "Edit Committees" End If End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Dim rsComm Set rsComm = Server.CreateObject("ADODB.Recordset") Dim rsCommittee Set rsCommittee = Server.CreateObject("ADODB.Recordset") GetCommittees rsComm If rsComm.EOF Then Response.Clear Response.Redirect "error.asp?mess=There are no committees to edit.
Please click the BACK button." Response.End End If %>

<% If blnEdit Then %> <% Else %> <% End If %> <% If blnEdit Then %> <% Else %> <% End If %> <% dbNVS.Close If Not bInit Then GetCom rsCommittee, ComId End If %> <% If blnEdit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% Else %> <% End If%> <% End If %>  Add |  Edit | Delete | View Committee Report | Mass Date Change  Add |  Edit | Delete | View Committee Report | Mass Date Change  * required       <%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, 50)%> <%Else%> "><%=Left(rsComm.Fields("COMNAME").Value, 50)%> <%End If%> <% rsComm.MoveNext Wend%>      *Name:  value="<%=Trim(rsCommittee.Fields("COMNAME").Value) %>" <% End If %>>    *Size:  value="<%=Trim(rsCommittee.Fields("COM_SIZE").Value) %>" <% End If %>>    *Term Length:  value="<%=Trim(rsCommittee.Fields("TERM_LENGTH").Value) %>" <% End If %>>    URL:  value="<%=Trim(rsCommittee.Fields("URL").Value) %>" <% End If %>>      *Nomination Start:  value="<%=FormatMediumDate(Trim(rsCommittee.Fields("STARTNOM").Value)) %>" <% End If %>>    *Nomination End:  value="<%=FormatMediumDate(Trim(rsCommittee.Fields("ENDNOM").Value)) %>" <% End If %>>    *Voting Start:  value="<%=FormatMediumDate(Trim(rsCommittee.Fields("STARTVOTE").Value)) %>" <% End If %>>    *Voting End:  value="<%=FormatMediumDate(Trim(rsCommittee.Fields("ENDVOTE").Value)) %>" <% End If %>>    *Voting Type: <% If bInit Then %> Voting Type <% Else %> <%If CBool(CInt(rsCommittee.Fields("ELECTION_TYPE").Value)) <> False then %> Regular Runoff <% Else %> Regular Runoff <% End If %> <% End If %>    *Committee Description  <%If Not IsNull(rsCommittee.Fields("COMDESC").Value) Then%><%=Trim(rsCommittee.Fields("COMDESC").Value) %><% End If %>    *Membership Description  <%If Not IsNull(rsCommittee.Fields("MEMDESC").Value) Then%><%=Trim(rsCommittee.Fields("MEMDESC").Value) %><% End If %>     <% If Not bInit Then %> <% If blnEdit Then %>   View the most recent election results for this committee Clear any pending elections for this committee Undo a closed election for this committee Clear voting results for this committee Clear nomination results for this committee Add a faculty member to the slate Remove a faculty member from the slate

<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'THIS DISPLAYS A MESSAGE BOX...WILL USE TO CONFIRM A SUCCESSFULL COMMITTEE UPDATE or DELETE... If Request.QueryString("confirm") = "yes" Then Response.write "" ElseIf Request.QueryString("confirmdelete") = "yes" Then Response.write "" ElseIf Request.QueryString("confirmmaint") = "yes" Then Response.Write "" End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Set dbNVS = Nothing Set rsCommittee = Nothing Set rsCom = Nothing Response.End %>