<% @Language=VBScript %>

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

<% if request("id") = "" then response.redirect "default.asp" %>

<!--#include file=header.asp-->
<!--#include file=top.asp-->

<%
	'Declare variables
	Dim iJobID
	Dim rsJobs
	Dim objConn
	Dim sSQL
	Dim rsRegion
	Dim rsSchool
	Dim rsHousing
		
	'get job id
	iJobID = request("id")
		
	'Connection object
	Set objConn = Server.Createobject("ADODB.Connection")

	'Recordset objects
	Set rsJobs = Server.CreateObject("ADODB.Recordset")
	Set rsSchool = Server.CreateObject("ADODB.Recordset")
	Set rsRegion = Server.CreateObject("ADODB.Recordset")
	Set rsHousing = Server.CreateObject("ADODB.Recordset")
	
	'open connection
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if
	
	'open the REGIONAREACODE table for the housing switch
rsRegion.Open "REGIONAREACODE", objConn, adOpenStatic

'open the SCHOOL table
rsSchool.Open "SCHOOL", objConn, 0, 3
rsHousing.Open "HOUSING", objConn, adOpenStatic


%>

<div align="center">
	<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
	<tr>
		<td width="420" valign="top">
			<img src="images/jobdetails.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>


<%	
	'build query string
	'sSQL = "SELECT JOB.*, SCHOOL.name, SCHOOL.address1, SCHOOL.address2, SCHOOL.city, SCHOOL.state, SCHOOL.zip, SCHOOL.website, SCHOOL.contact_name, SCHOOL.contact_email, SCHOOL.contact_areacode, SCHOOL.contact_phone FROM SCHOOL INNER JOIN JOB ON SCHOOL.schoolid = JOB.school_id;"
	if request("area") = "metroarea" then
		sSQL = "SELECT JOB.*, SCHOOL.name, SCHOOL.address1, SCHOOL.address2, SCHOOL.city, SCHOOL.state, SCHOOL.zip, SCHOOL.website, DEGREE.nameofdegree, EXPERTISE.areaofexpertise, STATE.code, METROAREA.name AS ma_name "
		sSQL = sSQL	& "FROM ((STATE INNER JOIN (EXPERTISE INNER JOIN (DEGREE INNER JOIN (SCHOOL INNER JOIN JOB ON SCHOOL.schoolid = JOB.school_id) ON DEGREE.id = JOB.degree_req) ON EXPERTISE.id = JOB.expertise) ON STATE.id = SCHOOL.state) INNER JOIN METROAREACODE ON JOB.contact_areacode = METROAREACODE.areacode) INNER JOIN METROAREA ON METROAREACODE.area_id = METROAREA.id;"
	else
		sSQL = "SELECT JOB.*, SCHOOL.name, SCHOOL.address1, SCHOOL.address2, SCHOOL.city, SCHOOL.state, SCHOOL.zip, SCHOOL.website, DEGREE.nameofdegree, EXPERTISE.areaofexpertise, STATE.code, REGION.name AS ma_name "
		sSQL = sSQL	& "FROM ((STATE INNER JOIN (EXPERTISE INNER JOIN (DEGREE INNER JOIN (SCHOOL INNER JOIN JOB ON SCHOOL.schoolid = JOB.school_id) ON DEGREE.id = JOB.degree_req) ON EXPERTISE.id = JOB.expertise) ON STATE.id = SCHOOL.state) INNER JOIN REGIONAREACODE ON JOB.contact_areacode = REGIONAREACODE.areacode) INNER JOIN REGION ON REGIONAREACODE.region_id = REGION.id;"
	end if
	
