Source - editProfessional.asp

Back to the Source Listing


<%
'Developer: Angela Johnston
'Date: February 10, 2002
'
'editProfessional.asp - This page allows the user to update their professional information. The
' information entered into the form will be sent to addProfessional.asp.
'
'***************************************************************************************************************
'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
' lngFacID - the ID number for the current faculty member
'
'Forms
' frmProfessional - contains the following Form Fields
'
'
'Form Fields
' BS - a text box for the faculty member's name
' MS - a text box for the faculty member's title or position
' PhD - a text box for the faculty member's office number
' ResearchInterest - a textarea box for the faculty member's research interests
' Honors - a textarea box for the faculty member's Honors
'
'***************************************************************************************************************
%>
<!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 summary=" " cellspacing="0" cellpadding="0" width="600">
<tr>
<td colspan="5">
<%
Dim rsFac
Dim lngFacID
If bAdmin = "True" Then
If Session("FacID") = "" Then
Response.Redirect "http://intranet.oznet.ksu.edu/agronomy/welcome.asp?error=NotFound"
Else
lngFacID = Session("FacID")
End If

'Open a recordset containing the current faculty member using the variable lngUserID
Set rsFac = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblFaculty WHERE fldFacID = " & lngFacID & ";"
rsFac.Open strSQL, fp_conn, adOpenDynamic, adLockOptimistic, adCmdText
Else

'Open a recordset containing the current faculty member using the variable lngUserID
Set rsFac = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblFaculty WHERE fldUserID = " & lngUserID & ";"
rsFac.Open strSQL, fp_conn, adOpenDynamic, adLockOptimistic, adCmdText
End If
%>
<h1>Faculty Web Application - Professional Information</h1>
</td>
</tr>
<tr>
<td class="center">[<a href="editPage.asp">Main Form</a>]</td>
<%If Not Session("strUserLogon")="tfaculty" Then %>
<td class="center">[<a href="http://intranet.oznet.ksu.edu/agronomy/uploadImage.asp">Edit
Picture</a>]</td>
<%End If%>
<td class="center">[<a href="editGeneral.asp">Edit General Info</a>]</td>
<td class="center">[<a href="editMiscCategory.asp">Edit Miscellaneous Info</a>]</td>
<td class="center">[<a href="editCourse.asp?Add=yes">Add Course</a>]</td>
</tr>
<tr>
<td colspan="5">
<hr>
<h2>Edit Professional Information for the web</h2>
<form name="frmProfessional" action="addProfessional.asp" method="post">
<input type="Hidden" alt=" " name="FacID" value="<%= rsFac("fldFacID") %>">
<table summary=" ">
<tr>
<td colspan="2" width="822"><label>Education:</label></td>
</tr>
<tr>
<td><label title="label for BS text box">BS:</label></td>
<td><input alt="BS" type="text" name="BS" value="<%= rsFac("fldBS") %>" size="74"></td>
</tr>
<tr>
<td><label title="label for MS text box">MS:</label></td>
<td><input alt="MS" type="text" name="MS" value="<%= rsFac("fldMS") %>" size="74"></td>
</tr>
<tr>
<td><label title="label for PhD text box">Ph.D.</label></td>
<td><input alt="PHD" type="text" name="PhD" value="<%= rsFac("fldPhD") %>" size="74"></td>
</tr>
<tr>
<td> </td>
<td></td>
</tr>
<tr>
<td colspan="2"><label title="label for ResearchInterest text box">Research
Interest: (Optional)</label></td>
</tr>
<tr>
<td colspan="2"><textarea name="ResearchInterest" cols="74" rows="5" wrap="virtual"><%= rsFac("fldResearchInterest") %></textarea></td>
</tr>
<tr>
<td colspan="2"><label title="label for Honors text box">Honors:
(Optional)</label></td>
</tr>
<tr>
<td colspan="2"><textarea name="Honors" cols="74" rows="5" wrap="virtual"><%= rsFac("fldHonors") %></textarea></td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td colspan="2"><br>
  <input alt="Update My Professiona Information" type="submit" value="Update My Professional Information">
  <input alt="Reset to Original Information" type="reset" value="Reset to Original Information" name="reset"></td>
</table>
</form>

<% rsFac.Close %></td>
</tr>
</table>
</div>
</body>