Back to
the Source Listing
<!--#include
file="includes/FacConn.inc"-->
<%
'Developer: Angela Johnston
'Date: January 21, 2001
'
'facultyMenu.asp - This page
allows users with admin privileges to select the page that they want
' to edit. It then opens
editPage.asp for the person selected.
'
'***************************************************************************************************************
'Included pages
' FacConn.inc - Checks whether
the user has application priviledges
' formStyle.css - The style sheet
for the Faculty Application
' adovbs.inc - A page usually
included with ASP to make openning tables and running queries easier.
' It assigns names to numbers, so
that you don't have to remember what each number means.
' footer.asp - Contains the menu
that should be located at the bottom of the page
'
'QueryStrings (name - value)
' None
'
'Recordsets (name - value)
' rsUser - (FacConn.inc) contains
the current user logged on to the intranet (tblUser)
' rsFac - contains the current
faculty member's information (tblFaculty)
'
'Variables
' strSQL - (FacConn.inc) use to
store the sql string for a query
' bAdmin - (FacConn.inc) boolean
value, "True" if user is an Administrator, "False" if the
user is not
' lngUserID - (FacConn.inc) the
ID number for the current user
' strUserLogon - (FacConn.inc)
the Logon Name for the current user
'
'Forms
'frmFacultyMenu - contains the
following form fields
'
'Form Fields
'cboFaculty - a combo box
containing all of the faculty members
'MyPage - edit the faculty page
for the current admin logged on
'AddNew - add a new faculty
member to the application
'***************************************************************************************************************
%>
<%
'If user does not have admin
privileges, redirect to agronomy intranet
If Not bAdmin = "True"
Then
Response.Redirect "http://intranet.oznet.ksu.edu/agronomy/"
End If
%>
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<html lang="EN">
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1252">
<meta name="GENERATOR"
content="Microsoft FrontPage 4.0">
<meta name="ProgId"
content="FrontPage.Editor.Document">
<title>Faculty
Form</title>
<link rel="stylesheet"
type="text/css"
href="includes/formStyle.css">
</head>
<body background="../newhierarchy/images/backgroundtile.gif">
<div class="center">
<table
width="625"
cellspacing="0"
cellpadding="10">
<tr>
<td>
<h1 class="center">Faculty
Web Application - Faculty Menu</h1>
<h2 class="center">Select
the Faculty Member to edit his/her web page.<br>
</h2>
<form
method="POST"
action="checkCBO.asp"
name="frmFacultyMenu">
<select
size="1"
name="cboFaculty">
<option><--
Select Faculty to Edit --></option>
<%
Dim rsFac
'Open a recordset containing the
email address and name of all the faculty
Set rsFac =
Server.CreateObject("ADODB.Recordset")
strSQL = "Select fldName,
fldFacID FROM tblFaculty ORDER BY fldName"
rsFac.Open strSQL, fp_conn,
adOpenForwardOnly, adLockOptimistic, adCmdText
'Loop throught the recordset to
create the combo box options
'***********************************************************
While Not rsFac.EOF
%>
<option
value="<%=
rsFac("fldFacID") %>"><%=
rsFac("fldName") %></option>
<% rsFac.MoveNext
Wend
rsFac.Close
%>
</select><input
alt="Edit Page"
type="submit"
value="Edit Page"
name="EditPage"><br>
</form>
<form
method="POST"
action="checkCBO.asp">
<br>
<br>
<br>
<input alt="Edit
My Own Web Page" type="submit"
value="Edit My Own Web Page"
name="MyPage">
</form>
<form
method="POST"
action="editUser.asp">
<br>
<br>
<input alt="Add
a New Faculty Member" type="submit"
value="Add a New Faculty Member"
name="AddNew"><br>
</form>
<hr>
<table
width="600">
<tr>
<td><a
href="../Z_FacApp/editUser.asp">Add
New Faculty</a></td>
<td><a
href="http://intranet.oznet.ksu.edu/ap_AccountForms/Change_Password/">Change
Oznet Password</a></td>
<td><a
href="http://intranet.oznet.ksu.edu/agronomy/">Intranet
Home
Page</a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>