<%@ Language=VBScript %> <% Response.Buffer = True %> <% '************************************** ' Faculty Modification Page ' April 2001 '************************************** %> <% Dim rsDivs Set rsDivs = Server.CreateObject("ADODB.Recordset") GetDivisions rsDivs If rsDivs.EOF Then Dim message message = "There are currently no divisions for faculty.
Please enter in some divisions before adding faculty.
Please click the BACK button." Response.Clear Response.Redirect "error.asp?mess=" + Server.URLEncode(message) Response.End End If %> NVS Admin - Add Faculty <% Title = "Add Faculty" %>
   
 Add |  Edit | Delete| Reporting voters and paswords
 * required  
 *SNC ID #:  
 *Network Login:  
 
 *First Name:  
 *Last Name:  
 *Email:  
 *Division:  
 *Gender:  MaleFemale
 *Tenure:  Yes No
 *Active Voter:  Yes No
 *Admin Access:  Yes No
 
 
   
<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If Request.QueryString("confirm") = "yes" Then Response.write "" End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Set dbNVS = Nothing Set rsDiv = Nothing Response.End %>