%@ Page Language="VBScript" Debug="true" %>
Change AssessmentTake 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 %>
|