|
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"-->
<!--#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="420" valign="top">
<img src="images/searchresults.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>
<%
'Create variables
Dim objConn
Dim rsMetroArea
Dim rsRegion
Dim rsJobs
Dim sSQLMA, sSQLRG, sSQL, sSQLSR, sSQLEX ,sSalaryRange, sExpertise, sMetroArea, sRegion
Dim i
Dim index
Dim bRegion
'Assign variables
sSalaryRange = Request.Form("cboSalaryRange")
sMetroArea = Request.Form("cboMetro")
sRegion = Request.Form("cboRegion")
sExpertise = Request.Form("cboExpertise")
'Build sql statements
sSQL = "SELECT JOB.jobid, JOB.date_submitted, [city] & chr(44) & chr(32) & [code] AS Location, JOB.title, SCHOOL.name FROM STATE INNER JOIN (SCHOOL INNER JOIN JOB ON SCHOOL.schoolid = JOB.school_id) ON STATE.id = SCHOOL.state WHERE "
Select Case sSalaryRange
Case 0
sSQLSR = ""
sSQL = sSQL & " maxsalary >= 0"
Case 1
sSQLSR = " maxsalary >= 10000 "
sSQL = sSQL & sSQLSR
Case 2
sSQLSR = " maxsalary >= 20000 "
sSQL = sSQL & sSQLSR
Case 3
sSQLSR = " maxsalary >= 30000 "
sSQL = sSQL & sSQLSR
Case 4
sSQLSR = " maxsalary >= 40000 "
sSQL = sSQL & sSQLSR
Case 5
sSQLSR = " maxsalary >= 50000 "
sSQL = sSQL & sSQLSR
Case Else
sSQLSR = " maxsalary >= 10000 "
sSQL = sSQL & sSQLSR
End Select
Select Case sExpertise
Case 0
sSQLEX = ""
Case Else
sSQLEX = " expertise= " & sExpertise
sSQL = sSQL & " AND " & sSQLEX
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 rsJobs = Server.CreateObject("ADODB.Recordset")
'open connection
objConn.Open sConnect
if sMetroArea = 0 then sSQLMA = ""
if sRegion = 0 then sSQLRG = ""
if sMetroArea = 0 And sRegion = 0 then bRegion = True
if sMetroArea <> 0 And sRegion <> 0 then bRegion = True
if sRegion <> 0 and sMetroArea <> 0 then
rsRegion.Open "REGIONAREACODE", objConn, 3, 3
rsRegion.Filter = "region_id = " & sRegion
rsRegion.MoveFirst
sSQLRG = "("
for i = 1 to rsRegion.RecordCount
sSQLRG = sSQLRG & "JOB.contact_areacode = " & rsRegion("areacode")
if i <> rsRegion.RecordCount then sSQLRG = sSQLRG & " OR "
if Not rsRegion.EOF then rsRegion.MoveNext
Next
sSQLRG = sSQLRG & ")"
sSQL = sSQL & " AND " & sSQLRG
rsRegion.Close
bRegion=true
else
if sRegion <> 0 then
rsRegion.Open "REGIONAREACODE", objConn, 3, 3
rsRegion.Filter = "region_id = " & sRegion
rsRegion.MoveFirst
sSQLRG = "("
for i = 1 to rsRegion.RecordCount
sSQLRG = sSQLRG & "JOB.contact_areacode = " & rsRegion("areacode")
if i <> rsRegion.RecordCount then sSQLRG = sSQLRG & " OR "
if Not rsRegion.EOF then rsRegion.MoveNext
Next
sSQLRG = sSQLRG & ")"
sSQL = sSQL & " AND " & sSQLRG
rsRegion.Close
bRegion = True
else
if sMetroArea <> 0 then
rsMetroArea.Open "METROAREACODE", objConn, 3, 3
rsMetroArea.Filter = "area_id = " & sMetroArea
rsMetroArea.MoveFirst
sSQLMA = "("
for i = 1 to rsMetroArea.RecordCount
sSQLMA = sSQLMA & "JOB.contact_areacode = " & rsMetroArea("areacode")
if i <> rsMetroArea.RecordCount then sSQLMA = sSQLMA & " OR "
if Not rsMetroArea.EOF then rsMetroArea.MoveNext
Next
sSQLMA = sSQLMA & ")"
sSQL = sSQL & " AND " & sSQLMA
rsMetroArea.Close
bRegion = False
end if
end if
end if
sSQL = sSQL & " AND JOB.active = TRUE ORDER BY date_submitted 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
rsJobs.cursorlocation=aduseclient
rsJobs.cachesize = 5
rsJobs.open mySQL, objConn
if not rsJobs.EOF then
rsJobs.MoveFirst
'rsJobs.pagesize = mypagesize
maxpages = cint(rsJobs.pagecount)
maxrecs = cint(rsJobs.pagesize)
'rsJobs.absolutepage = mypage
howmanyrecs = 0
totalnumofrecs = rsJobs.recordcount
response.write "<p align=center><font face='verdana, arial, helvetica' size='2'><b>Total number of jobs found: " & totalnumofrecs & "</b></font><p>"
howmanyfields = rsJobs.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>Location</b></td><td bgcolor=""#DDDDDD""><b>Job Title</b></td><td bgcolor=""#DDDDDD""><b>School Name</b></td>"
'FOR i=0 to howmanyfields
'response.write "<td><b>" & rsJobs(i).name & "</b></td>"
'NEXT
response.write "</tr>"
' Now loop through the data
DO UNTIL rsJobs.eof 'OR howmanyrecs>=maxrecs
response.write "<tr>"
FOR i = 1 to howmanyfields
if i=3 then
fieldvalue = "<a href=details.asp?id=" & rsJobs(0)
if bRegion=true then
fieldvalue = fieldvalue & "&area=region"
else
fieldvalue = fieldvalue & "&area=metroarea"
end if
fieldvalue = fieldvalue & ">" & rsJobs(i) & "</a>"
else
fieldvalue=rsJobs(i)
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>"
rsJobs.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write "</table></div><p>"
' close, destroy
'rsJobs.close
'set rsJobs=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 & "'>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 & "'>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 & "'>" & 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 & "'>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 & "'>Last Page</a>"
Response.Write ref
end if
response.write "<br></font>"
response.write "</td>"
response.write "</table></div>"
end sub
Response.Write "<p align=center><a href=""default.asp"">Search Again</a><p>"
rsJobs.Close
objConn.Close
else
Response.Write "<p align=center>No jobs found.<p>"
Response.Write "<p align=center><a href=""default.asp"">Search Again</a><p>"
rsJobs.Close
objConn.Close
end if
%><!--#include file=bottom.asp--><!--#include file=footer.asp-->