<%@language = vbscript %> <% 'option explicit Response.Buffer = true Response.Expires = 0 dim onunloadStr onUnloadStr = "" dim strTitle, strKeywords, strDescription, strGroup strTitle = "HOTS Survey - What Part of the Team Are You?" strKeywords = "" strDescription = "What Part of the Team Are You? The following HOTS Survey helps determine what role you play in getting the most done with the least difficulty." strGroup = "" 'Omniture Variables - Unique to this page dim SC_sPageName : SC_sPageName = "" dim SC_sServer : SC_sServer = "" dim SC_sChannel : SC_sChannel = "" dim SC_sPageType : SC_sPageType = "" dim SC_sProp1 : SC_sProp1 = "" dim SC_sProp2 : SC_sProp2 = "" dim SC_sProp3 : SC_sProp3 = "" dim SC_sProp4 : SC_sProp4 = "" dim SC_sProp5 : SC_sProp5 = "" '//eCommerce Variables dim SC_sCampaign : SC_sCampaign = "" dim SC_sState : SC_sState = "" dim SC_sZip : SC_sZip = "" dim SC_sEvents : SC_sEvents = "" dim SC_sProducts : SC_sProducts = "" dim SC_sPurchaseID : SC_sPurchaseID = "" dim SC_sVar1 : SC_sVar1 = "" dim SC_sVar2 : SC_sVar2 = "" dim SC_sVar3 : SC_sVar3 = "" dim SC_sVar4 : SC_sVar4 = "" dim SC_sVar5 : SC_sVar5 = "" 'START Header %> <% 'End Header ' START Main Table %> <% ' START SubNavigation %> <% ' END SubNavigation %>
<% ' START Content Table %> ") loop end sub '******************** 'END subChoices '******************** '******************** 'END subScoreTest '******************** sub subScoreTest 'Get the hare scores dim EScore, LScore, CScore, AScore dim i: i = 0 do while (i <= ubound(arrEarly)) EScore = EScore + (cint(Request.Form("E" & i))) i = i + 1 loop LScore = 50 - EScore i = 0 do while (i <= ubound(arrConceive)) CScore = CScore + (cint(Request.Form("C" & i))) i = i + 1 loop AScore = 50 - CScore dim intHare: intHare = EScore + CScore dim intOwl: intOwl = EScore + AScore dim intTurtle: intTurtle = LScore + CScore dim intSquirrel: intSquirrel = LScore + AScore 'Create the strings with the descriptions for the different personalities dim strBalanced: strBalanced = "

Your Answers Indicate A Balanced Role

" &_ "Balanced Role" &_ "

APPROACH: Conceptual/Spontaneous/Practical/Methodical

" &_ "

DESCRIPTION: The Balanced Role fills in for any missing profiles to keep the development or implementation process moving in the right direction. Understanding and empathizing with at least three of the four H.O.T.S..Innovation patterns,the Balanced Role is able to move with ease into a variety of roles, and take on the tasks associated with each role.

" &_ "

CONTRIBUTION: Stepping in at the appropriate spot to keep things moving, the Balanced Role plays an important role in moving the group toward its objectives.

" &_ "

WEAKNESESS: The Balanced Role may not be as strong in each profile as others with higher scores.

" &_ "

INSTINCT: Adapting to the need at hand.

" dim strHO: strHO = "

Your Answers Indicate A Hare/Owl Role

" &_ "Hare / Owl Role" &_ "

APPROACH: Conceptual/Spontaneous/Practical

" &_ "

DESCRIPTION: The Hare/Owl is an idea generator who is also a true entrepreneur. They are good at exploring alternatives and concepts, and they are also more comfortable with an insightful plan. The Hare/Owl is able to generate ideas and develop a plan, based on past experience,to promote those ideas successfully.

The Hare/Owl derives satisfaction from identifying good ideas and developing solutions and strategies to overcome obstacles to implementation. They enjoy working on multiple tasks and like to be involved with the creation and advancement of ideas.

When everything is in its place,the Hare/Owl may get impatient, ready for the next challenge.

" &_ "

CONTRIBUTION: Development of new concepts and ideas that can be advanced within a known process or structure.

" &_ "

WEAKNESESS: The Hare/Owl may become frustrated with the details of an orderly implementation plan, and may pay little attention to the danger signs and barriers associated with implementation.

" &_ "

INSTINCT: Creating new ideas and advancing them in pursuit of team objectives.

" dim strOS: strOS = "

Your Answers Indicate A Owl/Squirrel Role

" &_ "Owl / Squirrel Role" &_ "

