<%@ 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() '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function GetProfile(rsProfile)%> <% On Error Resume Next GetProfile = False Dim StrSQL StrSQL = "SELECT * FROM [COMM1]" StrSQL = StrSQL + " WHERE [COMID]= " + Cstr(ComId) dbNVS.Open rsProfile.ActiveConnection = dbNVS rsProfile.Open Cstr(StrSQL), dbNVS, adOpenKeyset ', adLockOptimistic If Not rsProfile.EOF Then rsProfile.Movefirst End If GetProfile = True If Err.Number <> 0 Then GetProfile = False End If End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> Faculty Voting and Nomination System - Nomination Screen <% '*********************************************** 'BENNETT GIESLER 3-20-2006 'Gets the profile name and puts it in the header Set rsprofilename = Server.CreateObject("ADODB.Recordset") GetProfile rsprofilename %> <% Title = "Committee Nominations
" & rsprofilename.Fields("COMNAME").Value & "" %> <% ' CODE END '*********************************************** %> <% Set rsCOMM = Server.CreateObject("ADODB.Recordset") bExecuted = GetCommsForNom(rsCOMM) %> <%If rsCOMM.EOF then%>




Currently there are no committees in an open nomination period.

<%Else%> <% '*********************************************** 'BENNETT GIESLER 3-20-2006 'Got rid of the commitee dropdown box. ' '************************************************ %> <% 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 %> <% '*********************************************** 'BENNETT GIESLER 3-19-2006 'Added go back image "Return to Main Menu" ' '************************************************ %>

<% '*********************************************** 'BENNETT GIESLER 3-20-2006 ' UNIVERSAL HEADER '************************************************ %>

<% dbNVS.Close 'get available faculty to nominate... GetFacultyForNom rsFac %> <% dbNVS.Close 'get faculty nominated by the current user... NominatedFaculty rsFacNom %>
 
 
<% 'begin server-side code set accnoms = Server.CreateObject("ADODB.Recordset") set nodecnoms = Server.CreateObject("ADODB.Recordset") 'Call our function, lets see if this bombs RetNominees accnoms, nodecnoms, ComID %>

Current<% dim havenoms havenoms = 0 If Not accnoms.EOF Then havenoms = 1 '*********************************************** ' BENNETT GIESLER 4-4-2006 ' Removed the old scroll boxes below and replaced them with readable information ' that is labeled "Current Nominees" and "Nominees who have declined nomination." ' Both boxes are of equal large size and situated in a nice looking table. '************************************************ %> Nominees

<%End If%> <% If Not nodecnoms.EOF Then havenoms = 1 %> Nominees Who have Declined Nomination

<%End If%> <% If havenoms = 0 Then %> There are currently no nominees for this committee <% End If dbNVS.Close %>

<% End If 'all the way from the top '*********************************************** ' BENNETT GIESLER 4-4-2006 ' DONE '************************************************ %> <% Set dbNVS = Nothing Set rsCOMM = Nothing Set rsFac = Nothing Set rsFacNom = Nothing Response.End %>