%@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 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
|
|
||||||||