<!-- #include file="i_utils.asp" -->
<%
	dim keywords
	dim search_sql
	dim employee_id
	dim user_id
	dim manager_id
	dim l_name
	dim user_name
	dim f_name
	dim email
	dim image
	dim Title
	dim Dept
	dim dtStarted
	dim WorkPhone
	dim MobilePhone
	dim PhoneExt
	dim homepage_url
	dim detail_employees_sql
	dim employee
	dim manager
	dim dtHired
	dim compose
	dim view_employees_sql
	dim MyFunction
	dim Mylanguage1
	dim Mylanguage2
	dim Mylanguage3
	dim Mylanguage4
	dim Mylanguage5
	dim Mylanguage6
	dim Mylocation
	dim comments
	dim other1
	dim other2
	dim other3
	dim my_id
	dim MyLanguages
	dim onepage
	dim SrchLanguage
	dim SrchLocation
	dim SrchFunction
	dim SrchAgency
	dim intPageSize
	dim	request_string
	query_string = request.ServerVariables("QUERY_STRING")
	onepage = request("onepage")
	if onepage <> "" then 
	intPageSize = 5000
	else
	intPageSize = 20
	end if
	
sub request_search
''' request form inputs from this form
	keywords = request("keywords")
	SrchFunction = request("Myfunction")
	SrchLocation = request("Mylocation")
	SrchLanguage = request("Mylanguage")
	SrchAgency = request("Myagency")
end sub
sub request_detail_employees
''' request form inputs from this form
	employee_id = request("employee_id")
	user_id = request("user_id")
	manager_id = request("manager_id")
	l_name = request("l_name")
	user_name = request("user_name")
	f_name = request("f_name")
	email = request("email")
	image = request("image")
	Title = request("Title")
	Dept = request("Dept")
	dtStarted = request("dtStarted")
	WorkPhone = request("WorkPhone")
	MobilePhone = request("MobilePhone")
	PhoneExt = request("PhoneExt")
	homepage_url = request("homepage_url")
	SrchFunction = request("Myfunction")
	SrchLocation = request("Mylocation")
	SrchLanguage = request("Mylanguage")
	SrchAgency = request("Myagency")
	onepage = request("onepage")
end sub
sub request_view_employees
''' request form inputs from this form
	user_id = request("user_id")
	employee_id = request("employee_id")
	manager_id = request("manager_id")
	user_name = request("user_name")
	employee = request("employee")
	Title = request("Title")
	manager = request("manager")
	Dept = request("Dept")
	dtHired = request("dtHired")
	MobilePhone = request("MobilePhone")
	PhoneExt = request("PhoneExt")
	compose = request("compose")
	MyFunction = request("function")
		SrchFunction = request("Myfunction")
	SrchLocation = request("Mylocation")
	SrchLanguage = request("Mylanguage")
	SrchAgency = request("Myagency")
	onepage = request("onepage")
end sub

sub validate_search
''' request and validate data entered from this form
	keywords = trim(request("keywords"))
end sub
sub validate_detail_employees
''' request and validate data entered from this form
	employee_id = trim(request("employee_id"))
	user_id = trim(request("user_id"))
	manager_id = trim(request("manager_id"))
	l_name = trim(request("l_name"))
	user_name = trim(request("user_name"))
	f_name = trim(request("f_name"))
	email = trim(request("email"))
	image = trim(request("image"))
	Title = trim(request("Title"))
	Dept = trim(request("Dept"))
	dtStarted = trim(request("dtStarted"))
	if dtStarted <> "" AND (not isdate(dtStarted)) then
		error_list.add "579080date","Started must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	WorkPhone = trim(request("WorkPhone"))
	MobilePhone = trim(request("MobilePhone"))
	PhoneExt = trim(request("PhoneExt"))
	homepage_url = trim(request("homepage_url"))
	MyFunction = request("function")
		SrchFunction = request("Myfunction")
	SrchLocation = request("Mylocation")
	SrchLanguage = request("Mylanguage")
	SrchAgency = request("Myagency")
	onepage = request("onepage")
end sub
sub validate_view_employees
''' request and validate data entered from this form
	user_id = trim(request("user_id"))
	employee_id = trim(request("employee_id"))
	manager_id = trim(request("manager_id"))
	user_name = trim(request("user_name"))
	employee = trim(request("employee"))
	Title = trim(request("Title"))
	manager = trim(request("manager"))
	Dept = trim(request("Dept"))
	dtHired = trim(request("dtHired"))
	if dtHired <> "" AND (not isdate(dtHired)) then
		error_list.add "579095date","Hired must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	MobilePhone = trim(request("MobilePhone"))
	PhoneExt = trim(request("PhoneExt"))
	compose = trim(request("compose"))
	MyFunction = request("function")
	SrchFunction = request("Myfunction")
	SrchLocation = request("Mylocation")
	SrchLanguage = request("Mylanguage")
	SrchAgency = request("Myagency")
	onepage = request("onepage")
