<%
Dim currDate,n
GetCurrentDate
If Request.Cookies("refresh_QK") ="" Then
n = 0.3
Response.Cookies("refresh_QK") = 2
Else
n = 3600
End If
%>
Quadrant Consulting Human Resource Unit
Quadrant Consulting offers
an exclusive, value-added, personalised
service in staff recruitment, for both temporary and permanent jobs, at
competitive rates. We aim to exceed our clients' expectations by offering
staff of an exceptionally high calibre.
Quadrant Consulting has established itself
as the premier consulting firm, offering recruitment
services in Maseru. Our recruitment service is designed
to simplify the hiring process and minimize the risks
that usually accompany the tedious process of hiring.
We recognize the timely manner in which your hiring schedule
must be met. In addition to alleviating the immediate
staffing needs of your business, we look to establish a
working relationship for the long term. Our goal is to
create the perfect match between client and candidate.
Services offered include:
Head-hunting
Advertising
Drafting/Designing
of advertisements
Placement of ads in
the newspapers, etc
Issuing and
receiving of applications
Pre-screening of
applications
Scheduling of
appointments for interviews, tests, etc
<%
Sub GetCurrentDate
Dim currDay,currYear,currMonth
Select Case Month(Date)
Case 1
currMonth ="January"
Case 2
currMonth ="February"
Case 3
currMonth ="March"
Case 4
currMonth ="April"
Case 5
currMonth ="May"
Case 6
currMonth ="June"
Case 7
currMonth ="July"
Case 8
currMonth ="August"
Case 9
currMonth ="September"
Case 10
currMonth ="October"
Case 11
currMonth ="November"
Case 12
currMonth ="December"
End Select
Select Case WeekDay(Date)
Case 1
Today ="Sunday"
Case 2
Today ="Monday"
Case 3
Today ="Tuesday"
Case 4
Today ="Wednesday"
Case 5
Today ="Thursday"
Case 6
Today ="Friday"
End Select
currDay = Day(Date)
currYear = Year(Date)
currDate =Today &","& currDay &" "& currMonth &" "& currYear
End Sub
%>
