<%@ Language=VBScript %>
<% option explicit %>
<% 
	Dim sTitle 
	sTitle = "Delete Resume"
%>
<%
	
	Dim strPassword, strUserID, strSQL
	strUserID = ""
	strPassword = ""
	if Request.Form("txtUserID") <> "" and Request.Form("txtUserPassword") <> "" then
		strUserID = Request.Form("txtUserID")
		strPassword = Request.Form("txtUserPassword")
	else
		if Request.Form("txtUserPassword") = "" and request("login") = "0" then response.redirect "default.asp"
		if Request.Form("txtUserID") = "" and request("login") <> "1" then response.redirect "delres.asp?login=1"
	end if

%>

<!--#include file=DataStore.asp-->
<!--#include file=header.asp-->
<!--#include file=top.asp-->
<div align="center">
	<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
	<tr>
		<td width="420" valign="top">
			<img src="images/deletemyresume.jpg" border="0" WIDTH="420" HEIGHT="60">
		</td>
		<td width="180" valign="top">
			<table width="100%" cellspacing="0" cellpadding="0" border="0">
				<tr>
					<td bgcolor="#003399">
						<table bgcolor="#003399" width="100%" cellspacing="2" cellpadding="2" border="0">
							<tr bgcolor="#003399"><td bgcolor="#6699FF" align="center"><a href="default.asp">Job Search</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=teacher">My Resume</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=school">For Schools</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="faqs.asp">FAQs</a></td></tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	</table>	
</div>

<%

Dim objConn 'Connection Object
Dim objRs   'Recordset Object

'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")

'and open it
objConn.Open sConnect

'Create the recordset object
Set objRs = Server.CreateObject("ADODB.Recordset")

'and open the TEACHER table
objRs.Open "TEACHER", objConn, 3, 3

'Filter the recordset and verify if information has already been saved with this email
if strUserID <> "" then objRs.Filter = "email = '" & strUserID & "'"

'check if person logs on for the first time and display login screen
if request("login") = "1" then
	Response.Write "<h2 align=center><font face=arial>Login</font></h2>"
	'person must login
	Response.Write "<div align=center><br>"
	Response.Write "<h3><font face=arial>In order to delete your information you must login first.</font></h3>"
	Response.Write "<h3><font face=arial>Please enter your email address and password.</font></h3>"
	Response.Write "<a href=""forgot.asp"" target=""_top"">Forgot your password?</a>"
	Response.Write "<form name=""frmUserLogin"" action=""delres.asp?login=0"" method=""post"">"
	Response.Write "<table width=400 cellspacing=0 cellpadding=5 border=0>"
	Response.Write "<tr><td><b>Email Address:</b></td>"
	Response.Write "<td><input name=txtUserID id=txtUserID type=text size=30></td></tr>"
	Response.Write "<tr><td><b>Password:</b></td>"
	Response.Write "<td><input name=txtUserPassword id=txtUserPassword type=password size=30></td></tr>"
	Response.Write "<tr><td></td>"
	Response.Write "<td><input name=Submit value=""Delete Resume"" type=submit></td></tr>"
	Response.Write "</table>"
	Response.Write "</form>"
	Response.Write "</div>"
else
	'verify that the recordset is not empty before delete
	if objRs.EOF then
		Response.Write "<h2 align=center>No Such User Account.</h2>"
	else
		'check the correct password before delete
		if strPassword = objRs("password") then
			if objRs("active") = -1 then
				strSQl = "UPDATE TEACHER SET active = 0  WHERE email = '" & strUserID & "'"
				objConn.Execute strSQL
				response.write "<h2 align=center>Your resume has been deactivated.</h2>"
			else
				strSQl = "UPDATE TEACHER SET active = -1  WHERE email = '" & strUserID & "'"
				objConn.Execute strSQL
				response.write "<h2 align=center>Your resume has been activated.</h2>"
			end if
		else
			response.write "<h2 align=center>INVALID PASSWORD.</h2>"
		end if
	end if	
end if
%>

<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->