end sub


sub db_select_detail_Employees
	sql = "SELECT " & _ 
	"Employees.employee_id, " & _ 
	"Employees.user_id, " & _ 
	"Employees.manager_id, " & _ 
	"Users.l_name, " & _ 
	"Users.user_name, " & _ 
	"Users.f_name, " & _ 
	"Users.email, " & _ 
	"Users.image, " & _ 
	"Employees.Title, " & _ 
	"Employees.Dept, " & _ 
	"Employees.dtStarted, " & _ 
	"Employees.WorkPhone, " & _ 
	"Employees.MobilePhone, " & _ 
	"Employees.location, " & _ 
	"Employees.PhoneExt, " & _ 
	"Employees.language1, " & _ 
	"Employees.language2, " & _ 
	"Employees.language3, " & _ 
	"Employees.language4, " & _ 
	"Employees.language5, " & _ 
	"Employees.language6, " & _ 
	"Employees.other1, " & _ 
	"Employees.other2, " & _ 
	"Employees.other3, " & _ 
	"Employees.comments, " & _ 
	"Employees.function, " & _ 
	"Users.homepage_url FROM (Employees LEFT JOIN Users ON Employees.user_id = Users.user_id)" & _ 
	" WHERE " & _ 
	"Employees.employee_id = " & to_sql(employee_id,"number") & ""
	'on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_detail_Employees", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_detail_Employees", "The record was removed from the database."
	else
		employee_id = rs("employee_id")
		user_id = rs("user_id")
		manager_id = rs("manager_id")
		l_name = rs("l_name")
		user_name = rs("user_name")
		f_name = rs("f_name")
		l_name = rs("l_name")
		email = rs("email")
		image = rs("image")
		Title = rs("Title")
		Dept = rs("Dept")
		dtStarted = rs("dtStarted")
		WorkPhone = rs("WorkPhone")
		MobilePhone = rs("MobilePhone")
		PhoneExt = rs("PhoneExt")
		homepage_url = rs("homepage_url")
		Myfunction =  rs("function")
		Mylocation =  rs("location")
		Mylanguage1 =  rs("language1")
		Mylanguage2 =  rs("language2")
		Mylanguage3 =  rs("language3")
		Mylanguage4 =  rs("language4")
		Mylanguage5 =  rs("language5")
		Mylanguage6 =  rs("language6")
		comments	= rs("comments")
		'Mylanguage4 =  rs("language4")
	'	other1 =  rs("other1")
	'	other2 =  rs("other2")
	'	other3 =  rs("other3")

	end if
	rs.Close
	on error goto 0
end sub


sub get_MyMenu(MenuID,MyField,MyMatch)
redim arItems(60)
sql = "SELECT * FROM Cats WHERE CatTypeID = " & MenuID & " ORDER BY Cats.sort DESC, Cats.Cat ASC;"
	'on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_get_functions", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_get_functions", " "
	end if 
	
	rs.movefirst
	
	dim TheIndex
	TheIndex=0
	while not rs.eof
	
	arItems(TheIndex) = rs("Cat") 
		
		'response.write arItems(TheIndex)  & " " & TheIndex  & " = arItems(TheIndex)<BR>"
		TheIndex = TheIndex + 1
	rs.movenext
	wend

	rs.Close

%>
 <select name="My<%= MyField %>">
 
  <option value="" >Make Selection</option>
  <% 

 for y = 0 to TheIndex-1
 if arItems(y) = MyMatch then 
 isSelected = "selected"
 else 
 isSelected = ""
 end if
  %>

 <option value="<%= arItems(y) %>" <%= isSelected %>><%= arItems(y)  %></option>
 <% next %>
  </select>
  
