To serve, to serve fully, promptly and efficiently, to serve beyond the terms of contract. 35 years of Professional Excellence
InterManagement Manpower Services Limited
AN ISO 9001 - 2008
Certified Organisation
<% 'if Session("sUsername")="" then 'response.redirect "adminlogin.asp" 'response.end 'end if %> <% dim rsTemp,conntemp, mySql,rsTemp2,msg msg="" const numPerPage = 20 pOrderPrefix =getSetting("pOrderPrefix") if request.queryString("curPage") = "" then curPage = 1 else curPage = request.queryString("curPage") end if pRsid=request.QueryString("rsid") if request.QueryString("cpage")<>"" then pSearchTitle=request.QueryString("searchtitle") pSearchFrom=trim(request.queryString("searchfrom")) pSearchTo=trim(request.queryString("searchto")) categoryid=trim(request.queryString("categoryid")) pLocation=trim(request.queryString("Location")) pExp=trim(request.queryString("exp")) pKeyword=trim(request.queryString("Keyword")) end if if request.form("Search")<>"" then pSearchFrom=trim(request.form("searchfrom")) pSearchTo=trim(request.form("searchto")) pSearchTitle=trim(request.form("searchtitle")) categoryid=trim(request.form("categoryid")) pLocation=trim(request.form("Location")) pExp=trim(request.form("exp")) pKeyword=trim(request.form("Keyword")) curPage = 1 end if if categoryid="" then categoryid=0 mySQL="SELECT jobID, position,country_location,sate_location,organisation_name,postdate FROM Vacancy where active=1" if pRsid <> "" then mySQL=mySQL&" and industry_type="&cInt(pRsid) end if if pSearchTitle<>"" then pSearchTitle=quotesreplace(pSearchTitle) mySQL=mySQL&" and position like '%"&pSearchTitle&"%'" end if if pSearchFrom <>"" and pSearchTo <>"" then pSearchFrom=FormatDateTime(pSearchFrom,2) pSearchTo=FormatDateTime(pSearchTo,2) mySQL=mySQL&" and postdate between #"&pSearchFrom&"# and #"&pSearchTo&"#" end if if (categoryid <> "" and categoryid <> "0" ) then mySQL=mySQL&" and industry_type="&categoryid end if if pKeyword<>"" then mySQL=mySQL&" and Keyword Like '%"&pKeyword&"%'" end if if pLocation<>"" then mySQL=mySQL&" and country_location='"&pLocation&"'" end if if (pExp<>"" and pExp<>"0") then mySQL=mySQL&" and maximum_exp <="&pExp end if mySQL=mySQL&" ORDER BY position" on error resume next 'response.write mySQL 'response.end call getFromDatabasePerPage(mySQL, rsTemp1) %> <% ' get CountryCodes mySQL22="SELECT countryCode, countryName FROM countryCodes ORDER BY countryName" call getFromDatabase(mySql22, rstemp22) arrCountryIndex=0 dim arrCountry(8000,2) do while not rstemp22.eof arrCountry(arrCountryIndex,0) = rstemp22("countryCode") arrCountry(arrCountryIndex,1) = rstemp22("countryName") arrCountryIndex = arrCountryIndex+1 rstemp22.movenext loop%> <% ' get child categories mySQL="SELECT idCategory, categoryDesc, idParentCategory, displayOrder FROM categories WHERE idParentCategory=1 AND idCategory<>1 AND Active=1 ORDER BY displayOrder,categoryDesc" call getFromDatabase (mySql, rsTemp) if rstemp.eof then response.redirect "displaymessage.asp?message="& Server.Urlencode("No categories defined") end if arrCategoriesIndex=0 ' get leaf categories dim arrCategories(8000,2) do while not rstemp.eof pCategoryDesc1=rstemp("categoryDesc") pCategoryDesc1=replace(pCategoryDesc1,"`","'") arrCategories(arrCategoriesIndex,0) = rstemp("idCategory") arrCategories(arrCategoriesIndex,1) = pCategoryDesc1 arrCategoriesIndex = arrCategoriesIndex+1 'response.write pCategoryDesc 'call getChildCategories(rstemp("idCategory"),1,0) rstemp.moveNext loop %>