APPROACH: Spontaneous/Practical/Methodical

" &_ "

DESCRIPTION: The Owl/Squirrel develops methods and approaches to promote and implement new ideas.Armed with the skills to develop a plan to successfully implement a solution,and the desire to think things through and work out problems before implementation, they will work quickly to achieve the team's objectives.

Looking for early trends and familiar ideas,the Owl/Squirrel streamlines the process to accomplish their objectives.The Owl/Squirrel prefers familiar,proven ideas, and demands a rational and orderly implementation plan.

" &_ "

CONTRIBUTION: Promoting team objectives by setting priorities,advancing the concept and finishing the job.

" &_ "

WEAKNESESS: The Owl/Squirrel may not allow others on the team to continue to create ideas and solutions before selecting solutions and moving forward with an implementation plan and process.

" &_ "

INSTINCT: Advancing new directions and developing detailed implementation plans.

" dim strTS: strTS = "

Your Answers Indicate A Turtle/Squirrel Role

" &_ "Turtle / Squirrel Role" &_ "

APPROACH: Conceptual/Methodical/Practical

" &_ "

DESCRIPTION: The Turtle/Squirrel explores alternative solutions and ideas while paying attention to detailed implementation plans. When presented with an idea,the Turtle/Squirrel will consider aspects of the idea that may present problems, paying partic-ular attention to the implementation details. They will think of ways in which the new idea can fit into the existing process.

Good at visualizing the master plan and analyzing things, the Turtle/Squirrel is able to recognize alternatives. They prefer to think things over carefully before using a proven process when solving problems.

The Turtle/Squirrel likes to see things fit together, generally follows an orderly process, and derives satisfaction from developing a well-thoughtout implementation plan.

" &_ "

CONTRIBUTION: Making sure the concept and the details of the implementation plan are thought through and carried out in an orderly manner.

" &_ "

WEAKNESESS: If working alone, the Turtle/Squirrel may continue to develop alternatives while paying attention to the details associated with each alternative, slowing the process down and limiting the introduction of riskier ideas.

" &_ "

INSTINCT: Improving ideas and developing detailed implementation plans.

" dim strHT: strHT = "

Your Answers Indicate A Hare/Turtle Role

" &_ "Hare / Turtle Role" &_ "

APPROACH: Spontaneous/Conceptual/Methodical

" &_ "

DESCRIPTION: The Hare/Turtle creates new ideas,then just as quickly, dismisses them. They are good at developing theories and principles and analyzing things.

The Hare/Turtle looks for solutions in unique and unusual contexts, and is able to identify consequences of actions associated with the implementation of the solution.

Preferring to be actively involved in things, the Hare/Turtle derives satisfaction from the process of creation, identifies potential problems, and develops ideas and plans to overcome any implementation problems created by their ideas.

" &_ "

CONTRIBUTION: Developing new concepts, identifying potential problems and creating an orderly plan to implement those ideas.

" &_ "

WEAKNESESS: If left alone,the Hare/Turtle will come up with new ideas and refine those ideas without advancement of implementation.

" &_ "

INSTINCT: Development and improvement of ideas before implementation.

" dim strH: strH = "

Your Answers Indicate A Hare Role

" &_ "Hare Role" &_ "

APPROACH: Conceptual/Spontaneous

" &_ "

DESCRIPTION: The Hare generates the concepts and ideas. They like to reframe the problem and look for solutions that may be unusual, unique,and/or outside the boundaries of traditional thought. Hares are good at exploring alternatives and perceiving the "big picture".

Hares want freedom from constraint, and when a rule exists they may break it. They may act impulsively, letting their feelings guide them. They derive satisfaction from the process of creating,discussing concepts and ideas,and overcoming obstacles.

When everything is in its place,the Hare may become restless,get impatient,and have a tendency to move from one subject to another.

" &_ "

CONTRIBUTION: Fresh,original concepts that go beyond the obvious,and are not constrained by fear of failure.

" &_ "

WEAKNESESS: Because the Hare enjoys generating ideas, they may move from one idea to another without stopping to evaluate the consequences.

If left alone to refine concepts,they will solve the problem within the problem within the problem,and eventually lose sight of the objective.

" &_ "

INSTINCT: Reframing problems to achieve breakthrough solutions,moving in new directions,examining possibilities without regard to risk.

" dim strO: strO = "

Your Answers Indicate A Owl Role

" &_ "Hare Role" &_ "

APPROACH: Spontaneous/Practical

" &_ "