<% 
end sub


sub db_insert_detail_Employees
	sql = "INSERT INTO Employees" & _ 
	"(" & _ 
	"user_id," & _ 
	"manager_id," & _ 
	"Title," & _ 
	"Dept," & _ 
	"dtStarted," & _ 
	"WorkPhone," & _ 
	"MobilePhone," & _ 
	"PhoneExt" & _ 
	") VALUES (" & to_sql(user_id,"number") & "," & _ 
	"" & to_sql(manager_id,"number") & "," & _ 
	"" & to_sql(Title,"text") & "," & _ 
	"" & to_sql(Dept,"text") & "," & _ 
	"" & to_sql(dtStarted,"text") & "," & _ 
	"" & to_sql(WorkPhone,"text") & "," & _ 
	"" & to_sql(MobilePhone,"text") & "," & _ 
	"" & to_sql(PhoneExt,"text") & ")" & _ 
	""
	'response.write sql
	'on error resume next
	cn.Execute(sql)
	if err.Number <> 0 then
		b_error = true
		error_list.add "db_insert_detail_Employees" & err.Number ,"The database insert failed. " & err.Description
	else
		set rs = cn.Execute("SELECT @@IDENTITY")
		employee_id = rs(0)
		rs.Close
		set rs = cn.Execute("SELECT @@IDENTITY")
		employee_id = rs(0)
		rs.Close
		msg_list.add "db_insert_detail_Employees","The database insert was successful."	end if
	on error goto 0
end sub
sub db_update_detail_Employees
	sql = "UPDATE Employees SET " & _ 
	"user_id = " & to_sql(user_id,"number") & ", " & _ 
	"manager_id = " & to_sql(manager_id,"number") & ", " & _ 
	"Title = " & to_sql(Title,"text") & ", " & _ 
	"Dept = " & to_sql(Dept,"text") & ", " & _ 
	"dtStarted = " & to_sql(dtStarted,"text") & ", " & _ 
	"WorkPhone = " & to_sql(WorkPhone,"text") & ", " & _ 
	"MobilePhone = " & to_sql(MobilePhone,"text") & ", " & _ 
	"PhoneExt = " & to_sql(PhoneExt,"text") & " WHERE " & _ 
	"employee_id = " & to_sql(employee_id,"number") & ""
	'response.write sql
	'on error resume next
	cn.execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_update_detail_Employees" & err.Number ,"The database update failed. " & err.Description
	else
	end if
	on error goto 0
end sub
sub db_delete_detail_Employees
	sql = "DELETE FROM Employees" & _ 
	" WHERE " & _ 
	"employee_id = " & to_sql(employee_id,"number") & ""
	'response.write sql
	'on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_delete_detail_Employees" & err.Number ,"The database deletion failed. " & err.Description
	else
		msg_list.add "db_delete_detail_Employees","The record was removed."
	end if
	on error goto 0
