<% @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 Database Online"
	
Dim objConn
Dim rsManager

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

'open the connection object
objConn.Open sConnect

%>

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

%>

<h2 align=center><font face=arial color=blue>Activate/Deactivate Yearlong ID</font></h2>
<form action="maint-year.asp?action=getmanager" 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="txtZip" id="txtZip" type="text" size="50"></td>
	</tr>
	<tr align=center>
		<td><input name="Submit" type="submit" value="Enter"></td>
	</tr>
</table>

</form>

<%
Case "getmanager"

Set rsManager = server.CreateObject("ADODB.Recordset")		'Recordset object

'open the MANAGER table
rsManager.Open "MANAGER", objConn, 3, 3

'create SQL statement
rsManager.Filter = "email = '" & Request.form("txtZip") & "'" 

  if not rsManager.EOF then
%>

<p></p>
<TABLE align=center BORDER="1" CELLSPACING="3" CELLPADDING="3">
<TR>
  <TH>Click On Manager Name</TH>
</TR>

<%
  do while not rsManager.EOF
    Response.Write "<TR align=center><TD>"
    Response.Write "<A HREF=""maint-year.asp?action=getmanager&manageremail=" & rsManager("email") & """>"
    Response.Write rsManager("name")
    Response.Write "</a></TD></TR>"

    rsManager.MoveNext
  loop
%>		
</TABLE>

<% 
Else%>
  <P><H2><center>No IDs in Database</center></H2></P>

<% 
End If %>


<%

Case "getmanager"

%>

<p></p>

<TABLE align=center BORDER="1" CELLSPACING="3" CELLPADDING="3">
<TR>
  <TH>Email<BR><FONT SIZE="-1">Click to Select</FONT></TH>
  <TH>Status</TH>
  <TH>Job Title</TH><TH>Salary</TH>
  <TH>Date Submitted</TH>
</TR>

<%
  
  do while not rsManager.EOF
  
    Response.Write "<TR align=center><TD>"
    Response.Write "<A HREF=""maint-chkmanager.asp?action=edit&email=" & rsManager("email") & """>"
    Response.Write rsManager("email")
    Response.Write "</a></TD><TD>"
    if rsManager("yearlong") then
		Response.Write "<font color=green>" & "<b>" & "active" & "</b>" & "</font>"
	else
		Response.Write "<font color=red>" & "<b>" & "inactive" & "</b>" &  "</font>"
	end if
    Response.Write "</TD></TR>"

    rsManager.MoveNext
  loop
  rsManager.close
%>		
</TABLE>

<% 

End Select
%>