<%@ language=VBscript%>
<%
'*********************************************
'* Filename: logout.asp
'* Montessori Homewood Project
'* Copyright 2002 Carnegie Mellon University
'* Bryan Valentini
'*
'*********************************************
%>
<% Response.Buffer = TRUE
If (Session("Auth")<>"VERIFIED") Then
Response.Clear
Response.Redirect("error.asp")
End If
%>
Logout
<%
If (Session("EList") <> "" and Application("MailSystem")=1) Then
Set ml = CreateObject("CDONTS.NewMail")
ml.From = "bev@andrew.cmu.edu"
ml.To = Session("TeacherMail")
ml.Subject= "Student Report"
ml. Body="Student " + Session("FirstName") + " " + Session("LastName") + _
"has completed the following exercises: " + Session("EList") + " "
ml.Send
Set ml = Nothing
End If
%>
Congratulations!
You finished these exercise(s):
<% Response.Write Session("EList") %>
You are now logged out.
Please close your browser.
<%
Session.Abandon
%>