<%@ Page Language="VBScript" Debug="true" %> Progressing Through Change: Change Assessment Progressing Through Change > Change Assessment

Change Assessment

Take a few minutes to complete the survey below. It contains 24 statements about dealing with the change you are facing. Read each statement in the survey and decide if you Strongly Agree, Agree, are Neutral, Disagree, or Strongly Disagree with the statement. You should not spend time analyzing each statement. Respond to each statement with your immediate “gut” response.

This survey is for your use only. Your responses are not being recorded. When you click the “Submit Assessment” button, you will learn about how you are progressing through this change.

<% 'Check if they have submitted their info Dim x, DenialScore, OpposeScore, ExploreScore, EngageScore, TotalResponse, MeanScore, DenialDev, OpposeDev, ExploreDev, EngageDev Dim a1, a2, a3, a4, a5, a6 Dim b1, b2, b3, b4, b5, b6 Dim c1, c2, c3, c4, c5, c6 Dim d1, d2, d3, d4, d5, d6 Dim fstemp, whichFN, IPNum, filetemp If Request("incoming") = "duck" Then 'Show the results 'For Each x in Request.form 'execute(x & "=" & "Replace(Request.Form(x),ap1,ap2)") 'Eval(x & "=" & "Replace(Request.Form(x),ap1,ap2)") 'execute & "=" & "Replace(Request.Form(x),ap1,ap2)") 'response.write "
" & x & " = " & request.form(x) 'Next a1 = Request.Form.Item("a1") If a1 Is Nothing Then a1=0 a2 = Request.Form.Item("a2") If a2 Is Nothing Then a2=0 a3 = Request.Form.Item("a3") If a3 Is Nothing Then a3=0 a4 = Request.Form.Item("a4") If a4 Is Nothing Then a4=0 a5 = Request.Form.Item("a5") If a5 Is Nothing Then a5=0 a6 = Request.Form.Item("a6") If a6 Is Nothing Then a6=0 b1 = Request.Form.Item("b1") If b1 Is Nothing Then b1=0 b2 = Request.Form.Item("b2") If b2 Is Nothing Then b2=0 b3 = Request.Form.Item("b3") If b3 Is Nothing Then b3=0 b4 = Request.Form.Item("b4") If b4 Is Nothing Then b4=0 b5 = Request.Form.Item("b5") If b5 Is Nothing Then b5=0 b6 = Request.Form.Item("b6") If b6 Is Nothing Then b6=0 c1 = Request.Form.Item("c1") If c1 Is Nothing Then c1=0 c2 = Request.Form.Item("c2") If c2 Is Nothing Then c2=0 c3 = Request.Form.Item("c3") If c3 Is Nothing Then c3=0 c4 = Request.Form.Item("c4") If c4 Is Nothing Then c4=0 c5 = Request.Form.Item("c5") If c5 Is Nothing Then c5=0 c6 = Request.Form.Item("c6") If c6 Is Nothing Then c6=0 d1 = Request.Form.Item("d1") If d1 Is Nothing Then d1=0 d2 = Request.Form.Item("d2") If d2 Is Nothing Then d2=0 d3 = Request.Form.Item("d3") If d3 Is Nothing Then d3=0 d4 = Request.Form.Item("d4") If d4 Is Nothing Then d4=0 d5 = Request.Form.Item("d5") If d5 Is Nothing Then d5=0 d6 = Request.Form.Item("d6") If d6 Is Nothing Then d6=0 DenialScore = Int(a1) + Int(a2) + Int(a3) + Int(a4) + Int(a5) + Int(a6) OpposeScore = Int(b1) + Int(b2) + Int(b3) + Int(b4) + Int(b5) + Int(b6) ExploreScore = Int(c1) + Int(c2) + Int(c3) + Int(c4) + Int(c5) + Int(c6) EngageScore = Int(d1) + Int(d2) + Int(d3) + Int(d4) + Int(d5) + Int(d6) TotalResponse = 24 If a1 = 0 Then TotalResponse = TotalResponse - 1 If a2 = 0 Then TotalResponse = TotalResponse - 1 If a3 = 0 Then TotalResponse = TotalResponse - 1 If a4 = 0 Then TotalResponse = TotalResponse - 1 If a5 = 0 Then TotalResponse = TotalResponse - 1 If a6 = 0 Then TotalResponse = TotalResponse - 1 If b1 = 0 Then TotalResponse = TotalResponse - 1 If b2 = 0 Then TotalResponse = TotalResponse - 1 If b3 = 0 Then TotalResponse = TotalResponse - 1 If b4 = 0 Then TotalResponse = TotalResponse - 1 If b5 = 0 Then TotalResponse = TotalResponse - 1 If b6 = 0 Then TotalResponse = TotalResponse - 1 If c1 = 0 Then TotalResponse = TotalResponse - 1 If c2 = 0 Then TotalResponse = TotalResponse - 1 If c3 = 0 Then TotalResponse = TotalResponse - 1 If c4 = 0 Then TotalResponse = TotalResponse - 1 If c5 = 0 Then TotalResponse = TotalResponse - 1 If c6 = 0 Then TotalResponse = TotalResponse - 1 If d1 = 0 Then TotalResponse = TotalResponse - 1 If d2 = 0 Then TotalResponse = TotalResponse - 1 If d3 = 0 Then TotalResponse = TotalResponse - 1 If d4 = 0 Then TotalResponse = TotalResponse - 1 If d5 = 0 Then TotalResponse = TotalResponse - 1 If d6 = 0 Then TotalResponse = TotalResponse - 1 Dim ExpiryDate As DateTime = DateTime.Now() ExpiryDate = ExpiryDate.AddHours(5000) Response.Cookies("DS").Expires = ExpiryDate Response.Cookies("RS").Expires = ExpiryDate Response.Cookies("ES").Expires = ExpiryDate Response.Cookies("SS").Expires = ExpiryDate Response.Cookies("TotalResponse").Expires = ExpiryDate Response.Cookies("AssessRating").Expires = ExpiryDate Session("TotalResponse") = TotalResponse Session("DS") = DenialScore Session("RS") = OpposeScore Session("ES") = ExploreScore Session("CS") = EngageScore MeanScore = CLng((DenialScore + OpposeScore + ExploreScore + EngageScore) / 5) 'Response.Write ("Denial Score: " & DenialScore) 'Response.Write ("
Opposition Score: " & OpposeScore) 'Response.Write ("
Exploration Score: " & ExploreScore) 'Response.Write ("
Enagement Score: " & EngageScore) 'Response.Write ("
Mean Score: " & MeanScore) 'Figure Out which (if any) box is the highest DenialDev = DenialScore - MeanScore OpposeDev = OpposeScore - MeanScore ExploreDev = ExploreScore - MeanScore EngageDev = EngageScore - MeanScore If DenialScore > OpposeScore And DenialScore > ExploreScore And DenialScore > EngageScore Then 'They are in Denial Session("AssessRating") = "Denial" ElseIf ExploreScore > DenialScore And ExploreScore > OpposeScore And ExploreScore > EngageScore Then 'They are in Exploration Session("AssessRating") = "Exploration" ElseIf OpposeScore > DenialScore And OpposeScore > ExploreScore And OpposeScore > EngageScore Then 'They are in Opposition Session("AssessRating") = "Opposition" ElseIf EngageScore > DenialScore And EngageScore > ExploreScore And EngageScore > OpposeScore Then 'They are in Engagement Session("AssessRating") = "Engagement" Else 'Can't determine clear category... Session("AssessRating") = "Undetermined" End If Response.Cookies("AssessRating").Expires = ExpiryDate Response.Cookies("AssessRating").Value = Session("AssessRating") 'Write to assess.txt file the results fstemp = Server.CreateObject("Scripting.FileSystemObject") whichFN = Server.MapPath("dat/assess.txt") IPNum = Request("REMOTE_ADDR") filetemp = fstemp.OpentextFile(whichFN, 8) filetemp.writeline(IPNum & ", " & Now() & ", " & Session("AssessRating")) filetemp.close() fstemp = Nothing 'Response.End Response.Redirect("change_curve.aspx") End If %>

