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
'Open a recordset containing the
newly added user
Set rsUser =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM
tblUser WHERE fldUserID = " & Request("ID") &
";"
rsUser.Open strSQL, fp_conn,
adOpenDynamic, adLockOptimistic, adCmdText
Set rsFac =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM
tblFaculty WHERE fldUserID = " & Request("ID") &
";"
rsFac.Open strSQL, fp_conn,
adOpenDynamic, adLockOptimistic, adCmdText
%>
<body background="../newhierarchy/images/backgroundtile.gif">
<p> </p>
<% If Not rsUser.EOF Then
%>
<div align="center">
<center>
<table
border="0"
width="80%">
<tr>
<td width="100%"
colspan="2">
<h1 align="center">Faculty
Web Application</h1>
</td>
</tr>
<tr>
<td width="100%"
colspan="2">
<h2 align="center">The
Faculty User Has Been Successfully Added.</h2>
</td>
</tr>
<tr>
<td width="100%"
colspan="2"><a
href="facultyMenu.asp">Return
to Faculty
Menu</a>
| <a href="preview.asp">Preview
Web Page</a>
<p> </p>
</td>
</tr>
<tr>
<td width="100%"
colspan="2"></td>
</tr>
<tr>
<td width="18%">Logon
Name:</td>
<td width="82%"><%=
rsUser("fldLogonName")%></td>
</tr>
<tr>
<td width="18%">Faculty
Name:</td>
<td width="82%"><%=
rsFac("fldName")%></td>
</tr>
</table>
</center>
</div>
<% Else %>
<div align="center">
<center>
<table>
<tr>
<td>Error:
Your User Was Not Successfully Added
<p><a href="editPage.asp">Return
to Main Form</a></td>
</tr>
</table>
</center>
</div>
<% End If %>
<% rsUser.Close
rsFac.Close %>
</body>
</html>