%@ ENABLESESSIONSTATE = False
Language = "VBScript" %>
<%
Dim c, ctmp, k, ktmp, cAnsTotal, cQuesTotal, cScore
Dim EmailUser, EmailBody
Dim kName, kTitle, kComp, kPhone, kComment
Dim QuizAns(25)
' The following variables define your quiz. You will redefine the
' variables for each quiz. Be sure to rename this file to represent
' the quiz name!
Const ThisPageName = "SalesLeadershipQuiz.asp" 'change this to be the same name as this page is named
Const EmailAdmin = "penoyercom@comcast.net" 'change this to be the email receiver(you)
Const EmailSubject = "Ultimate Sales Leadership Quiz" 'change this to be the email subject
Dim Quiz(25,8)
For c = 1 to 25
Quiz(c,1)=""
Quiz(c,2)=""
Quiz(c,3)=""
Quiz(c,4)=""
Quiz(c,5)=""
Quiz(c,6)=""
Quiz(c,7)=""
QuizAns(c)=""
Next
' This is the Q&A array. It is a 2 dimensional array.
' The first dimension differentiates the 25 potential questions
' and answers. The second dimension represents the actual question text(1),
' answer text(2-6), the number of the correct answer(7), and the explanation(8).
' Don't forget the quotes at the beginning and end of the!
' If you use quotes inside the text, double the quotes like "".
'Question 1:
Quiz(1,1) = "The most important reason for leadership is?"
'Available answers for Q1:"
Quiz(1,2) = "Don't know."
Quiz(1,3) = "A good leader is knowledgeable of the correct direction."
Quiz(1,4) = "A good leader inspires others to perform."
Quiz(1,5) = "A good leader drives others to do the correct tasks."
Quiz(1,6) = "A good leader knows how to manage others."
'Correct answer# for Q1:
Quiz(1,7) = "4"
Quiz(1,8) = "Motivation is internal not external. A good leader inspires other to want to reach the vision. A leader must be knowledgeable, know how to manage and direct others to the correct tasks, but inspiration is the real key to success."
'Question 2:
Quiz(2,1) = "The manager's primary function should be?"
'Available answers for Q2:"
Quiz(2,2) = "Don't know."
Quiz(2,3) = "To drive the salespeople to do the right things."
Quiz(2,4) = "To clear the obstacles that block the salespeople's efforts."
Quiz(2,5) = "To keep sales people very well trained."
Quiz(2,6) = "Effectively manage salespeople's activities."
'Correct answer# for Q2:
Quiz(2,7) = "4"
Quiz(2,8) = "The manager should be making the salespeople effective and efficient. Any task he does that, makes the whole team more effective and is a leveraging of the managers time and effectiveness. Getting people to do the right things and keeping them trained is also important but not as profitable."
'Question 3:
Quiz(3,1) = "It is said that empowerment is critical to success of a team. What is the best tool for helping the team to be empowered?"
'Available answers for Q3:"
Quiz(3,2) = "Don't know."
Quiz(3,3) = "Lots of skills training."
Quiz(3,4) = "Not micro-managing the team."
Quiz(3,5) = "Delegating lots of responsibilities."
Quiz(3,6) = "Allowing others to try and fail."
'Correct answer# for Q3:
Quiz(3,7) = "6"
Quiz(3,8) = "In order for anyone to feel empowered they must have the skills to take on the task. Micro-managing is the opposite of empowering. Delegation is necessary to empowering people, but they must have the confidence that having the tools provides in order to act. Allowing others to try and fail is how you begin to empower them! "
'Question 4:
Quiz(4,1) = "Which of the following will most help the salespeople succeed?"
'Available answers for Q4:"
Quiz(4,2) = "Don't know."
Quiz(4,3) = "Having a good unique selling proposition."
Quiz(4,4) = "Making sure the sales team knows their product."
Quiz(4,5) = "Teaching the sales team closing skills and techniques."
Quiz(4,6) = "Beating them up when then fail."
'Correct answer# for Q4:
Quiz(4,7) = "3"
Quiz(4,8) = "Most salespeople work in the dark because they don't know what to offer. A unique selling proposition describes the value to be presented. Having product knowledge and good closing skills is important and even more potent if used with a unique selling proposition. "
'Question 5:
Quiz(5,1) = "From a leadership perspective, how might you first apporach a salesperson who is doing poorly?"
'Available answers for Q5:"
Quiz(5,2) = "Don't know."
Quiz(5,3) = "Help them set up a new action plan."
Quiz(5,4) = "Ask them why their performance is down."
Quiz(5,5) = "Ask them how you can help them improve results."
Quiz(5,6) = "Get on their back and watch them carefully."
'Correct answer# for Q5:
Quiz(5,7) = "4"
Quiz(5,8) = "Although their not doing well and their statistics may be down, they may not know why they aren't succeeding . Yes, you can look at the stats to find the problem and lay out an action plan - but first the salesperson needs to know why they are failing."
'Question 6:
Quiz(6,1) = "Which of the following is probably the most responsible for salespeople loosing deals?"
'Available answers for Q6:"
Quiz(6,2) = "Don't know."
Quiz(6,3) = "Failing to close."
Quiz(6,4) = "Failing to ask enough questions."
Quiz(6,5) = "Lack of product knowledge."
Quiz(6,6) = "The competition."
'Correct answer# for Q6:
Quiz(6,7) = "4"
Quiz(6,8) = "Neil Rackham in his book SPIN Selling shows that questions are the key to success in closing the deal. The logic is that the more questions one asks equates to a better knowledge of the opportunity, and thus a better offer being made. Failing to close and lack of product knowledge do cost sales and the competition does steal them occasionally, but the primary key to success in selling is asking questions."
'Question 7:
Quiz(7,1) = "Successful territory management depends mostly on?"
'Available answers for Q7:"
Quiz(7,2) = "Don't know."
Quiz(7,3) = "Running the territory from a plan."
Quiz(7,4) = "Making a high number of calls."
Quiz(7,5) = "The manager's close eye."
Quiz(7,6) = "Knowing who your best customers are."
'Correct answer# for Q7:
Quiz(7,7) = "3"
Quiz(7,8) = "A clear plan based on the current situation is necessary if you wish to be effective. Most salespeople are reactive rather than pro-active in their territory. This makes them considerably less effective. Making lots of calls and knowing your best customers is also important."
'Question 8:
Quiz(8,1) = "Motivating others is mostly?"
'Available answers for Q8:"
Quiz(8,2) = "Don't know."
Quiz(8,3) = "Ra ra sessions."
Quiz(8,4) = "Inspiring people."
Quiz(8,5) = "Constently sharing the vision."
Quiz(8,6) = "Giving incentives."
'Correct answer# for Q8:
Quiz(8,7) = "4"
Quiz(8,8) = "You can't make anyone do anything - you can only inspire him or her to want to and do it. Ra ra sessions and incentives help make things happen, but nothing will match a motivated and inspired group."
'Question 9:
Quiz(9,1) = "Controlling the sales cycle is critical to sales success. Which factor will most enhance that control?"
'Available answers for Q9:"
Quiz(9,2) = "Don't know."
Quiz(9,3) = "Strong management participation."
Quiz(9,4) = "Good sales training."
Quiz(9,5) = "Strong product knowledge."
Quiz(9,6) = "A process for selling."
'Correct answer# for Q9:
Quiz(9,7) = "5"
Quiz(9,8) = "Flying by the seat of your pants is never as effective as following a proven and developed process. Having a process will make your team more effective. Management participation usually is after the fact and can be helpful as is skills training. But set up a good process and everyone benefits."
'Question 10:
Quiz(10,1) = "Team spirit is most dependent on?"
'Available answers for Q10:"
Quiz(10,2) = "Don't know."
Quiz(10,3) = "The leader."
Quiz(10,4) = "Quality salespeople."
Quiz(10,5) = "Team-building activities."
Quiz(10,6) = "Lots of incentives."
'Correct answer# for Q10:
Quiz(10,7) = "3"
Quiz(10,8) = "The buck stops with you - your team will have whatever spirit you create and provide - they'll catch whatever you've got! Good people help and so do team-building activities, but neither is worth anything if there is no leadership."
'Question 11:
' etc, etc for each question
'----------------------end of questions
'Populate answer array:
For c = 1 to 25
QuizAns(c) = Request.Form("Q" & CStr(c))
Next
%>
<%
subject = request.form("subject")
%>
Sales Leadership Quiz, leadership skills. sales
|
|
|
|
EDUCATION\Sales Leadership Quizzes\Ultimate Sales Leadership Quiz
|
|
<%
'Section picker
' If there are any answers submitted then we go to section 2
' Otherwise....
If QuizAns(1) = "" then
%>
About this Quiz
This quiz asks a number of questions about sales leadership. Your score is a reflection of your knowledge
of sales leadership best practices. the quiz may or may not be a true reflection of your performance, but
it is our experience that sound knowledge of selling best practices more often than not produces better results.
The quiz is educational in that your results will be annotated explaining the correct answers. However, the
quiz is also an excellent evaluation tool for those wishing to determine potential for improvement.
<%
'Section 2
' this section is displayed to display test results, and also to send email
Else
'First, calculate score...
cAnsTotal = 0: cQuesTotal = 0
For c = 1 to 25
If Quiz(c,1) > "" Then
cQuesTotal = cQuesTotal + 1 'question count
If QuizAns(c) = Quiz(c,7) then
cAnsTotal = cAnsTotal + 1 'correct answer count
End If
End If
Next
cScore = CInt((cAnsTotal/cQuesTotal) * 100)
k = CStr(cScore) & "% - "
If cScore < 40 then
k = k & "Nice try!"
ElseIf cScore < 60 then
k = k & "Average."
ElseIf cScore < 70 then
k = k & "Good."
ElseIf cScore < 80 then
k = k & "Very Good."
Else
k = k & "Excellent!"
End If
%>
THE ULTIMATE SALES LEADERSHIP QUIZ
Thank you for taking our quiz.
We hope that you found this experience valuable to
to your selling or management efforts.
Please tell your friends and associates about the quiz
and our website. Although the site’s primary purpose is to help us get more clients, we truly want to provide valuable
information and education that will help everyone achieve their selling and management goals.
INSTRUCTIONS FOR GETTING THE MOST OUT OF YOUR QUIZ
Below you will find all the quiz questions, your answers,
(Correct answers are noted. Incorrect answers in RED.) and an explanation for the correct answer.
The average score for our quizzes is 40%. Your score is a
reflection of your knowledge of selling best practices. It is possible that your score is not a true reflection of your
performance, but it is our experience that sound knowledge of selling best practices more often than not produces better
results.
If you would like additional help or recommendations to
improve your knowledge or skills, please use the email link at the bottom of the page to drop us a line with a note as
to your specific questions. Use a subject line that says "Recommendations" and I will be happy to make some
suggestions for you.
YOUR QUIZ RESULTS:
SCORE: <% =k %>
<%
'capture form variables...
kName = Request.Form("name")
kTitle = Request.Form("title")
kComp = Request.Form("company")
kPhone = Request.Form("phone")
EmailUser = Request.Form("Email")
kComment = Request.Form("comment")
'---start assembling the Email body-----
EmailBody = kName & ", " & EmailUser & vbcrlf
EmailBody = EmailBody & kTitle & vbcrlf
EmailBody = EmailBody & kCompany & vbcrlf
If kPhone > "" then
EmailBody = EmailBody & "I want info: " & kPhone & vbcrlf
End If
EmailBody = EmailBody & vbcrlf & "THE ULTIMATE Sales Leadership Quiz" & vbcrlf & vbcrlf
EmailBody = EmailBody & "QUIZ RESULTS FOR " & UCASE(kName) & ":" & vbcrlf
EmailBody = EmailBody & "SCORE: " & CStr(cScore) & "%" & vbcrlf & vbcrlf
'----end email body-------
'question review...
For c = 1 to 25
k = ""
If Quiz(c,1) > "" then
k = "QUESTION " & Quiz(c,1)
EmailBody = EmailBody & k & vbcrlf
%>
<% =k %>
<%
'select text and text color...
If QuizAns(c) = Quiz(c,7) then
k = "YOUR ANSWER: " & Quiz(c,CInt(QuizAns(c))) & ""
k = k & "You Are Correct!"
Else
k = "YOUR ANSWER: " & Quiz(c,CInt(QuizAns(c))) & " "
k = k & "CORRECT ANSWER: " & Quiz(c,CInt(Quiz(c,7)))
End If
Response.Write (k)
EmailBody = EmailBody & "YOUR ANSWER: " & Quiz(c,CInt(QuizAns(c))) & vbcrlf
EmailBody = EmailBody & "CORRECT ANSWER: " & Quiz(c,CInt(Quiz(c,7))) & vbcrlf
%>
EXPLANATION: <% =Quiz(c,8) %>
<%
EmailBody = EmailBody & "EXPLANATION: " & Quiz(c,8) & vbcrlf & vbcrlf
End If
Next
'----------end of question review
If kComment > "" then
EmailBody = EmailBody & "User Comment: " & kComment & vbcrlf
End If
%>
****THANKS AGAIN FOR PLAYING!****
Was the quiz a valuable experience? Please tell us. E-mail: Info@penoyer.com
<%
'Email sender...
If EmailUser > "" then
Dim objMail
Set objMail = CreateObject("CDO.Message")
objMail.Subject = EmailSubject
objMail.From = EmailUser
objMail.To = EmailAdmin
objMail.TextBody = EmailBody
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
objMail.Configuration.Fields.Update
objMail.Send
Set objMail = Nothing
End If
End If
%>
|
| © 2008, Penoyer Communications, All Rights Reserved |
|
Webmaster@penoyer.com