end sub
sub db_select_view_Employees
	if do_search = "1" then
	request_view_Employees
	view_Employees_sql = "SELECT " & _ 
	"Users.user_name AS user_name, " & _ 
	"Users.email AS email, " & _ 
	"Users2.f_name + ' ' +Users2.l_name  AS manager, " & _ 
	"Users.f_name + ' ' + Users.l_name AS employee," & _ 
	"Users.l_name," & _ 
	"Users.f_name," & _ 
	"Employees.employee_id, " & _ 
	"Employees.user_id, " & _ 
	"Employees.manager_id, " & _ 
	"Employees.CatId, " & _ 
	"Employees.Title, " & _ 
	"Employees.Dept, " & _ 
	"Employees.SSN, " & _ 
	"Employees.dtHired, " & _ 
	"Employees.dtStarted, " & _ 
	"Employees.dtTerm, " & _ 
	"Employees.WorkPhone, " & _ 
	"Employees.HomePhone, " & _ 
	"Employees.MobilePhone, " & _ 
	"Employees.PhoneExt, " & _ 
	"Employees.function, " & _ 
	"Employees.location, " & _ 
	"Employees.language1, " & _ 
	"Employees.language2, " & _ 
	"Employees.language3, " & _ 
	"Employees.language4, " & _ 
	"Employees.language5, " & _ 
	"Employees.language6, " & _ 
	"Employees.EmerContact, " & _ 
	"Employees.EmerPhone FROM ((Employees LEFT JOIN Users ON Employees.user_id = Users.user_id) LEFT JOIN Users as Users2 ON Employees.manager_id = Users2.user_id) WHERE "
	
	view_Employees_sql = view_Employees_sql & "(Users.user_name LIKE '%" & keywords & "%' OR Users.l_name LIKE '%" & keywords & "%' OR Users.f_name LIKE '%" & keywords & "%' OR Title LIKE '%" & keywords & "%' OR Dept LIKE '%" & keywords & "%' OR SSN LIKE '%" & keywords & "%' OR WorkPhone LIKE '%" & keywords & "%'  OR Function LIKE '%" & keywords & "%') "

		if SrchLanguage <> "" then 	
			 view_Employees_sql = view_Employees_sql & "AND (language1 LIKE '%" & SrchLanguage & "%' OR Language2 LIKE '%" & SrchLanguage & "%' OR Language3 LIKE '%" & SrchLanguage & "%' OR Language4 LIKE '%" & SrchLanguage & "%' OR Language5 LIKE '%" & SrchLanguage & "%' OR language6 LIKE '%" & SrchLanguage & "%') " 
		end if	 
		if SrchFunction <> "" then 	 
			 view_Employees_sql = view_Employees_sql & "AND (function LIKE '%" & SrchFunction & "%') " 
		end if
		if SrchLocation <> "" then 	 
			 view_Employees_sql = view_Employees_sql & "AND (location LIKE '%" & SrchLocation & "%') " 
		end if
		if SrchLocation <> "" then 	 
			 view_Employees_sql = view_Employees_sql & "AND (location LIKE '%" & SrchLocation & "%') " 
		end if
		if SrchAgency <> "" then 	 
			 view_Employees_sql = view_Employees_sql & "AND (Dept LIKE '%" & SrchAgency & "%') " 
		end if
		
		
	else
	view_Employees_sql = "SELECT " & _ 
	"Users.user_name AS user_name, " & _ 
	"Users2.f_name + ' ' + Users2.l_name AS manager, " & _ 
	"Users.f_name + ' ' + Users.l_name AS employee," & _ 
	"Users.f_name," & _ 
	"Users.l_name," & _ 
	"Users.email, " & _ 
	"Employees.employee_id, " & _ 
	"Employees.location, " & _ 
	"Employees.user_id, " & _ 
	"Employees.manager_id, " & _ 
	"Employees.CatId, " & _ 
	"Employees.Title, " & _ 
	"Employees.Dept, " & _ 
	"Employees.SSN, " & _ 
	"Employees.dtHired, " & _ 
	"Employees.dtStarted, " & _ 
	"Employees.dtTerm, " & _ 
	"Employees.WorkPhone, " & _ 
	"Employees.HomePhone, " & _ 
	"Employees.MobilePhone, " & _ 
	"Employees.PhoneExt, " & _ 
	"Employees.EmerContact, " & _
	"Employees.language1, " & _ 
	"Employees.language2, " & _ 
	"Employees.language3, " & _ 
	"Employees.language4, " & _ 
	"Employees.language5, " & _ 
	"Employees.language6, " & _ 
	"Employees.location, " & _ 
	"Employees.function, " & _ 
	"Employees.EmerPhone FROM ((Employees LEFT JOIN Users ON Employees.user_id = Users.user_id) LEFT JOIN Users as Users2 ON Employees.manager_id = Users2.user_id)"
	end if
	if request("sortby") <> "" AND inStr(lcase(view_Employees_sql),"order by") = 0 then 
		view_Employees_sql = view_Employees_sql + " ORDER BY " & request("sortby")
	'jeff fixitlit may2005
	else 
		view_Employees_sql = view_Employees_sql + " ORDER BY Users.f_name"
	
	end if
end sub
sub db_delete_view_Employees
	sql = "DELETE FROM Employees" & _ 
	" WHERE " & _ 
	"employee_id = " & to_sql(employee_id,"number") & ""
	'response.write sql
	'on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub

