<!--#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>General Information Confirmation Page</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="50%"> <tr> <td width="100%" colspan="2"> <h1 align="center">Faculty Web Application</h1> </td> </tr> <tr> <td width="100%" colspan="2"> <h2 align="center">Your Information has been Successfully Updated.</h2> </td> </tr> <tr> <td width="100%" 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 width="100%" colspan="2"> <form method="POST" action="editGeneral.asp"> <p><input alt="Edit General Information" type="submit" value="Edit General Information" name="B3"></p> </form> </td> </tr> <tr> <td width="13%">Name:</td> <td width="87%"><%= rsFac("fldName")%></td> </tr> <tr> <td width="13%">Position:</td> <td width="87%"><%= rsFac("fldPosition")%></td> </tr> <tr> <td width="13%">Office:</td> <td width="87%"><%= rsFac("fldOffice")%></td> </tr> <tr> <td width="13%">Phone:</td> <td width="87%"><%= rsFac("fldPhone")%></td> </tr> <tr> <td width="13%">Fax:</td> <td width="87%"><%= rsFac("fldFax")%></td> </tr> <tr> <td width="13%">E-mail:</td> <td width="87%"><%= rsFac("fldEmail")%></td> </tr> </table> </center></div>
<% Else %>
<div align="center">
<center> <table> <tr> <td>Error: Your General 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>