'open recordset
	rsJobs.Open sSQL, objConn, adOpenStatic
	
	'filter recordset
	rsJobs.Filter = "jobid = " & iJobID
	
	if not rsJobs.EOF then
		rsRegion.Filter = "areacode = " & rsJobs("contact_areacode")
	end if
		
	if not rsRegion.EOF then 
		if rsRegion("housing") then
			Response.Write "<div align=""center""><table width=""600"" cellspacing=""0"" cellpadding=""0"" border=""0"" bgcolor=""#FFFFFF""><tr><td width=""420"" valign=""top""></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"">"
			Response.Write "<tr><td bgcolor=""#6699FF"" align=""center""><a href=housing/housing" & rsJobs("contact_areacode") & ".asp><font color=red>Housing Help</font></a></td></tr>"
			Response.Write "</table></td></tr></table></td></tr></table></div><br>"
		end if
	end if
	
	if rsJobs.EOF then
		response.write "<p align=center><h3>No record found.</h3>"
		Response.Write "<p align=""center""><a href=""default.asp"">Search Again</a>&nbsp;<a href=""default.asp"">Home</a>"
	else
		
		response.write "<div align=center>"
		response.write "<table width=600 cellspacing=0 cellpadding=0 border=0>"
		response.write "<tr><td><h3>" & rsJobs("ma_name") & "-" & rsJobs("title") & "</h3></td></tr>"
		response.write "<tr><td><blockquote>" & rsJobs("job_description") & "</blockquote></td></tr>"
		response.write "<tr><td><h3>Requirements:</h3>"
		response.write "Degree: " & rsJobs("nameofdegree") & "<br>"
		response.write "Expertise: " & rsJobs("areaofexpertise") & "<br>"
		if rsJobs("special_qual") <> "" then response.write "Special Qualifications: " & rsJobs("special_qual") & "<br>"
		response.write "Start date: " & rsJobs("start_date") & "<br>"
		if rsJobs("maxsalary")= rsJobs("minsalary") then
			response.write "Salary: " & formatcurrency(rsJobs("minsalary"))
			if rsJobs("peryrhr") = 1 then Response.Write " Per Year<p></td></tr>" else Response.Write " Per Hour <p></td></tr>" end if
		else 
			response.write "Salary: " & formatcurrency(rsJobs("minsalary")) & " - " & formatcurrency(rsJobs("maxsalary"))
			if rsJobs("peryrhr") = 1 then Response.Write " Per Year<p></td></tr>" else Response.Write " Per Hour <p></td></tr>" end if
		end if

		response.write "<tr><td><br><br><h3>Contact Information:</h3>"
		response.write rsJobs("contact_name") & "<br>"
		response.write rsJobs("contact_areacode") & "-" & rsJobs("contact_phone") & "<br>"
		response.write "<a href=mailto:" & rsJobs("contact_email") & "?subject=Inquiry_via_School-Jobs.net" & ">" & rsJobs("contact_email") & "</a><br>"
		if rsJobs("website") <> "" then
			response.write "<a href=" & rsJobs("website") & ">" & rsJobs("name") & "</a><br>"
		else
			response.write rsJobs("name") & "<br>"
		end if
		response.write rsJobs("address1") & "<br>"
		if rsJobs("address2") <> "" then response.write rsJobs("address2") & "<br>"
		response.write rsJobs("city") & ", " & rsJobs("code") & " " & rsJobs("zip") & "<br>"
		response.write "</td></tr>"
		response.write "</table></div>"
		rsHousing.Filter = "areacode = " & rsJobs("contact_areacode")
		if not rsHousing.EOF then
			if rsHousing("areacode") then
				Response.Write "<p align=""center""><font face=""arial"" color=""red""><b>For housing near " & rsJobs("city") & ", click <a href=housing/housing" & rsJobs("contact_areacode") & ".asp" & "><blink>here</blink></a></b></font></p>"
			else
				Response.Write "<p align=""center""><font face=""arial"" color=""red""><b>For housing near " & rsJobs("city") & ", click <a href=housing/housing000.asp" & "><blink>here</blink></a></b></font></p>"
			end if
		else
			Response.Write "<p align=""center""><font face=""arial"" color=""red""><b>For housing near " & rsJobs("city") & ", click <a href=housing/housing000.asp" & "><blink>here</blink></a></b></font></p>"
		end if
		Response.Write "<p align=""center""><a href=""javascript:history.back()"">Back</a>"
	end if	
	

%>


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