<%@ Language=VBScript %>
<% Response.Buffer = True
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nominations Screen
' March 2001
' This screen allows the user to select a committee to
' nominate and denominate faculty members to.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim messages
%>
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Variable Declaration and Intitilization
Dim ComId, bInit, bExecuted
adLockOptimistic = 3
InitializePage()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
Faculty Voting and Nomination System - Nomination Screen
<% Title = "Nominations" %>
<%
Set rsCOMM = Server.CreateObject("ADODB.Recordset")
bExecuted = GetCommsForNom(rsCOMM)
%>
<%If rsCOMM.EOF then%>
Currently there are no committees in an open nomination period.
<%Else%>
<%
End If
%>
<%
dbNVS.Close
If bInit <> True then
Set rsFac = Server.CreateObject("ADODB.Recordset")
Set rsComInfo = Server.CreateObject("ADODB.Recordset")
Set rsFacNom = Server.CreateObject("ADODB.Recordset")
'get committee info to display...
GetCommittee rsComInfo
%>
<%
dbNVS.Close
'get available faculty to nominate...
GetFacultyForNom rsFac
%>
<%
dbNVS.Close
'get faculty nominated by the current user...
NominatedFaculty rsFacNom
%>
<%End If%>
<%
Set dbNVS = Nothing
Set rsCOMM = Nothing
Set rsFac = Nothing
Set rsFacNom = Nothing
Response.End
%>