DESCRIPTION: The Owl recognizes ideas and new directions in their early stages and develops the means to promote or advance them. When presented with an idea,they think of how to get it implemented,using insightful planning based on past experiences and successful methods. The Owl may initially respond to ideas with skepticism,but will let accepted norms and their feelings guide them.

They derive satisfaction from instilling a sense of purpose in the team, and promoting that purpose with single-mindedness and determination. Their actions are directed to achieving objectives by the most direct,efficient means,and they are not inclined to let rules and boundaries discourage them.

The Owl is able to focus on many things at once,and may move from one subject to another. They enjoy respect and influence.

" &_ "

CONTRIBUTION: Energetically promoting team objectives. Recognizing the value of a new idea or trend,and actively carrying it forward.

" &_ "

WEAKNESESS: If left alone or working only with someone with a strong Conceptual Approach, the Owl may move ahead to implement concepts that aren't completely thought through, ignoring danger signs and realistic barriers to successful implementation.

" &_ "

INSTINCT: Choosing the highest priority ideas, and moving swiftly to see them implemented.

" dim strT: strT = "

Your Answers Indicate A Turtle Role

" &_ "Turtle Role" &_ "

APPROACH: Conceptual/Methodical

" &_ "

DESCRIPTION: The Turtle challenges concepts under discussion. Believing that consequences matter, the Turtle will want to plan how new endeavors are implemented and prepare for surprises. They like to create order from chaos, by improving the process by which ideas are implemented. The Turtle may play "devil's advocate" to test the soundness of an idea and try to improve it.

They prefer order,and are comfortable being methodical. They derive satisfaction from the mental exercise of the debate,and may lead others to examine the merits of an idea,using a systematic process in generating and exploring ideas.

" &_ "

CONTRIBUTION: Making sure that the concept is thought through, and examining how it can be improved and implemented.

" &_ "

WEAKNESESS: If allowed to control the group or the process,the Turtle may lead the team toward choosing low-risk ideas, filtering out ideas that may have greater risks,but also bigger payoffs.

" &_ "

INSTINCT: Prediction of the problems caused by new or unique ideas; improving ideas before implementation.

" dim strS: strS = "

Your Answers Indicate A Squirrel Role

" &_ "Squirrel Role" &_ "

APPROACH: Methodical/Practical

" &_ "

DESCRIPTION: The Squirrel, more interested in protecting the system than being in the meeting, follows-up on team objectives, and implements ideas and solutions. They focus on ensuring the implementation process runs in an orderly manner, and achieving high quality outcomes.

Squirrels prefer proven, familiar ideas over the novel and untried. They pay attention to details, and see that plans follow an orderly process.

The Squirrel is comfortable being methodical. They tend to be cautious in trying out a new approach, and prefer to think things over carefully before acting.

" &_ "

CONTRIBUTION: The details. Spotting easily overlooked problems before they occur, and minimizing inefficiencies and errors during implementation.

" &_ "

WEAKNESESS: If working without clear and focused objectives or guidelines, the Squirrel may lose sight of the goal and pursue irrelevant strategies.

" &_ "

INSTINCT: To finish what they start,and do things right.

" 'Figure out the area for the different animals dim strPersonality'to store in database 'Find out what they are! if (intHare - intOwl - intSquirrel - intTurtle = 0) then 'Balanced strPersonality = "Balanced" Response.Write(strBalanced) elseif (intHare = intOwl) then 'Hare/Owl strPersonality = "Hare/Owl" Response.Write(strHO) elseif (intOwl = intSquirrel) then 'Owl/Squirrel strPersonality = "Owl/Squirrel" Response.Write(strOS) elseif (intTurtle = intSquirrel) then 'Turtle/Squirrel strPersonality = "Turtle/Squirrel" Response.Write(strTS) elseif (intHare = intTurtle) then 'Hare/Turtle strPersonality = "Hare/Turtle" Response.Write(strHT) elseif (intHare > intOwl) and (intHare > intSquirrel) and (intHare > intTurtle) then 'Hare strPersonality = "Hare" Response.Write(strH) elseif (intOwl > intHare) and (intOwl > intSquirrel) and (intOwl > intTurtle) then 'Owl strPersonality = "Owl" Response.Write(strO) elseif (intSquirrel > intHare) and (intSquirrel > intOwl) and (intSquirrel > intTurtle) then 'Squirrel strPersonality = "Squirrel" Response.Write(strS) else 'Turtle strPersonality = "Turtle" Response.Write(strT) end if 'Record their personality into the database dim HotsStrSql, HotsDbConn HotsStrSql = "insert into ommHOTSPersonalities(personality) values('" & strPersonality & "')" set HotsDbConn = server.CreateObject("adodb.connection") HotsdbConn.Open Application("DB") HotsDbConn.execute(HotsStrSql) HotsDbConn.close set HotsDbConn = nothing end sub '******************** 'END subScoreTest '******************** '************************************************************ 'END Subs and Functions '************************************************************ dim strPageName if (Request.Form.Count < 1) then 'Show the instructions and Questions strPageName = "WHEN YOU'RE DOING WHAT YOU LOVE, WHO ARE YOU?" Response.Write("Hare" &_ "Owl" &_ "Turtle" &_ "Squirrel" &_ "

