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>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>&nbsp;</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>&nbsp;

|&nbsp; <a href="preview.asp">Preview Web Page</a>

<p>&nbsp;</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>