<% @Language=VBScript %>

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

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

'check if userid is empty. if empty redirect to login screen
if sUserID = "" then Response.Redirect "login.asp?menu=school"

%>

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

<%
	'Declare variables
	Dim iResID
	Dim rsRes
	Dim objConn
	Dim sSQL
	
		
	'get resume id
	iResID = request("id")
		
	'Connection object
	Set objConn = Server.Createobject("ADODB.Connection")

	'Recordset objects
	Set rsRes = Server.CreateObject("ADODB.Recordset")

	'open connection
	objConn.Open sConnect
	
	'build query string
	sSQL = "SELECT TEACHER.*, DEGREE.nameofdegree, EXPERTISE.areaofexpertise, STATE.code, REGION.name AS rg_name, METROAREA.name AS ma_name "
	sSQL = sSQL & "FROM ((((TEACHER INNER JOIN EXPERTISE ON TEACHER.expertise = EXPERTISE.id) INNER JOIN STATE ON TEACHER.state = STATE.id) INNER JOIN DEGREE ON TEACHER.education = DEGREE.id) LEFT JOIN REGION ON TEACHER.region = REGION.id) LEFT JOIN METROAREA ON TEACHER.metroarea = METROAREA.id;"
		
	'open recordset
	rsRes.Open sSQL, objConn, adOpenStatic
	
	'filter recordset
	rsRes.Filter = "id = " & iResID

	if rsRes.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>"
		if rsRes("metroarea") <> 0 and rsRes("region") <> 0 then
			response.write "<tr><td><h3>" & rsRes("rg_name") & "-" & rsRes("ma_name") & "</h3></td></tr>"
		else 
			if rsRes("metroarea") <> 0 then
				response.write "<tr><td><h3>" & rsRes("ma_name") & "</h3></td></tr>"
			else
				response.write "<tr><td><h3>" & rsRes("rg_name") & "</h3></td></tr>"
			end if
		end if
		response.write "<tr><td><b>" & rsRes("name") & "</b><br>"
		response.write rsRes("address1") & "<br>"
		if rsRes("address2") <> "" then response.write rsRes("address2") & "<br>"
		response.write rsRes("city") & ", " & rsRes("code") & " " & rsRes("zipcode") & "<br>"
		response.write "</td></tr><tr><td><br>"
		response.write "Degree: " & rsRes("nameofdegree") & "<br>"
		response.write "Expertise: " & rsRes("areaofexpertise") & "<br>"
		response.write "Job Title: " & rsRes("jobtitle") & "<br>"
		response.write "Yrs of Experience: " & rsRes("experience") & "<br>"
		if rsRes("specialskills") <> "" then response.write "Special Skills: " & rsRes("specialskills") & "<br>"
		response.write "Salary: " & formatcurrency(rsRes("salary")) & "<p></td></tr>"
		
		response.write "<tr><td><h3>Contact Information:</h3>"
		response.write "Email Address: <a href=mailto:" & rsRes("email") & ">" & rsRes("email") & "</a><br>"
		response.write "Phone Number: " & rsRes("areacode") & "-" & rsRes("phone") & "<br>"
		response.write "</td></tr>"
				
		response.write "</table></div>"
		Response.Write "<p align=""center""><a href=""research.asp?userid=" & sUserID & """>Search Again</a>&nbsp;<a href=""schmenu.asp?userid=" & sUserID & """>Home</a>"
	end if	
	
rsRes.Close
objConn.Close

%>


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