<%@LANGUAGE="VBSCRIPT"%> <% Dim rsCats Dim rsCats_numRows Set rsCats = Server.CreateObject("ADODB.Recordset") rsCats.ActiveConnection = MM_pcs_1_STRING rsCats.Source = "SELECT * FROM QryCats ORDER BY Category ASC" rsCats.CursorType = 0 rsCats.CursorLocation = 2 rsCats.LockType = 1 rsCats.Open() rsCats_numRows = 0 %> <% Dim rsSubCats Dim rsSubCats_numRows Set rsSubCats = Server.CreateObject("ADODB.Recordset") rsSubCats.ActiveConnection = MM_pcs_1_STRING rsSubCats.Source = "SELECT * FROM QrySubCats ORDER BY SubCat ASC" rsSubCats.CursorType = 0 rsSubCats.CursorLocation = 2 rsSubCats.LockType = 1 rsSubCats.Open() rsSubCats_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsCats_numRows = rsCats_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Professional Career Services
PCS Professional Career Services
 


Johannesburg
randburg@pcs-sa.co.za
+27(11) 789 3337

Cape Town
capetown@pcs-sa.co.za
+27(21) 914 5115

Durban
durban@pcs-sa.co.za
+27 (31) 563 6616
Port Elizabeth
bruce@pcs-sa.co.za
+27(41) 581 2994

About PCS Message from the MD

Celebrating 25 years of service
I am proud to say that 2008 marked the 25th Anniversary of Professional Career Services. Over these many years, we have had good times and not so good times, we have expanded and contracted, and expanded again, we have had many people come and go, but always we have strived to provide a professional service in our fields of expertise and have attempted to live up to our motto:

Prompt & Professional Service with Integrity & Care

For the last 5 years, we have been on an expansion drive nationally in order to provide a more comprehensive service to our National & Local Clients and to our Candidates. As a result we currently have "Branch" Offices in Johannesburg, Cape Town, Durban, Port Elizabeth and are looking to open additional other offices around the country whilst maintaining the personal service we have come to be known for.

Professional Career Services celebrated their 25th Anniversary in style at Monte Casino on Thursday the 27th of November 2008. This event was attended by a large number of our clients and some of our key suppliers .

I would like to take this opportunity to first of all thank all the staff - past & present - who have made the company what it is today. But thanks in the main to our present staff. There has never been - in the history of Professional Career Services - such a dedicated and "gung-ho" staff who have helped to create such a wonderful working environment like we presently have, thus enabling us to focus our attention in providing the expected service to our Clients and our Candidates.

I would also like to extend my thanks to all the wonderful Clients we have had the privilege to work with over these many years. It has been great to have been given the opportunity to be of service to you.

Thank you also to all the hundreds of Candidates we have placed over these many years. Many of them have certainly gone up the ladder and are today good Clients of ours. We look forward to the next 25 years with great enthusiasm and hope to be able to continue to play our part in the development of this great country of ours. A great philosopher once said that from South Africa will rise the next great civilization. We certainly believe this can well be the case and are determined to play our part in it.

Philip Park
Managing Director

 

  
<% rsCats.Close() Set rsCats = Nothing %> <% rsSubCats.Close() Set rsSubCats = Nothing %>