do_search = request("do_search")
''' request form keys and inputs
keywords = request("keywords")
employee_id = request("employee_id")

''' request action
action = lcase(request("action"))
''' action case handler
select case action

case "select_detail_employees"
'  select the requested key record from database
if employee_id <> "" then
	db_select_detail_Employees
else
	b_error = true
	error_list.add "edit_detail_Employees", "Specify record to select."
end if


case "insert_detail_employees"
'  request form data and insert a new record into database

validate_detail_employees
if not b_error then
	db_insert_detail_employees
end if


case "update_detail_employees"
'  request form data and update an existing database record
validate_detail_employees
if not b_error then
if employee_id <> "" then
	db_update_detail_employees
else
	b_error = true
	error_list.add "update_detail_employees", "Specify record to update."
end if
end if


case "delete_detail_employees"
'  delete the requested key database record
if employee_id <> "" then
	db_delete_detail_employees
	response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
	b_error = true
	error_list.add "delete_detail_employees", "Specify record to delete."
end if


case "select_view_employees"
'  select the requested key record from database
if employee_id <> "" then
	db_select_view_Employees
else
	b_error = true
	error_list.add "edit_view_Employees", "Specify record to select."
end if


end select
':: handle the default case(s) for each form (separate from action= parameter)
if employee_id <> "" then
	''' select existing record to populate form
	db_select_detail_employees