Search Jobs
Category  
Location  
Experience     years  
Position  
Keyword  
From Date     Click here to select a date  Clear
To Date    Click here to select a date  Clear
<%if rstemp1.eof then %>



No Job Vacancies available <%if len(pSearchTitle) >0 then response.write "for Position starting with :"&pSearchTitle end if %>

<% else rstemp1.moveFirst rstemp1.pageSize = numPerPage totalPages = rstemp1.PageCount rstemp1.absolutePage = curPage count=0 %>
  Job Vacancies
<% i=((curPage-1)*numPerPage)+1 do while not rstemp1.eof and count < rstemp1.pageSize pIdJob = rstemp1("jobID") pPsitions = rstemp1("position") pLocations = rstemp1("country_location")' & ", " & rstemp1("sate_location") pOrganisation = rstemp1("organisation_name") posteddate = rstemp1("postdate") if count mod 2 = 0 then bc="#F4F4F2" else bc="#F4F4F2" end if pTotal=rstemp1.RecordCount currentPage=curPage if pTotal=1 then currentPage=1 else if pTotal mod numPerPage=1 then if i=pTotal then currentPage=curPage-1 end if end if end if %> <% i=i+1 count = count + 1 rstemp1.moveNext loop %>
 Posted  Position  Organization  Location
<%=DateMonthForm(posteddate)%>  <%=UCase(pPsitions) %>  <%=pOrganisation %>  <%=descValueText("countryCodes","countryName","countryCode",pLocations)%> 


<%if (rstemp1.RecordCount) > (rstemp1.PageSize) then %> <%end if%>
Page <%=curPage%> of <%=rstemp1.PageCount%>
Total <%=(rstemp1.RecordCount)%> Vacancy(s)
Pages :     <%if (curPage > 1) then%> << First  < Prev  <%end if %> <%for i= 1 to rstemp1.PageCount %> <%if (cInt(curPage) = i) then %> <%=i%> <%else%> <%=i%> <%end if%>   <%next%> <% if ((curPage+1) <= (rstemp1.PageCount)) then%> Next >  Last >>  <%end if %>
<%end if%>
<%=msg %>

<%function getChildCategories(idParentCategory2, idPreviousParentCategory, tabs) dim mySql2, rstemp2 mySql2="SELECT idCategory, categoryDesc, idParentCategory,displayOrder FROM categories WHERE idParentCategory=" &idParentCategory2&" AND Active=1 ORDER BY displayOrder,categoryDesc" call getFromDatabase (mySql2, rsTemp2) do while not rstemp2.eof pCategoryDesc2 =rstemp2("categoryDesc") pIdCategoryChild =rstemp2("idCategory") pdisplayOrder =rstemp2("displayOrder") if idPreviousParentCategory<>idParentCategory2 then if idPreviousParentCategory>idParentCategory2 then tabs = tabs - 1 else tabs = tabs + 1 end if idPreviousParentCategory = idParentCategory2 end if Aux = "" for f = 1 to tabs Aux = Aux & "---" next arrCategories(arrCategoriesIndex,0) = pIdCategoryChild arrCategories(arrCategoriesIndex,1) = Aux & pCategoryDesc2 arrCategoriesIndex = arrCategoriesIndex+1 call getChildCategories(pIdCategoryChild, idPreviousParentCategory, tabs) rstemp2.movenext loop end function function isChildCategory(idCategory) dim mySql3, rstemp3 mySQL3="SELECT idCategory FROM categories WHERE idParentCategory=" &idCategory& " " call getFromDatabase (mySql3, rsTemp3) if rstemp3.eof then isChildCategory=1 else isChildCategory=0 end if end function %><% rsTemp.close set rsTemp = nothing rstemp2.close set rstemp2 = nothing rsTemp3.close set rsTemp3 = nothing rstemp4.close set rstemp4 = nothing call closeDb() %>
To serve, to serve fully, promptly and efficiently, to serve beyond the terms of contract