%@ Language="VBScript" %> <% option explicit %> <% Section = "LookingForJobs" GetPageDetails(13) openDB DBFile dim JobLocation, JobPosition, arrJobList, j, intJobCount, sector, jsDetails dim arrRegions, arrPositions, s, p, arrJobDetails, arrSectors dim jl, jp, ds, js, jd, jid, kw, sec ds = request("ds") jl = request("jl") jp = request("jp") js = request("js") jd = request("jd") kw = request("kw") jid = request("jid") sec = request("sec") if ds = "yes" then strSQL = "SELECT * FROM jobs " & _ "WHERE active=Yes " if not jl = "" then strSQL = strSQL & "AND region like '" & trim(replace(jl, "'", "''")) & "' " if not jp = "" then strSQL = strSQL & "AND role like '" & trim(replace(jp, "'", "''")) & "' " strSQL = strSQL & "ORDER BY posted DESC, salaryk ASC" openRS strSQL intJobCount = objRS.RecordCount if not objRS.eof then arrJobList = objRS.getRows() closeRS end if if not jid = "" then strSQL = "SELECT jobtitle, role, city, region, salaryk, [salary extra], shortdesc, longdesc, ref, discipline, sector, posted FROM Jobs WHERE JobId=" & jid & " AND Active=Yes" openRS strSQL if not objRS.eof then arrJobDetails = objRS.getRows() closeRS end if strSQL = "SELECT DISTINCT region FROM jobs WHERE active=Yes ORDER BY region" openRS strSQL if not objRS.eof then arrRegions = objRS.getRows() closeRS strSQL = "SELECT DISTINCT role FROM jobs WHERE active=Yes ORDER BY role" openRS strSQL if not objRS.eof then arrPositions = objRS.getRows() closeRS strSQL = "SELECT Name FROM Sector WHERE Active=Yes ORDER BY Name" openRS strSQL if not objRS.eof then arrSectors = objRS.getRows() closeRS strSQl = "SELECT Details FROM Sector WHERE Name='" & replace(js, "'", "''") & "' AND Active=Yes" openRS strSQL if not objRS.eof then jsDetails = objRS(0) closeRS closeDB %>
<%=intJobCount%> positions found
<%=arrJobList(1,j)%> : Reference <%=arrJobList(9,j)%> : <%if not arrJobList(5,j) = "" then response.write "£" & formatnumber(arrJobList(5,j), 0, -1)%>
<%=arrJobList(3,j)%>, <%=arrJobList(4,j)%> <%=formatdate(arrJobList(12,j), "%d%O %b %Y")%>
<%=arrJobList(7,j)%>
Unfortunately your search found no results. Please try again later or change your search criteria.
<%end if%>Reference: <%=arrJobDetails(8,0)%> - apply online
<%=arrJobDetails(5,0)%>
<%=arrJobDetails(2,0)%>, <%=arrJobDetails(3,0)%>
<%=replace(arrJobDetails(7,0), vbcrlf, "
")%>