Organizational Leadership & Management is not easy. You need to hire, coach, supervise, and retain a high-performance team that will build long-term profitable customer relationships, capture market share, and impact bottom-line results. As a leader, you will need to continuously improve your people leadership skills and management skills, no matter what your proficiency and level, to accomplish your business objectives.  Fortune 500 companies have learned that executive management training and lifelong learning are critical strategic weapons around the globe AND now you can obtain the same high-quality management and team leadership programs... at a price you can afford. Choose from among our leadership training and management training programs: <% 'Use this to set the category list to the SKILL AREAS category Dim objCurrentCategory Set objCurrentCategory = Server.CreateObject("ACBStore.tCategory") If(objCurrentCategory.Load(objToken, 2)) Then %> <% If(IsObject(objCurrentCategory)) Then Dim intCurrentCategoryID intCurrentCategoryID = 0 If(IsObject(objCurrentCategory)) Then intCurrentCategoryID = objCurrentCategory.Category_ID Dim adoSubCategories Set adoSubCategories = objToken.cnnStoreGroup.QueryRS("SELECT Category_ID FROM CATEGORIES WHERE Store_ID = " & objToken.SID & " AND Parent_ID = " & intCurrentCategoryID & " AND Visible = 1 ORDER BY OrderBy") If(Not adoSubCategories.EOF) Then Dim objSubCategory Set objSubCategory = Server.CreateObject("ACBStore.tCategory") %> <% Do Until(adoSubCategories.EOF) If(objSubCategory.Load(objToken, adoSubCategories.Fields("Category_ID").Value)) Then %> <% End If objSubCategory.Reset adoSubCategories.MoveNext Loop %> <%If(FileExistsBLN(objSubCategory.Thumbnail)) Then%> border="0"> <%End If%> <%=objSubCategory.Name%> - <%=objSubCategory.Description%> Click here >> <% Set objSubCategory = Nothing End If Set adoSubCategories = Nothing End If %> <% End If objCurrentCategory.Reset Set objCurrentCategory = Nothing %>

<% Dim arrTestimonialObjects arrTestimonialObjects = GetTestimonialObjectARR(1, "Leadership Management") For intI = 0 To UBound(arrTestimonialObjects) - 1 Dim objTestimonial Set objTestimonial = arrTestimonialObjects(intI) %> <% If(IsObject(objTestimonial)) Then 'Get the text header for the display box Dim strHeaderText strHeaderText = "Our Clients Say:" If(Len(objTestimonial.FieldValue(cTestimonialNameFieldName)) > 0) Then strHeaderText = objTestimonial.FieldValue(cTestimonialNameFieldName) & " Says:" 'Get the text for the display box, chop to 255 characters Dim strText strText = objTestimonial.FieldValue(cTestimonialTextFieldName) strText = """ & Left(strText, 255) & "..." [more]" 'Get the testimonial source for the display box Dim strSourceText, strSep strSourceText = "" strSep = "" If(Len(objTestimonial.FieldValue(cTestimonialNameFieldName)) > 0) Then strSourceText = strSourceText & strSep & objTestimonial.FieldValue(cTestimonialNameFieldName) strSep = ", " End If If(Len(objTestimonial.FieldValue(cTestimonialTitleFieldName)) > 0) Then strSourceText = strSourceText & strSep & objTestimonial.FieldValue(cTestimonialTitleFieldName) strSep = ", " End If If(Len(objTestimonial.FieldValue(cTestimonialOrganizationFieldName)) > 0) Then strSourceText = strSourceText & strSep & objTestimonial.FieldValue(cTestimonialOrganizationFieldName) strSep = ", " End If %> <%=strHeaderText%> <% If(Len(objTestimonial.FieldValue(cTestimonialImageURLFieldName)) > 0) Then %> <% End If %> <%=Replace(strText, vbCrLf, " ")%> <% If(Len(objTestimonial.FieldValue(cTestimonialURLFieldName)) > 0) Then %> <%=strSourceText%> <% Else %> <%=strSourceText%> <% End If %> More Testimonials >> <% End If %> <% Set objTestimonial = Nothing Next %>

CRKInteractive, Inc.
2 Dundee Park
Suite 203
Andover, MA 01810

Phone: (978) 474-8657 X 13 or (215) 493-2465
Fax: (978) 474-8659
Email: sales@crkinteractive.com

<% If(EcomIsUserEcomEnabledBLN(objToken, objUser)) Then %> SHOPPING CART | SPECIALS  | ACCOUNT | LOGOUT |  <% End If %> SEARCH | POLICIES | SUPPORT

Copyright © CRKInteractive, Inc. 2008

<% intHorizontalAdDisplayCount = 3 %> <% intHorizontalAdDisplayCount = 0 If(Request.ServerVariables("HTTPS") = "off" And intHorizontalAdDisplayCount > 0) Then %>

	Advertisement
<%=GetAdsHorizontalHtmlSTR(intHorizontalAdDisplayCount)%>

<% End If %>