PTC
Change Assessment

This survey is for your use only. Your responses are not being recorded.
 
1. I am not interested in talking with anyone about this change.
2. My preference is to keep everything the way it was before.
3. I'm excited about all the new possibilities this change will allow.
4. As my colleagues and I face new challenges, I'm confident we will be able to overcome obstacles successfully.
5. This change won't have any effect on me or how I function.
6. I shouldn't be expected to do all of the work associated with this change.
7. This change is disrupting things, but at least it is addressing important issues.
8. I would not go back to the way things were before this change.
9. The reality of this change has not set in yet.
10. I think this change is a bad decision and will never work.
11. I am energized and keep thinking of new opportunities this change will bring.
12. I have mastered what needs to be done to be effective with this change.
13. This whole change will blow over soon.
14. No one can make me change.
15. Recently, I've had a lot more energy to deal with this change.
16. I am comfortable and effective in the new environment this change has created.
17. I am unemotional, calm, and rational about this change.
18. I will let others think I support this change, even though I don't.
19. I'm surprised at how many things I am learning because of this change.
20. I've learned things in this change that will help me deal with the next change.
21. The people who decided to implment this change will change their minds.
22. If things had been done properly in the past, this change never would have been necessary.
23. I'm looking forward to working with colleagues on opportunities this change will create.
24. This change has stengthened me and my collegues and we recognize our new success.


Page 2 of 8 Click the “Submit Assessment” button above to move on >>