|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobs/ |
Upload File : |
<%@ Language=VBScript %>
<%
Dim sTitle
sTitle = "Search Results"
%>
<!--#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-->
<div align="center">
<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
<tr>
<td width="240" valign="top">
<img src="images/resumematch.jpg" border="0" WIDTH="240" HEIGHT="50">
</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="lightgreen" align="center"><a href="research.asp?userid=<%=request("userid")%>"><font color="brown">Search Resumes</a></td></tr>
<tr><td bgcolor="lightgreen" align="center"><a href="schlist.asp?userid=<%=request("userid")%>"><font color="brown">Post New Jobs</font></a></td></tr>
<tr><td bgcolor="lightgreen" align="center"><a href="listjobs.asp?userid=<%=request("userid")%>"><font color="brown">Edit/Delete My Jobs</font></a></td></tr>
<tr><td bgcolor="lightgreen" align="center"><a href="schlist.asp?userid=<%=request("userid")%>"><font color="brown">Edit My Registration</font></a></td></tr>
</table>
</td>
</tr>
</table>
</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><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>
<%
'Create variables
Dim objConn
Dim rsMetroArea
Dim rsRegion
Dim rsRes
Dim sSQLMA, sSQLRG, sSQL, sSQLSR, sSQLEX, sSQLED ,sSalaryRange, sExpertise, sMetroArea, sRegion, sEducation
Dim i
Dim index
Dim bRegion
'Assign variables
sSalaryRange = Request.Form("cboSalaryRange")
sMetroArea = Request.Form("cboMetro")
sRegion = Request.Form("cboRegion")
sExpertise = Request.Form("cboExpertise")
sEducation = Request.Form("cboEducation")
'Build sql statements
'sSQL = "SELECT TEACHER.id, TEACHER.datesubmitted, [city] & chr(44) & chr(32) & [code] AS Location, TEACHER.jobtitle, TEACHER.salary FROM STATE INNER JOIN TEACHER ON STATE.id = TEACHER.state WHERE "
sSQL = "SELECT TEACHER.id, TEACHER.datesubmitted, [city] & chr(44) & chr(32) & [code] AS Residence, EXPERTISE.areaofexpertise, [REGION].[name] & chr(32) & chr(45) & chr(32) & [METROAREA].[name] AS Location, TEACHER.salary FROM METROAREA RIGHT JOIN (REGION RIGHT JOIN ((STATE INNER JOIN TEACHER ON STATE.id = TEACHER.state) INNER JOIN EXPERTISE ON TEACHER.expertise = EXPERTISE.id) ON REGION.id = TEACHER.region) ON METROAREA.id = TEACHER.metroarea WHERE "
'salary criteria
Select Case sSalaryRange
Case 0
sSQLSR = ""
sSQL = sSQL & " salary = True"
Case 1
sSQLSR = " salary <= 10000 "
sSQL = sSQL & sSQLSR
Case 2
sSQLSR = " salary <= 20000 "
sSQL = sSQL & sSQLSR
Case 3
sSQLSR = " salary <= 30000 "
sSQL = sSQL & sSQLSR
Case 4
sSQLSR = " salary <= 40000 "
sSQL = sSQL & sSQLSR
Case 5
sSQLSR = " salary <= 50000 "
sSQL = sSQL & sSQLSR
Case Else
sSQLSR = " salary <= 10000 "
sSQL = sSQL & sSQLSR
End Select
'Expertise criteria
Select Case sExpertise
Case 0
sSQLEX = ""
Case Else
sSQLEX = " expertise = " & sExpertise
sSQL = sSQL & " AND " & sSQLEX
End Select
'Education Criteria
Select Case sEducation
Case 0
sSQLED = ""
Case 4
sSQLED = " education = " & sEducation
sSQL = sSQL & " AND " & sSQLED
Case Else
sSQLED = " education >= " & sEducation
sSQL = sSQL & " AND " & sSQLED
End Select
'Metro Area Criteria
Select Case sMetroArea
Case 0
sSQLMA = ""
Case Else
if sRegion <> 0 then sSQLMA = " (metroarea = " & sMetroArea else sSQLMA = " metroarea = " & sMetroArea
sSQL = sSQL & " AND " & sSQLMA
End Select
'Region Criteria
Select Case sRegion
Case 0
sSQLRG = ""
Case Else
sSQLRG = " region = " & sRegion
if sMetroArea <> 0 then sSQL = sSQL & " OR " & sSQLRG & ")" else sSQL = sSQL & " AND " & sSQLRG
End Select
'Connection object
Set objConn = Server.CreateObject("ADODB.Connection")
'Recordset objects
'Set rsMetroArea = Server.CreateObject("ADODB.Recordset")
'Set rsRegion = Server.CreateObject("ADODB.Recordset")
Set rsRes = Server.CreateObject("ADODB.Recordset")
'open connection
objConn.Open sConnect
'build SQL
sSQL = sSQL & " AND active=True ORDER BY datesubmitted desc;"
mypage = request("whichpage")
if mypage = "" then mypage = 1
mypagesize=request("pagesize")
if mypagesize = "" then mypagesize = 10
mySQL = request("SQLquery")
if mySQL = "" then mySQL = sSQL
rsRes.cursorlocation=aduseclient
rsRes.cachesize = 5
rsRes.open mySQL, objConn
if not rsRes.EOF then
rsRes.MoveFirst
'rsRes.pagesize = mypagesize
maxpages = cint(rsRes.pagecount)
maxrecs = cint(rsRes.pagesize)
'rsRes.absolutepage = mypage
howmanyrecs = 0
totalnumofrecs = rsRes.recordcount
response.write "<p align=center><font face='verdana, arial, helvetica' size='2'><b>Total number of resume(s) found: " & totalnumofrecs & "</b></font><p>"
howmanyfields = rsRes.fields.count - 1
'response.write "<p align=center><font face='verdana, arial, helvetica' size='2'>Page " & mypage & " of " & maxpages & "</font><p>"
response.write "<div align=center><table border='1' cellpadding='2'><tr>"
'Put Headings On The Table of Field Names
response.write "<td bgcolor=""#DDDDDD""><b>Date</b></td><td bgcolor=""#DDDDDD""><b>Residence</b></td><td bgcolor=""#DDDDDD""><b>Area of Expertise</b></td><td bgcolor=""#DDDDDD""><b>Desired Location</b></td><td bgcolor=""#DDDDDD""><b>Salary</b></td>"
'FOR i=0 to howmanyfields
'response.write "<td><b>" & rsRes(i).name & "</b></td>"
'NEXT
response.write "</tr>"
' Now loop through the data
DO UNTIL rsRes.EOF 'OR howmanyrecs >= maxrecs
response.write "<tr>"
FOR i = 1 to howmanyfields
if i=3 then
fieldvalue = "<a href=rdetails.asp?userid=" & sUserID & "&id=" & rsRes(0)
fieldvalue = fieldvalue & ">" & rsRes(i) & "</a>"
else
if i=5 then
fieldvalue = formatcurrency(rsRes(i))
else
fieldvalue=rsRes(i)
end if
end if
If isnull(fieldvalue) THEN fieldvalue="n/a"
If trim(fieldvalue)="" THEN fieldvalue=" "
response.write "<td valign='top'>"
response.write fieldvalue
response.write "</td>"
Next
response.write "</tr>"
rsRes.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write "</table></div><p>"
' close, destroy
'rsRes.close
'set rsRes=nothing
' Now make the page _ of _ hyperlinks
'Call PageNavBar
sub PageNavBar()
' Thanks to Jeff Emrich <[email protected]>
pad=""
scriptname=request.servervariables("script_name")
response.write "<div align=center><table rows='1' cols='1' width='97%'><tr>"
response.write "<td align=center>"
response.write "<font size='2' color='black' face='Verdana, Arial,Helvetica, sans-serif'>"
if (mypage mod 10) = 0 then
counterstart = mypage - 9
else
counterstart = mypage - (mypage mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then counterend = maxpages
if counterstart <> 1 then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & 1
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "&userid=" & sUserID
ref=ref & "'>First</a> : "
Response.Write ref
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & (counterstart - 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "&userid=" & sUserID
ref=ref & "'>Previous</a> "
Response.Write ref
end if
Response.Write "["
for counter=counterstart to counterend
If counter>=10 then
pad=""
end if
if cstr(counter) <> mypage then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & counter
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "&userid=" & sUserID
ref=ref & "'>" & pad & counter & "</a>"
else
ref="<b>" & pad & counter & "</b>"
end if
response.write ref
if counter <> counterend then response.write " "
next
Response.Write "]"
if counterend <> maxpages then
ref=" <a href='" & scriptname
ref=ref & "?whichpage=" & (counterend + 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "&userid=" & sUserID
ref=ref & "'>Next 10 Pages</a>"
Response.Write ref
ref=" : <a href='" & scriptname
ref=ref & "?whichpage=" & maxpages
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "&userid=" & sUserID
ref=ref & "'>Last Page</a>"
Response.Write ref
end if
response.write "<br></font>"
response.write "</td>"
response.write "</table></div>"
end sub
%>
<div align="center">
<tr>
<td>
<p align=center><form action="research.asp?userid=<%=sUserID%>" method=post><input type="submit" Value="Search Again" name="SearchAgain"></form>
</td>
</tr>
</div>
<%
rsRes.Close
objConn.Close
else
'No jobs were found
Response.Write "<p align=center>No resumes found.<p>"
%>
<div align="center">
<tr>
<td>
<p align=center><form action="research.asp?userid=<%=sUserID%>" method=post><input type="submit" Value="Search Again" name="SearchAgain"></form>
</td>
</tr>
</div>
<%
rsRes.Close
objConn.Close
end if
%>
<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->