<%@ 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 = "TelephoneSalesPresEvaluator.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 = "Telephone Sales Pres Evaluator" '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) = "1. When delivering my telephone sales presentation I pay VERY careful attention to my voice" 'Available answers for Q1:" Quiz(1,2) = "False." Quiz(1,3) = "True" 'Correct answer# for Q1: Quiz(1,7) = "3" Quiz(1,8) = "In a telephone sales call your voice is the critical factor in influencing the prospect. Like body language in a face-to-face call your tone on the telephone says more than you do." 'Question 2: Quiz(2,1) = "2. The first 3-7 minutes of my telephone sales call consists primarily of questions to the prospect. I tell the prospect very little in the beginning of my call." 'Available answers for Q2:" Quiz(2,2) = "False." Quiz(2,3) = "True." 'Correct answer# for Q2: Quiz(2,7) = "3" Quiz(2,8) = "In the early part of a telephone sales call it is absolutely critical to maintain a very high level of interactivity. When you don’t’ know what someone in interested in yet, you must keep them taking to find out and make sure they are engaged." 'Question 3: Quiz(3,1) = "3. I start my conversations with people I don’t know with a unique selling proposition (If you don’t know what this is, you don’t do it.)." 'Available answers for Q3:" Quiz(3,2) = "False." Quiz(3,3) = "True." 'Correct answer# for Q3: Quiz(3,7) = "3" Quiz(3,8) = "A unique selling proposition differentiates you from the competition and gains interest by the prospect – it is typically one or two lines long." 'Question 4: Quiz(4,1) = "4. I always get and use the name of everyone I meet on the phone and if they are a gatekeeper or receptionist I try to make them smile." 'Available answers for Q4:" Quiz(4,2) = "False." Quiz(4,3) = "True." 'Correct answer# for Q4: Quiz(4,7) = "3" Quiz(4,8) = "Gatekeepers, receptionists, and others are critical to your success in prospecting and dealing with a company. Additionally, you never know who the really are – you must treat them like gold." 'Question 5: Quiz(5,1) = "5. When I ask questions of my prospect they are ALWAYS drawn directly from or related by explanation to the current subject. Think carefully on this one before answering, especially paying attention to the changing of subjects." 'Available answers for Q5:" Quiz(5,2) = "False." Quiz(5,3) = "True." 'Correct answer# for Q5: Quiz(5,7) = "3" Quiz(5,8) = "Not tying your questions directly to what is currently being discussed causes breaks in communication and often leads to the seller sounding like and interrogator or worse yet spinning the prospect in circles." 'Question 6: Quiz(6,1) = "6. When the prospect says something that threatens my sales objective I always increase my energy and ask with interest to learn more." 'Available answers for Q6:" Quiz(6,2) = "False." Quiz(6,3) = "True." 'Correct answer# for Q6: Quiz(6,7) = "3" Quiz(6,8) = "Handling a negative on the telephone with any reaction that could be perceived by the prospect as negative is very dangerous. It tells the prospect that you are BEATEN and frequently results in a reduction of attention and then exit of the call by the prospect." 'Question 7: Quiz(7,1) = "7. I always pay careful attention to the tone of my prospect’s voice an how he or she says things." 'Available answers for Q7:" Quiz(7,2) = "False." Quiz(7,3) = "True." 'Correct answer# for Q7: Quiz(7,7) = "3" Quiz(7,8) = "If you aren’t reading the prospect’s tone in your calls you are giving up a lot of valuable information about how they feel." 'Question 8: Quiz(8,1) = "8. I never start my presentation before I have a high level of communication with the prospect. This means you don’t immediately start present to someone who asks What have you got??" 'Available answers for Q8:" Quiz(8,2) = "False." Quiz(8,3) = "True." 'Correct answer# for Q8: Quiz(8,7) = "3" Quiz(8,8) = "Presenting before you have a good communication line is a waste of time and frequently detrimental to your selling effort." 'Question 9: Quiz(9,1) = "9. I always make sure to tell my prospects about the most important and valuable features of my product or service." 'Available answers for Q9:" Quiz(9,2) = "False." Quiz(9,3) = "True." 'Correct answer# for Q9: Quiz(9,7) = "2" Quiz(9,8) = "If you are doing this you are making two important errors. First you shouldn’t tell. Second, you don’t know until the prospect tells you what is important or valuable." 'Question 10: Quiz(10,1) = "10. I always ask prospects to set specific appointments in the calendars for my return phone calls as if I were going out to meet them." 'Available answers for Q10:" Quiz(10,2) = "False." Quiz(10,3) = "True." 'Correct answer# for Q10: Quiz(10,7) = "3" Quiz(10,8) = "If you aren’t setting clear appointments with clear objectives you will play a lot more telephone tag with prospects." '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 %> The Telephone Sales Presentation Evaluator, learn how you can improve your sales presentation.
 
 
logo
        Contact Us

