Back to
the Source Listing
<!--#include
file="includes/FacConn.inc"-->
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html lang="EN"
dir="ltr">
<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>New
Page 1</title>
<link rel="stylesheet"
type="text/css"
href="includes/formStyle.css">
</head>
<%
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
%>
<body background="../newhierarchy/images/backgroundtile.gif">
<p> </p>
<% If Not rsFac.EOF Then %>
<div align="center">
<center>
<table
border="0"
width="80%"
cellpadding="3">
<tr>
<td colspan="2">
<h1 align="center">Faculty
Web Application</h1>
</td>
</tr>
<tr>
<td colspan="2">
<h2 align="center">Your
Information has been Successfully Updated.</h2>
</td>
</tr>
<tr>
<td colspan="2"><a
href="editPage.asp">Return
to Main Form</a>
| <a
href="preview.asp">Preview
Web Page</a>
<p> </p>
</td>
</tr>
<tr>
<td colspan="2">
<form
method="POST"
action="editProfessional.asp">
<p><input
alt="Edit ProfessionalInformation"
type="submit"
value="Edit Professional Information"
name="B3"></p>
</form>
</td>
</tr>
<tr>
<td class="date"
valign="top"><strong>Research
Interest:</strong></td>
<td>
<pre><%=
rsFac("fldResearchInterest")%></pre>
</td>
</tr>
<tr>
<td class="date"
valign="top"><strong>Education:</strong></td>
<td><%=
rsFac("fldBS")%><br>
<%=
rsFac("fldMS")%><br>
<%= rsFac("fldPhD")%>
</td>
</tr>
<tr>
<td class="date"
valign="top"><strong>Honors:</strong></td>
<td>
<pre><%=
rsFac("fldHonors")%></pre>
</td>
</tr>
</table>
</center>
</div>
<% Else %>
<div align="center">
<center>
<table>
<tr>
<td>Error:
Your Professional Information was not Updated Successfully
<p><a href="editPage.asp">Return
to Main Form</a></td>
</tr>
</table>
</center>
</div>
<% End If %>
<% rsFac.Close %>
</body>
</html>