<% @language = vbscript %>

<!--#include file="_ScriptLibrary/adovbs.inc"-->
<!--#include file="datastore.asp"-->

<BASEFONT FACE="Arial" COLOR="DarkBlue">

<script language=JavaScript>
<!--
function Verify()
{
}
//-->
</script>

<% 
	Dim sTitle 
	sTitle = "Maintain Yearlong Database Online"
	
Dim objConn
Dim rsJobs
Dim selSchool

Set objConn = server.CreateObject("ADODB.Connection")	'Connection object

selSchool = false

'open the connection object
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if

Dim rsManager
Set rsManager = Server.CreateObject("ADODB.Recordset")
	
'and open the MANAGER table
rsManager.Open "MANAGER", objConn, 0, 3

%>

<%
Select Case Request.QueryString("action")
Case ""

%>

<h2 align=center><font face=arial color=blue>Activate/Deactivate Yearlong Switch</font></h2>
<form action="year.asp?action=getemail" method="post" name="frmMaint">
<p align=center><font face=arial color=blue><b>Enter Email Address    </b></font></p>
<table align=center>
	<tr align=center>
		<td><input name="txtEmail" id="txtEmail" type="text" size="15"></td>
	</tr>
	<tr align=center>
		<td><input name="Submit" type="submit" value="Enter"></td>
	</tr>
</table>

</form>

<%
Case "getemail"

'Filter the recordset and verify if information has already been saved with this user id
rsManager.Filter = "email = '" & Request.form("txtEmail") & "'"

rsManager("yearlong")= -1

'end store
rsManager.Update

Case Else

MsgBox "Wrong Email Address"
End Select

rsManager.Close
objConn.Close


%>