<%@ 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 nominating slate."
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
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<%
Function CountUndecNoms()
Dim strSQl
strSQL = "SELECT DISTINCT NOMINATED.[USER_ID], [L_NAME], [F_NAME], Count(NOMINATED.[USER_ID]) "
strSQL = strSQL + "AS NOM_CNT FROM [NOMINATED], FACULTY WHERE NOMINATED.[USER_ID] = FACULTY.[USER_ID] AND COMID = "
strSQL = strSQL + CStr(ComId) + " AND NOT NOMINATED.[USER_ID] IN("
strSQL = strSQL + "SELECT [USER_ID] FROM NOMINATED WHERE COMID = "
strSQL = strSQL + CStr(ComId) + " AND STATUS = 'A'OR STATUS = 'D')"
strSQL = strSQL + " GROUP BY NOMINATED.[USER_ID], [L_NAME], [F_NAME]"
'dbNVS.Open
rsUndecNoms.ActiveConnection = dbNVS
rsUndecNoms.Open strSQL, dbNVS
CountUndecNoms = True
End Function
%>
<%
Function CountDecNoms()
Dim strSQL
strSQL = "SELECT DISTINCT NOMINATED.[USER_ID], [L_NAME], [F_NAME], Count(NOMINATED.[USER_ID]) "
strSQL = strSQL + "AS NOM_CNT FROM [NOMINATED], FACULTY WHERE NOMINATED.[USER_ID] = FACULTY.[USER_ID] AND COMID = "
strSQL = strSQL + CStr(ComId) + " AND STATUS = 'D' GROUP BY [L_NAME],"
strSQL = strSQL + " NOMINATED.[USER_ID], [F_NAME]"
rsDecNoms.ActiveConnection = dbNVS
rsDecNoms.Open strSQL, dbNVS
CountDecNoms = True
End Function
%>
<%
Function LoadNonNoms()
'In here, find all the faculty who do not appear in the nominated table for this committee
'at all. Should be a quick little function.
Dim strSQL
strSQL = "SELECT DISTINCT [FACULTY].[USER_ID], [L_NAME], [F_NAME], DIVISION FROM FACULTY, DIVISION WHERE"
strSQL = strSQL + " FACULTY.DIV_ID = DIVISION.DIV_ID "
strSQL = strSQL + " AND NOT FACULTY.[USER_ID] IN( "
strSQL = strSQL + "SELECT [USER_ID] FROM NOMINATED WHERE COMID = "
strSQL = strSQL + CStr(ComId) + ") ORDER BY [L_NAME], [F_NAME], [DIVISION], [FACULTY].[USER_ID]"
rsNotNoms.ActiveConnection = dbNVS
rsNotNoms.Open strSQL, dbNVS
LoadNonNoms = True
End Function
%>
<%
Dim rsNotNoms
Set rsNotNoms = Server.CreateObject("ADODB.Recordset")
Dim rsDecNoms
Set rsDecNoms = Server.CreateObject ("ADODB.Recordset")
Dim rsUndecNoms
Set rsUndecNoms = Server.CreateObject("ADODB.Recordset")
Dim rsNominees
Set rsNominees = Server.CreateObject("ADODB.Recordset")
Dim rsNON_Nominees
Set rsNON_Nominees = Server.CreateObject("ADODB.Recordset")
Dim rsComm
Set rsComm = Server.CreateObject("ADODB.Recordset")
GetCommsForNom rsComm
%>
NVS Admin - Nomination Management
<% Title = "Nomination Management" %>
<%If Not rsComm.EOF Then %>
<% dbNVS.Close
If Not bInit then
LoadNonNominees rsNON_Nominees, ComId
%>
<% End If %>
<% Else %>
There are currently no committees in a nominating session.
<% End If %>
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'THIS DISPLAYS A MESSAGE BOX...WILL USE TO CONFIRM A SUCCESSFULL APPROVAL...
If Request.QueryString("confirm") = "yes" Then
Response.write ""
End If
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<%
Set dbNVS = Nothing
Set rsComm = Nothing
Set rsNominees = Nothing
Set rsNON_Nominees = Nothing
Response.End
%>