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>
<%
If bAdmin = "True" Then
If Session("FacID") = "" Then
Response.Redirect "http://intranet.oznet.ksu.edu/agronomy/welcome.asp?error=NotFound"
End If
End If
Dim rsCourse
'Open a recordset containing the current course information using the
querystring ID
Set rsCourse = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblCourses WHERE fldCourseID = " &
Request("ID") & ";"
rsCourse.Open strSQL, fp_conn, adOpenDynamic, adLockOptimistic, adCmdText
%>
<body background="../newhierarchy/images/backgroundtile.gif">
<p> </p>
<% If Not rsCourse.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">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="editCourse.asp?ID=<%=
Request("ID") %>">
<p><input alt="Edit
Course Information" type="submit"
value="Edit Course Information"
name="Edit"></p>
</form>
</td>
</tr>
<tr>
<td width="29%">Number:<br>
</td>
<td width="71%"><%=
rsCourse("fldNumber")%></td>
</tr>
<tr>
<td width="29%">Name:<br>
</td>
<td width="71%"><%=
rsCourse("fldName")%></td>
</tr>
<tr>
<td width="29%">Course
Description (URL):<br>
</td>
<td width="71%"><%=
rsCourse("fldDescURL")%></td>
</tr>
<tr>
<td width="29%">Course
Web Page (URL):<br>
</td>
<td width="71%"><%=
rsCourse("fldWebPageURL")%></td>
</tr>
</table>
</center>
</div>
<% Else %>
<div align="center">
<center>
<table>
<tr>
<td>Error:
Your Course Information was not Updated Successfully
<p><a href="editPage.asp">Return
to Main Form</a></td>
</tr>
</table>
</center>
</div>
<% End If %>
<% rsCourse.Close %>
</body>
</html>