<% @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 rsJobs
Dim rsSchools
Dim selSchool

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

selSchool = false

'open the connection object
objConn.Open sConnect

%>

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

%>

<h2 align=center><font face=arial color=blue>Activate/Deactivate Jobs</font></h2>
<form action="maint-phone.asp?action=getschool" method="post" name="frmMaint">
<p align=center><font face=arial color=blue><b>Enter Telephone Area Code    </b></font></p>
<table align=center>
	<tr align=center>
		<td><input name="txtArea" id="txtArea" type="text" size="15"></td>
	</tr>
	<tr align=center>
		<td><input name="Submit" type="submit" value="Enter"></td>
	</tr>
</table>

</form>

<%
Case "getschool"

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

'open the SCHOOLS table
rsSchools.Open "SCHOOL", objConn, 3, 3

'create SQL statement
rsSchools.Filter = "contact_areacode = '" & Request.form("txtArea") & "'" 

  if not rsSchools.EOF then
%>

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

<%
  do while not rsSchools.EOF
    Response.Write "<TR align=center><TD>"
    Response.Write "<A HREF=""maint.asp?action=getjobs&schoolid=" & rsSchools("schoolid") & """>"
    Response.Write rsSchools("name")
    Response.Write "</a></TD></TR>"

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

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

<% 
End If %>


<%

Case "getjobs"

Dim sSQL

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

'create SQL statement
rsJobs.Filter = "school_id = " & Request.QueryString("schoolid")

'open the JOBS table
rsJobs.Open "JOB", objConn, 3, 3

if not rsJobs.EOF then

%>

<p></p>

<TABLE align=center BORDER="1" CELLSPACING="3" CELLPADDING="3">
<TR>
  <TH>Job ID<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 rsJobs.EOF
  
    Response.Write "<TR align=center><TD>"
    Response.Write "<A HREF=""maint-chkjobs.asp?action=edit&job=" & rsJobs("jobid") & "&schoolid=" & rsJobs("school_id") & """>"
    Response.Write rsJobs("jobid")
    Response.Write "</a></TD><TD>"
    if rsJobs("active") 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><TD>"
    Response.Write rsJobs("title")
    Response.Write "</TD><TD>"
    Response.Write FormatCurrency(rsJobs("minsalary")) & " - " & FormatCurrency(rsJobs("maxsalary"))
    Response.Write "</TD><TD>"
    Response.Write FormatDateTime(rsJobs("date_submitted"),2)
    Response.Write "</TD></TR>"

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

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

<% 
End If

End Select
%>