else
	''' new record
end if

db_select_view_employees

%>

<!--#include file='i_header.asp'-->
<!--#include file='i_menu.asp'-->


<%
display_errs
display_msg
%>
<% if request("printver") <> "true" then %>
<table width="67%"  >
<form id="search" name="search" action="search_employees.asp" method="get" >
<tr>
	<td width="23%" height="34" class='labelTD'>Keyword</td>
	<td width='25%' nowrap class='dataTD'>
		<input type=text  name="keywords" size="18" maxlength="" value="<% =keywords%>">&nbsp;	</td>
    <td width='52%' valign="top" nowrap>&nbsp;</td>
</tr>
<tr>
  <td class='labelTD'>Location</td>
  <td class='dataTD' nowrap><% get_MyMenu 11, "location", SrchLocation %>&nbsp; 
  </td>
  <td width='52%' valign="top" nowrap>&nbsp;</td>
</tr>
<tr>
  <td class='labelTD'>Language</td>
  <td class='dataTD' nowrap><% get_MyMenu 13, "language", SrchLanguage %>
  </td>
  <td width='52%' valign="top" nowrap>&nbsp;</td>
</tr>
  <tr>
  <td class='labelTD'>Agency</td>
  <td class='dataTD' nowrap><% get_MyMenu 20, "agency", SrchAgency %> &nbsp;</td>
  <td width='52%' rowspan="2" valign="top" nowrap class='dataTD'><input name="submit"  type='submit' value='Search'>
    <% If request("do_search") = "1" Then %>
    <a href="search_employees.asp">New search</a>
    <% End If %>
    <br>
              List results on one page 
              <input type="checkbox" name="onepage" value=true>
  </td>
  </tr>
  <tr>
  <td class='labelTD'>Functions</td>
  <td class='dataTD' nowrap><% get_MyMenu 12, "function", SrchFunction %> &nbsp;</td>
  </tr>
<input type=hidden name="do_search" value="1">

</form>
</table>
<% End If %>


<% if employee_id <> "" then %>
<%

':: check if hide form var was set
if not b_hide_detail_Employees then
%>

<table class='headerTable'>
<tr>
<td class='headerTD'>  <strong>Staff member</strong></td>
</tr>
</table>
<table width="100%"  >
<form id="detail_Employees" name="detail_Employees" action="search_employees.asp" method="post" >
		
		<input type=hidden name="employee_id" value="<% =employee_id %>">
		
		
		<input type=hidden name="user_id" value="<% =user_id %>">
		
		
		<input type=hidden name="manager_id" value="<% =manager_id %>">
		
		
		<input type=hidden name="l_name" value="<% =l_name %>">
		
<tr>
	<td class='labelTD'>Username</td>
	<td width="80%" class='dataTD' >
		<a href="compose_messages.asp?user_name=<% =user_name %>"><% =user_name %></a>
&nbsp;	</td>
</tr>
<tr>
	<td class='labelTD'>Full name</td>
	<td class='dataTD' >
		<% =f_name %>&nbsp;<% =l_name %>
&nbsp;	</td>
</tr>
<tr>
  <td class='labelTD'>Title</td>
  <td class='dataTD'>
    <% =Title %>
&nbsp; </td>
</tr>
<tr>
	<td class='labelTD'>Email </td>
	<td class='dataTD' >
		<a href="mailto:<% =email %>"><% =email %></a>
&nbsp;	</td>
</tr>
<tr>
  <td class='labelTD'>Location</td>
  <td class='dataTD' >
  <%= Mylocation %> &nbsp;</td>
</tr>
<tr>
  <td class='labelTD'>Function</td>
  <td class='dataTD' > 
    <% =Myfunction %>
  </a> &nbsp;</td>
</tr>

<tr>
  <td class='labelTD'>Languages</td>
  <td class='dataTD' > <a href="<% =homepage_url %>">
  </a><%= Mylanguage1 & "&nbsp;" & Mylanguage2 & "&nbsp;" &  Mylanguage3 & "&nbsp;" &  Mylanguage4 & "&nbsp;" &  Mylanguage5 & "&nbsp;" &  Mylanguage6 %> &nbsp;</td>
</tr>
<% if image <> "" then %>
<tr>
	<td class='labelTD'></td>
	<td class='dataTD' >
		<img  name="image" src="<% =image %>">
&nbsp;	</td>
</tr><% end if %>
<tr>
  <td class='labelTD'>Comments</td>
  <td class='dataTD' ><%= comments %>&nbsp;</td>
</tr>
<tr>
	<td class='labelTD'>Agency</td>
	<td class='dataTD' >
		<% =Dept %>
&nbsp;	</td>
</tr>
<tr>
	<td class='labelTD'>Started</td>
	<td class='dataTD' >
		<% =dtStarted %>
&nbsp;	</td>
</tr>
<tr>
	<td class='labelTD'>Work Phone</td>
	<td class='dataTD' >
		<% =WorkPhone %>
&nbsp;	</td>
</tr>
<tr>
	<td class='labelTD'>Mobile Phone</td>
	<td class='dataTD' >
		<% =MobilePhone %>
&nbsp;	</td>
</tr>
<tr>
	<td class='labelTD'>Phone Ext</td>
	<td class='dataTD' >
		<% =PhoneExt %>
&nbsp;	</td>
</tr>
<tr>
  <td class='labelTD'>Website</td>
  <td class='dataTD' > <a href="<% =homepage_url %>">
    <% =homepage_url %>
  </a>&nbsp; </td>
</tr>

</form>
</table>
<%

':: end hide form if
end if
%>


<% else %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_Employees_sql <> "" then
	cmd.CommandText = view_Employees_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			rs.PageSize = intPageSize
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<table cellspacing="0" class='headerTable'>
        <tr>
          <td width="83%" class='headerTD'>Staff</td>
          <td width="17%" nowrap class='headerTD'>&nbsp;
		  <% 'If session("accesslevel") > 2 Then %>
		  <a href="emailstaff.asp?page_no=<% =page_no+1 %>&onepage=<%= request("onepage") %>&sortby=<% =request("sortby") %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&MyAgency=<%= request("MyAgency")  %>&do_search=<%= request("do_search") %>">Send 
            email </a>to this list 
			<% 'End If %>
            &nbsp;</td>
        </tr>
      </table>
<%

if results = true then

%>
<table width="100%" border="0" cellpadding="4" cellspacing="0"  >
<form id="view_Employees" name="view_Employees" action="search_employees.asp" method="" >
<tr>
  <td width="10%" nowrap class='FieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Users.f_name"  title="">First
      Name</a></td>
  <td width="10%" nowrap class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Users.l_name"  title="">Last
      Name</a></td>
  <td width="16%" nowrap class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Employees.Title"  title="">Title</a></td>
  <td width="13%" nowrap class='FieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Employees.function"  title="">Function</a></td>
  <td width="13%" nowrap class='FieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>?page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Employees.location"  title="">Location</a></td>
  <td width="13%" nowrap class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Employees.Dept"  title="">Agency</a></td>
	<td width="13%" nowrap class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&do_search=<%= request("do_search") %>&MyAgency=<%= request("MyAgency")  %>&onepage=<%= request("onepage") %>&sortby=Employees.WorkPhone"  title="">Work
	    Phone</a></td>
	<td width="16%" nowrap class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&MyAgency=<%= request("MyAgency")  %>&do_search=<%= request("do_search") %>&sortby=Employees.language1"  title="">Languages</a></td>
</tr>
<%

do while not rs.EOF AND (rec_count < rs.Pagesize)

':: read db record
on error resume next

user_id = rs("user_id")
employee_id = rs("employee_id")
manager_id = rs("manager_id")
user_name = rs("user_name")
lastname = rs("l_name")
firstname = rs("f_name")

employee = rs("employee")
Title = rs("Title")
manager = rs("manager")
Dept = rs("Dept")
dtHired = rs("dtHired")
MobilePhone = rs("MobilePhone")
PhoneExt = rs("PhoneExt")
compose = rs("compose")
email = rs("email")
Mylocation = rs("location")
Myfunction = rs("function")
WorkPhone = rs("WorkPhone")
language1  = rs("language1")
language2 = rs("language2")
language3 = rs("language3")
language4 = rs("language4")
language5 = rs("language5")
language6 = rs("language6")
MyLanguages = get_lang(employee_id)
on error goto 0

%>
		
		<input type=hidden name="user_id" value="<% =user_id %>">
		
		
		<input type=hidden name="employee_id" value="<% =employee_id %>">
		
		
		<input type=hidden name="manager_id" value="<% =manager_id %>">
		
<%If (rec_count Mod 2) Then%>
     <tr bgcolor="#EEEEEE">
	 <%End If%>
	 
       <td nowrap class='dataTD' >	<% If email <> "" Then %>  <a href="mailto:<%= email %>"> 
<img src="../images/mailicon.gif" width="11" height="9" border="0"></a> <% End If %><a href="search_employees.asp?employee_id=<% =employee_id %>"><%= firstname %></a></td>
       <td class='dataTD' ><%= lastname %>&nbsp;</td>
       <td class='dataTD' >
         <% =Title %>
       &nbsp;&nbsp; 
       </td>
       <td class='dataTD' ><%= Myfunction %>&nbsp;</td>
       <td class='dataTD' ><%= Mylocation %>&nbsp;</td>
       <td class='dataTD' >
		<% =Dept %>&nbsp;&nbsp;
	</td>
	<td class='dataTD' >
		<% =WorkPhone %>&nbsp;
&nbsp;	</td>
	<td class='dataTD' ><%= language1 & " " & language2 & " " &  language3 & " " &  language4 & " " &  language5 & " " &  language6  %> &nbsp;	</td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

	<span class="tabletext">No matches were found.</span>    <%

end if

%>

<%
 if max_count > 1 then 
%>

<!-- paging footer -->
<TABLE class=HeaderTable >
	<tr>
		<td width="20%" class=HeaderTD>
			<% if page_no > 1 then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?page_no=<% =page_no-1 %>&onepage=<%= request("onepage") %>&sortby=<% =request("sortby") %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&MyAgency=<%= request("MyAgency")  %>&do_search=<%= request("do_search") %>"">PREV</a>
			<% else %>			<% end if %>		</td>
		<td align=center class=HeaderTD>
			Page&nbsp;
			<% for i = 1 to max_count %>
			<% if i = cint(page_no) then %>
			<b><%=i%></b>
			<% else %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&onepage=<%= request("onepage") %>&sortby=<% =request("sortby") %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&MyAgency=<%= request("MyAgency")  %>&do_search=<%= request("do_search") %>""><%=i%></a>
			<% end if %>
			<%next %>
		</td>
		<td align=right width="20%" class=HeaderTD>
			<% if cInt(page_no) < cInt(max_count) then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?page_no=<% =page_no+1 %>&onepage=<%= request("onepage") %>&sortby=<% =request("sortby") %>&keywords=<%= request("keywords") %>&Mylocation=<%= request("Mylocation")  %>&Mylanguage=<%= request("Mylanguage")  %>&Myfunction=<%= request("Myfunction")  %>&MyAgency=<%= request("MyAgency")  %>&do_search=<%= request("do_search") %>">NEXT</a>
			<% end if %>
		</td>
	</tr>
</TABLE>
<% end if %>


<% end if %>

<!--#include file='i_footer.asp'-->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>