<% Dim objiContent Dim dictICMSArticle on error resume next set objiContent = server.createobject("iContentL.ClientAPI") if err.number <> 0 then response.write "CreateObject Error - " & err.number & " - " & err.description & "
" response.end end if on error goto 0 set dictICMSArticle = server.createobject("Scripting.Dictionary") Sub DisplaySpecials dim sID dim sTitle dim aArticleId dim i dim rc dim sTxt End Sub Sub DisplayNews dim sID dim sTitle dim aArticleId dim i dim rc dim sTxt objiContent.GetLiveArticleList gIcmsInfo, 999, "id desc", "Headlines" if err.number <> 0 then showError if objiContent.MoreRecords = false then response.write "Read our Headlines articles here!" else while objiContent.MoreRecords = true objiContent.GetNextListRecord sID, sTitle objiContent.GetArticle gIcmsInfo, sID, dictICMSArticle response.write "

" & dictICMSArticle("teaser") & "

" dictICMSArticle.removeall wend end if objiContent.Done if err.number <> 0 then showError End Sub Sub DisplayTeaser (pCategory) dim sID dim sTitle dim aArticleId dim i dim rc dim sTxt dictICMSArticle.removeall objiContent.GetLiveArticleList gIcmsInfo, 1, "id desc", pCategory if err.number <> 0 then showError if objiContent.MoreRecords = false then response.write "Read our Current Events articles here!" else objiContent.GetNextListRecord sID, sTitle objiContent.GetArticle gIcmsInfo, sID, dictICMSArticle response.write dictICMSArticle("teaser") end if objiContent.Done if err.number <> 0 then showError End Sub Sub showError response.write "
Error: " & err.source & "
Number: " & err.number & "
Descr: " & err.description & "
" response.end End Sub Sub ShowTipOfTheDay Dim sDate Dim sWeekend Dim iDayNumber sDate = Now() sDate = left(sDate, Instr(sDate, " ")-1) set goCmd.ActiveConnection = goConn goCmd.CommandText = "usp_getTipOfTheDay" goCmd.CommandType = adCmdStoredProc goCmd.Prepared = True 'name, type, direction, size, value goCmd.Parameters.Append goCmd.CreateParameter("@theDate", adDate, adParamInput, 0, sDate) set goRs = goCmd.Execute if goRs.eof then response.write "No tip available today-- make up your own!" else iDayNumber = datepart("w", goRs(1)) if iDayNumber = 7 or iDayNumber = 1 then sWeekend = "Weekend Balance: " else sWeekend = "" end if response.write sWeekend & goRs(0) end if goRs.Close set goCmd.ActiveConnection = Nothing set goCmd = Nothing set goCmd = Server.CreateObject("ADODB.Command") End Sub Sub ShowSpotPoll Dim i, sFldName set goCmd.ActiveConnection = goConn goCmd.CommandText = "usp_getCurrentSpotPoll" goCmd.CommandType = adCmdStoredProc goCmd.Prepared = True set goRs = goCmd.Execute if goRs.eof then response.write "No spot poll available today-- make up your own!" else response.write "" & vbCrlf response.write goRs("question_text") & "

" & vbCrLf response.write "" & vbCrlf end if goRs.Close set goCmd.ActiveConnection = Nothing set goCmd = Nothing set goCmd = Server.CreateObject("ADODB.Command") End Sub %> PeoplePACT

 

Home

About Us

PeoplePACT Philosophy

PeoplePACT - In Action

Consulting and Speaking

Purchase Book

Contact Us

The PeoplePACT®

Achieving Exemplary Performance Through Humane Leadership

By

Denise McNerney & Lynn Rolston

Proof at last that boss can be more than a four-letter word

WHAT PEOPLE ARE SAYING ABOUT THIS LANDMARK BOOK!

“This book is unlike any other leadership book because of the concept of the PACT in PeoplePACT. You can’t treat people the same... the cookie-cutter approach just doesn’t work... take for example the Y and the X’ers... they want to be treated as individuals... people want parity of benefits, not the same. Making the PACT allows managers to do just that!”

— Leigh Branham - author
Keeping the People Who Keep You in Business

“I believe all leaders truly want to be good bosses but for whatever reasons don’t always know how. Leaders need employees to accomplish organizational goals; employees need leaders to accomplish personal goals. This mutual dependency cannot be superficial in order for both parties to be successful; it must be authentic and based on a formal foundation of a trusting relationship. The PeoplePACT is a refreshing and straightforward primer for new and seasoned leaders and employees alike on how to organize the steps and implement the pledge of the PACT that will lead to a satisfactory and effective relationship in the workplace”

— Lawrence J. Lesko, Ph.D., FCP
Director Office of Clinical Pharmacology,
U.S. Government - Food & Drug Administration

“This book brings together in an understandable and usable form the best of management and leadership theories and practice. Bolstered with examples that demonstrate the PACT principles in action. PeoplePACT is applicable not only to business situations but also for not-for-profit, academic, and volunteer situations -- any place there are followers and leaders who want to do a good job. Personally it was a timely read as I started a large, college-wide project involving faculty and administrators -- a reminder that the way to get the best work from a team is by providing "performance support" in an humane environment.”

— BK Griesemar
Prof, Psychology, ABIT
University of Hawaii

“This is a book you can dig into. I really like two angles the book takes — one, it is practical and filled with examples. The other angle is that it is human and caring and always puts people first. That is what makes it credible and an approach that you can feel very good about using. “

— John P. Schuster - author
Answering Your Call…

ABOUT THE BOOK

The contributions of people within an organization are the core of any business. The PACT is a guide for creating a mutual commitment aligning employees with their organization’s goals and leaders with their team member’s goals.

In The PeoplePACT readers find a step-by-step outline of the PACT process, enabling seasoned as well as up-and-coming leaders to achieve brilliant results. Real work examples provide a clear basis for responding to complex management issues. Whether you are an “official” leader with direct reports or a project or team manager, struggling to lead without the “bond of authority”, this book can provide essential guidance to be more effective in your role.

This book incorporates the materials that leaders will need to start the PACT process. With detailed instructions and worksheets, this is a management tool. When this tool is put to use individuals and organizations can experience unprecedented success.

It all starts with –
PERSPECTIVE, ACKNOWLEDGEMENT, COLLABORATION, TRUST AND MAKING THE PACT!

ABOUT THE PROCESS OF MAKING THE PACT

Leadership is about many things, including:

  • Achieving exemplary results
  • Supporting the work of your team members in achieving results
  • Supporting the growth and development of your team members through mentorship, feedback and example

Making the PACT is about a process by which a leader can accomplish these key responsibilities in a way that promotes a thriving work environment, where both the bottom-line improves, as well as employees advance their own development and have high job satisfaction. This results in lower turnover rates – which in and of itself has significantly positive effects on the bottom-line. Additionally, satisfied and effective employees bring better quality outcomes and highly satisfied customers.

At its simplest, making the PACT is the process of creating a mutual commitment between the boss and the individual employee that aligns the employee with organizational goals and the leader with employee’s goals.

More guidance on making the PACT

<% goCleanup %> <% 'if trim(request.cookies("popup")) = "" then ' 'end if %>