TeleSalesUniversity.com free workshop

HOME   VIDEO TRAINING   SALES PROGRAMS   MANAGEMENT PROGRAMS   TOOLS   ABOUT
TOOLS\Telephone Sales Presentation Evaluator

<% 'Section picker ' If there are any answers submitted then we go to section 2 ' Otherwise.... If QuizAns(1) = "" then %>
The Telephone Sales Presentation Evaluator

This telephone sales presentation evaluator has two purposes. First, to help you identify what factors may be lacking in your sales presentation. Second, that we may via the results give you some sound ideas as to how you can improve.

To obtain any kind of a valid result you must be brutally honest with your answers.

Please enter your first name; your title and company are optional, but greatly appreciated! You must fill in a VALID e-mail address if you wish to receive a your process evaluation.

Name: Please enter your first name.


Title:Please enter your job title.


Company:


IF YOU WOULD LIKE MORE INFORMATION on how I can help you or your sales organization,
please call me at: 408-248-5458, or enter your phone below and I will contact you.
Phone:

---- A VALID E-MAIL MUST BE FILLED IN TO RECEIVE YOUR EVALUATION! ----
      

Do not answer YES to a question unless you are in complete compliance.

<% For c = 1 to 25 If Quiz(c,1) > "" then %>

<% =Quiz(c,1) %>

<% End If Next %> Comments or questions about the evaluator.



Press this button to SUBMIT your information
Please be patient it may take a minute.


Press this button to CLEAR and start over


<% '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 < 60 then k = k & "The chances are you have very serious weaknesses in your sales presentation that could result in significant additional revenues if corrected." ElseIf cScore < 70 then k = k & "You probably a reasonable quality presentation. However, you are probably still leaving lots of money on the table that could be recovered with some additional tuning." ElseIf cScore < 80 then k = k & "You may have opportunities in your presentation but they are mostly related to the quality of your best practices and execution." Else k = k & "Your opportunities lie in the area of improving your best practices and the execution!" End If %>

THE TELEPHONE SALES PRESENTATION EVALUATOR
Thank you for taking this evaluation.

We hope that you find it a valuable experience and that you picked up some ideas that can improve your efforts.

Please tell your friends and associates about the evaluator and our website. Although the site’s primary purpose is to help us get more clients, we also want to provide valuable information and education that will help everyone achieve their selling and management goals.

YOUR SALES PROCESS EVALUATION 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----- If kName = "" then kName = "(No name provided)" 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 SAELS PROCESS EVALUATOR" & vbcrlf & vbcrlf EmailBody = EmailBody & "Sales Process Evaluator 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))) & " " 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 evaluator a valuable experience? Please tell us. E-mail: Info@TeleSalesUniversity.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 %>
© 2007 Penoyer Communications, All Rights Reserved

Flyn L. Penoyer Webmaster, Webmaster@TeleSalesUniversity.com