<% Response.Buffer = True %> <% CONST ResultPage = "BPAwards_Screener_Result.asp" 'static Filename of result/response page CONST NoOfSections = 1 CONST NoOfQuestions = 8 Dim ToolName Dim ArSecStr, ArSecHdr, ArSecQNos, ArBpAv ReDim ArSecStr (NoOfSections) 'static 'array of section descriptions ReDim ArSecHdr (NoOfSections) 'static 'array of section header names ReDim ArSecQNos (NoOfSections) 'static 'array of no questions per section ReDim ArBpAv (NoOfSections) 'static 'array of no questions per section Dim ArQStr, ArQIdealAns, ArQExpln ReDim ArQStr (NoOfQuestions) 'static 'array of questions ReDim ArQIdealAns (NoOfQuestions) 'static 'array of ideal ans for each question ArSecQNos(1) = 8 ArBpAv(1) = (Request.Form("Q1") * 1) + (Request.Form("Q2") * 1) + (Request.Form("Q3") * 1) + (Request.Form("Q4") * 1) + (Request.Form("Q5") * 1) + (Request.Form("Q6") * 1) + (Request.Form("Q7") * 1) + (Request.Form("Q8") * 1) ArQIdealAns(1) = True ArQIdealAns(2) = True ArQIdealAns(3) = True ArQIdealAns(4) = True ArQIdealAns(5) = True ArQIdealAns(6) = True ArQIdealAns(7) = True ArQIdealAns(8) = True If Request.QueryString("rqtToolName") = "Exceeding" Then ToolName = "Exceeding Customer Expectations" ArSecStr(1) = "Is your company EXCEEDING customer expectations?" ArSecHdr(1) = "Customer expectations" ArQStr(1) = "Do you communicate to all employees progress towards the company’s customer satisfaction goals?" ArQStr(2) = "Do employee performance reviews include a measure of customer satisfaction?" ArQStr(3) = "Does your company mission statement make specific reference to customer satisfaction?" ArQStr(4) = "Are employees who interact with customers cross-trained to answer queries outside their immediate department?" ArQStr(5) = "Does your company survey its customers annually?" ArQStr(6) = "Do you maintain a customer database that tracks customer needs or preferences?" ArQStr(7) = "Are any customers treated differently?" ArQStr(8) = "Does your company have specific performance measures relating to customer satisfaction?" HiddenField = "" ElseIf Request.QueryString("rqtToolName") = "Motivating" Then ToolName ="Motivating and Retaining Employees" ArSecStr(1) = "Do your people give their BEST?" ArSecHdr(1) = "Employees motivated" ArQStr(1) = "Do employees participate in setting the goals for which they will be responsible?" ArQStr(2) = "Are company training dollars available for all employees, regardless of level or job track?" ArQStr(3) = "Do you perform exit interviews with all employees who leave the company?" ArQStr(4) = "Do you conduct surveys to assess employee morale and job satisfaction?" ArQStr(5) = "Does the company offer flexible work arrangements and work-life programs to assist employees in balancing career and family?" ArQStr(6) = "Is your company’s turnover rate lower than the industry average?" ArQStr(7) = "Can you demonstrate that your employee compensation is externally competitive and internally equitable?" ArQStr(8) = "Does your company have an employee coaching or mentoring program?" HiddenField = "" ElseIf Request.QueryString("rqtToolName") = "Unleashing" Then ToolName ="Unleashing the Power of Technology" ArSecStr(1) = "Is your company taking full advantage of today’s TECHNOLOGY?" ArSecHdr(1) = "Today’s technology" ArQStr(1) = "Are employees able to access computer and telephone networks from remote locations?" ArQStr(2) = "Do all employees share a common software platform?" ArQStr(3) = "Can your customers place orders with you electronically? " ArQStr(4) = "Is the primary form of internal communications electronic (e-mail, bulletin boards, voice mail)?" ArQStr(5) = "Do most of your workstations have processors the equivalent of a pentium or better?" ArQStr(6) = "Does your company use ""distance learning"" to educate its employees?" ArQStr(7) = "Does your company have a technology manager who is part of its top management team?" ArQStr(8) = "Can your employees run software applications when the network is down?" HiddenField = "" Else ToolName = "Default" End If %> Arthur Andersen - Best Practices Awards: <%= ToolName %> quiz
<%=ToolName %> Quiz

How do you know if your company is setting the pace, keeping up or falling behind? Take this quiz for a sneak preview of the Best Practices Awards application questions, and find out how your company scores.

<% Dim cntrQ Function QValue(cntr, strQDefault) QValue = 0 If ((ArQIdealAns(cntr) = True) AND (strQDefault = "Yes")) OR ((ArQIdealAns(cntr) = False) AND (strQDefault = "No")) Then QValue = 1 End If End Function cntrQ = 0 For i = 1 To NoOfSections Response.Write "

" & ArSecStr(i) & "

    " For j = 1 To ArSecQNos(i) cntrQ = cntrQ + 1 Response.Write "
  1. " & ArQStr(cntrQ) & "
    " Response.Write " Yes" Response.Write " No" Response.Write " Not Sure" Response.Write "

  2. " Next Response.Write "
" Next %>

<%= HiddenField %>

<% PrintFooter %>