" & strPageName & "

" &_ "
") subShowInstructions subShowQuestions else 'Score it strPageName = "H.O.T.S. Survey: Results" Response.Write("

" & strPageName & "

" &_ "
") subScoreTest subShowForward end if %>
<% 'Get the questions dim arrEarly: arrEarly = array("what is", "order", "status quo", "profit", "incremental", "wait", "information", "influence", "barriers", "preserve system") dim arrLate: arrLate = array("what if", "chaos", "new ideas", "revenue", "radical", "jump in", "intuition", "go along", "attractions", "reinvent") dim arrConceive: arrConceive = array("tactics", "fine points", "actualization", "the priorities", "the applications", "metaphoric", "instructions", "the events", "fanciful", "reads directions") dim arrActualize: arrActualize = array("strategy", "big picture", "conception", "the discussion", "the principle", "literal", "figures it out", "the master plan", "practical", "figures it out") '************************************************************ 'START Subs and Functions '************************************************************ '******************** 'START subShowForward '******************** sub subShowForward Response.Write("
") Response.Write("") Response.Write("") Response.Write("
") Response.Write("
") Response.Write("

Did you find this tool helpful? If so Pass it along!
CLICK HERE to send it to someone you know!

") end sub '******************** 'START subShowForward '******************** '******************** 'START subShowInstructions '******************** sub subShowInstructions Response.write("Mark the box (just one) in each row that most describes you when you're working in your strengths and talents.
" &_ "EXAMPLE: reality imagination" &_ "
") end sub '******************** 'END subShowInstructions '******************** '******************** 'START subShowQuestions '******************** sub subShowQuestions 'Counters for the questions and the groups dim qCounter, gCounter, side gCounter = 0 'Initialize randomizer Randomize Response.Write("") Response.Write("") do while (gCounter <= 1) qCounter = 0 if (gCounter = 0) then 'Show the early questions do while (qCounter <= ubound(arrEarly)) if (qCounter <> 0) then 'Show a horizontal line Response.Write("" &_ "" &_ "") end if Response.Write("") 'Decide which one is on the left or right side = int((rnd * 2) + 1) if (side = 1) then 'Early is on the left Response.Write("") subChoices gCounter,qCounter,side Response.Write("") else 'Late is on the right Response.Write("") subChoices gCounter,qCounter,side Response.Write("") end if qCounter = qCounter + 1 Response.Write("") loop else 'Show the Conceptualize and Actualiz questions do while (qCounter <= ubound(arrEarly)) 'Show a horizontal line Response.Write("" &_ "" &_ "") Response.Write("") 'Decide which is on the left or right side = int((rnd * 2) + 1) if (side = 1) then 'Conceive is on the left Response.Write("") subChoices gCounter,qCounter,side Response.Write("") else 'Actualize is on the right Response.Write("") subChoices gCounter,qCounter,side Response.Write("") end if qCounter = qCounter + 1 Response.Write("") loop end if gCounter = gCounter + 1 loop Response.Write("" &_ "" &_ "") Response.Write("") Response.Write("

" & arrEarly(qCounter) & "" & arrLate(qCounter) & "" & arrLate(qCounter) & "" & arrEarly(qCounter) & "

" & arrConceive(qCounter) & "" & arrActualize(qCounter) & "" & arrActualize(qCounter) & "" & arrConceive(qCounter) & "
") end sub '******************** 'END subShowQuestions '******************** '******************** 'START subChoices '******************** sub subChoices(group,question,side) dim i, strChoiceGroup, intChoices if (group = 0) then 'It is for the Hare strChoiceGroup = "E" else 'It is for the Turtle strChoiceGroup = "C" end if intChoices = 4 i = 1 do while (i <= intChoices) Response.Write("
") if (side = 1) then 'Count up from 1 Response.Write("") else 'Countdown from intChoices Response.Write("") end if i = i + 1 Response.Write("
<% ' END Content Table %>
<% ' END Main Table %> <% ' START Footer %> <% ' END Footer %>