<% @language = vbscript %>
<% if request("userid") = "" then Response.Redirect "login.asp?menu=school" %>

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

<BASEFONT FACE="Times New Roman" COLOR="DarkBlue">
<% 
	Dim sTitle 
	sTitle = "List Jobs in Database for User"
%>
<!--#include file=header.asp-->
<!--#include file=top.asp-->


<CENTER><H1>SCHOOL JOBS SYSTEM<BR>Jobs in Database</H1>
<H3>Welcome</H3>


<%
Dim sUserID
sUserID = trim(Request("userid"))

Dim objConn
Dim rsJobs
Dim sSQL

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

'open the connection object
objConn.Open sConnect

'create SQL statement
sSQL = "SELECT JOB.*, SCHOOL.name FROM (MANAGER INNER JOIN SCHOOL ON MANAGER.managerid = SCHOOL.manager_id) INNER JOIN JOB ON SCHOOL.schoolid = JOB.school_id WHERE MANAGER.managerid='" & sUserID & "';"

'open the JOB table
rsJobs.Open sSQL, objConn, adOpenStatic

  if not rsJobs.EOF then
%>
<P>You currently have the following jobs listed:</P>
<TABLE BORDER="1" CELLSPACING="3" CELLPADDING="3">
<TR>
  <TH>Job ID<BR><FONT SIZE="-1">Click to Edit</FONT></TH>
  <TH>Job Title</TH><TH>Salary</TH>
  <TH>Date Submitted</TH><TH>School Name</TH>
</TR>

<%
  do while not rsJobs.EOF
    Response.Write "<TR align=center><TD>"
    Response.Write "<A HREF=""postjob.asp?action=edit&job=" & rsJobs("jobid") & "&schoolid=" & rsJobs("school_id") & "&userid=" & sUserID & """>"
    Response.Write rsJobs("jobid")
    Response.Write "</a></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><TD>"
    Response.Write rsJobs("name")
    Response.Write "</TD></TR>"

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

<% 
Else%>
  <P><H2>No Jobs in Database</H2></P>
<% 
End If %>
<HR>
<TABLE BORDER=0 width=100%>
  <TR align=center>
    <TD width=33%><A HREF="schmenu.asp?userid=<%=request("userid")%>">Main Menu</A></TD>
    <TD width=33%><A HREF="user.asp?userid=<%=request("userid")%>&update=1">Edit Registration Info</A></TD>
  </TR>
</TABLE>
</center>
<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->