|
Thank you, <%=Request("first")%>, for your request!
Prompt attention to your request is our highest priority. If you included your E mail address in your request, you should receive an E mail from us confirming that your request has been received. Also, if you expressed interest in receiving more information on our products or services, you should receive this information sent you shortly by E mail attachment.
One of our Consultants will reply to your request to answer any questions you may have. If you don't hear from us or if you need immediate assistance, please call us at TOLL FREE at 1-800-808-6311, or 1-805-934-5956 or 1-805-570-0620 in the local area.
ASSESSMENTS-USA.com
1506 Tiffany Park Circle,
Suite 101
Santa Maria, CA 93455-4541
|
TOLL FREE: 1-800-808-6311
Tel: 805-934-5956
Cell: 1-805-570-0620
Fax: 1-805-937-8842
Email:
|
<%
FullName = Request("first") & " " & Request("last")
sMessage = sMessage & "We are responding to your request for more information about Assessments-USA.com. Here is the information you provided:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & "Name: " & Request("first")
sMessage = sMessage & " "
sMessage = sMessage & Request("last") & Chr(13) & Chr(10)
sMessage = sMessage & "Title: " & Request("title") & Chr(13) & Chr(10)& Chr(13) & Chr(10)
sMessage = sMessage & "Company: " & Request("company") & Chr(13) & Chr(10)
sMessage = sMessage & "Mailing Address: " & Request("address") & Chr(13) & Chr(10)
sMessage = sMessage & Request("city") & ", " & Request("state") & " " & Request("zip") & " " & Request("country") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & "Telephone: " & Request("telephone") & " Ext: " & Request("ext") & Chr(13) & Chr(10)
sMessage = sMessage & "Fax: " & Request("fax") & Chr(13) & Chr(10)
sMessage = sMessage & "E mail: " & Request("email") & Chr(13) & Chr(10)
sMessage = sMessage & "Web Site: " & Request("url") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & "Type of Business: " & Request("business-type") & Chr(13) & Chr(10)
sMessage = sMessage & "Number of Employees: " & Request("employees") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & Request("first") & "'s Roles and Responsibilities include: " & Chr(13) & Chr(10)
If Request("recruiting") = "" Then
Else
sMessage = sMessage & " - Recruiting" & Chr(13) & Chr(10)
End If
If Request("hire-fire") = "" Then
Else
sMessage = sMessage & " - Hiring/Firing" & Chr(13) & Chr(10)
End If
If Request("interview") = "" Then
Else
sMessage = sMessage & " - Interviewing" & Chr(13) & Chr(10)
End If
If Request("managing") = "" Then
Else
sMessage = sMessage & " - Managing/Coaching" & Chr(13) & Chr(10)
End If
If Request("training") = "" Then
Else
sMessage = sMessage & " - Training" & Chr(13) & Chr(10)
End If
If Request("leader") = "" Then
Else
sMessage = sMessage & " - Team Building" & Chr(13) & Chr(10)
End If
If Request("sales") = "" Then
Else
sMessage = sMessage & " - Sales" & Chr(13) & Chr(10)
End If
If Request("sales-management") = "" Then
Else
sMessage = sMessage & " - Sales Management" & Chr(13) & Chr(10)
End If
If Request("career") = "" Then
Else
sMessage = sMessage & " - Career Counseling/Consulting" & Chr(13) & Chr(10)
End If
If Request("project-management") = "" Then
Else
sMessage = sMessage & " - Project Management" & Chr(13) & Chr(10)
End If
If Request("customer-service") = "" Then
Else
sMessage = sMessage & " - Customer Service" & Chr(13) & Chr(10)
End If
If Request("call-center") = "" Then
Else
sMessage = sMessage & " - Call Center Management" & Chr(13) & Chr(10)
End If
sMessage = sMessage & Chr(13) & Chr(10)
sMessage = sMessage & "Please send information on: " & Chr(13) & Chr(10)
If Request("ONI") = "YES" Then
sMessage = sMessage & " - 360" Organizational Needs Survey" & ", "
End If
If Request("360-report") = "YES" Then
sMessage = sMessage & " - 360° Employee Evaluation Surveys" & ", "
End If
If Request("skillbuilder") = "YES" Then
sMessage = sMessage & " - SkillBuilder Leadership Modules" & ", "
End If
If Request("screening") = "YES" Then
sMessage = sMessage & " - Pre-employment Screening" & ", "
End If
If Request("background") = "YES" Then
sMessage = sMessage & " - Background Check Service" & ", "
End If
If Request("coaching") = "YES" Then
sMessage = sMessage & " - Coaching and Mentoring Tools" & ", "
End If
If Request("development") = "YES" Then
sMessage = sMessage & " - Staff Development Programs" & ", "
End If
If Request("customer-service-testing") = "YES" Then
sMessage = sMessage & " - Customer Service Testing" & ", "
End If
If Request("call-center-testing") = "YES" Then
sMessage = sMessage & " - Call Center Testing" & ", "
End If
If Request("sales-testing") = "YES" Then
sMessage = sMessage & " - Sales Testing" & ", "
End If
If Request("profile-placement") = "YES" Then
sMessage = sMessage & " - Job Matching/Job Fit Tools" & ", "
End If
If Request("job-description-tools") = "YES" Then
sMessage = sMessage & " - Job Description Tools" & ", "
End If
If Request("training-programs") = "YES" Then
sMessage = sMessage & " - Training Programs" & ", "
End If
If Request("team-building-tools") = "YES" Then
sMessage = sMessage & " - Team Building Tools" & ", "
End If
If Request("performance") = "YES" Then
sMessage = sMessage & " - Performance Management" & ", "
End If
If Request("newsletter") = "YES" Then
sMessage = sMessage & Chr(13) & Chr(10)
sMessage = sMessage & Request("first") & " would like receive the Assessments Updates Newsletter." & Chr(13) & Chr(10)
End If
sMessage = sMessage & Chr(13) & Chr(10)
sMessage = sMessage & Request("first") & " has been sent a copy of the Step One Survey, The Profile Placement Report and the All Products Brochure." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & Chr(13) & Chr(10)
sMessage = sMessage & Request("first") & " was referred by " & Request("referral_source")
If Request("referral_source") = "Other" Then
If Request("source_other") = "" Then
sMessage = sMessage & " but did not indicate the source."
Else
sMessage = sMessage & ": " & Request("source_other")
End If
End If
sMessage = sMessage & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sMessage = sMessage & "Search Engine Referrer (if any): " & Session("source") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
If Request("comments") = "" Then
Else
NewDetails = Replace(Request("comments"),vbCrLf," ")
sMessage = sMessage & "Additional Comments or Questions: " & NewDetails & Chr(13) & Chr(10)
End If
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = FullName & " <" & Request("email") & ">"
oMail.To= "information@assessments-USA.com"
oMail.Subject = "Request Info About Assessments-USA.com"
oMail.Body = sMessage
oMail.BodyFormat = 1 '-- 1 = Text
oMail.MailFormat = 1 '-- 0 = Mime 1 = Text
oMail.Importance = 1 '-- 1 = Normal
oMail.Send
Set objNewMail = Nothing
%>
<%
sAutoResponse1 = sAutoResponse1 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Thank you for requesting more information about Assessments-USA.com, and our complete line of employment screening, testing and training services." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Please find attached a copy of our Products Brochure in Adobe Acrobat PDF format. The brochure will provide your with a quick overview of our various assessment tools and services." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Prompt attention to your request is our highest priority. One of our Consultants will reply to your request to answer any questions you may have." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "If you don't hear from us soon, or if you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Cary Gray" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Santa Maria, CA 93455-4541" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse1 = sAutoResponse1 & "information@assessments-USA.com" & Chr(13) & Chr(10)
Set oAutoResponse1 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse1.From = "information@assessments-USA.com"
oAutoResponse1.To = FullName & " <" & Request("email") & ">"
oAutoResponse1.Subject = "Thank You for Your Request! - Products Brochure Attached"
oAutoResponse1.Body = sAutoResponse1
oAutoResponse1.AttachFile Server.MapPath("sample/All-Products-Brochure.pdf")
oAutoResponse1.BodyFormat = 1 '-- 1 = Text
oAutoResponse1.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse1.Importance = 1 '-- 1 = Normal
oAutoResponse1.Send
Set objNewMail = Nothing
%>
<%
sAutoResponse2 = sAutoResponse2 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Thank you for requesting more information about Assessments-USA.com, and our complete line of employment screening, testing and training services." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Please find attached a copy of a sample Step One Survey in Adobe Acrobat PDF format. The Survey is especially useful for pre-employment screening to measure the prospective candidate's work attitudes, including:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & " INTEGRITY - Does this candidate's attitude match that of an honest employee who can be trusted not to steal from you?" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & " WORK ETHICS - Does this candidate have an attitude towards work consistent with other long-term, hard-working employees?" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & " RELIABILITY - Can you depend upon this candidate to show up for work on time?" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & " DRUG AND ALCOHOL ABUSE - Does this candidate's attitudes towards substance abuse match that of employees who do not abuse alcohol or drugs?" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "The Step One Survey also helps you by automatically generating interview questions that target specific areas of hring concern, including the above." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Prompt attention to your request is our highest priority. One of our Consultants will reply to your request to answer any questions you may have." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "If you don't hear from us soon, or if you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Cary Gray" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Santa Maria, CA 93455-4541" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse2 = sAutoResponse2 & "information@assessments-USA.com" & Chr(13) & Chr(10)
Set oAutoResponse2 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse2.From = "information@assessments-USA.com"
oAutoResponse2.To = FullName & " <" & Request("email") & ">"
oAutoResponse2.Subject = "Step One Pre Employment Survey Attached"
oAutoResponse2.Body = sAutoResponse2
oAutoResponse2.AttachFile Server.MapPath("sample/step-one-survey.PDF")
oAutoResponse2.BodyFormat = 1 '-- 1 = Text
oAutoResponse2.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse2.Importance = 1 '-- 1 = Normal
oAutoResponse2.Send
Set objNewMail = Nothing
%>
<%
sAutoResponse3 = sAutoResponse3 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Here is the Profiles Job Match Placement Report you requested. While we have more specialized and customized job fit assessments for Customer Service & Call Center Sales (35 minutes to complete) and Sales Pro Indicators (20 minutes to complete), this e-mail will discuss our 5th Generation Assessment-The Job Match Profile." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "The Profile Job Match Assessment takes about 90 minutes to complete on the Internet, on a PC computer, or in booklet form and provides you with important information on the 20 core competencies that the Harvard Business Review calls essential to successful job match." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " 1. THINKING AND REASONING STYLES" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " a. Learning Index" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " b. Verbal Skills" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " c. Verbal Reasoning" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " d. Numerical Abilities" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " e. Numeric Reasoning" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " 2. OCCUPATIONAL INTERESTS" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " a. Enterprising" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " b. Financial/Administrative" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " c. People Service" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " d. Technical" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " e. Mechanical" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " f. Creative" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " 3. BEHAVIORAL TRAITS" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " a. Energy Level" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " b. Assertiveness" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " c. Sociability" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " d. Manageability" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " e. Attitude" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " f. Decisiveness" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " g. Accommodating" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " h. Independence" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & " i. Objective Judgement" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "The shaded blocks on each of the 20 core competencies indicate the benchmark that we can help you establish as key to success for that particular position in your organization. The numbers that appear on each scale, tell you were your final applicant has scored relative to all others in the population. Since the 20 scales represent a bell curve distribution of the population, the shaded blocks represent that % of the population, who can successfully do your job. When the candidate's score falls within the shaded benchmark, job match points are earned."& Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "By using the Internet Profile, you can check your final candidate's Job Match before you conduct a personal or telephone interview or fly them in for a face-to-face interview. Think of the extra time you will save and the money your organization won't have to spend on false starts with people who can interview well--but can't do the job." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "The Profile Placement also summarizes the total person at the end. Other reports that can be printed at no additional charge include the Coaching Report, Individual Report, the Multi-Job Match, and the Mult-Person match which can look at 1-100 person and 1-100 jobs for Succession Planning and promoting the right people." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "We can e-mail you the Job Analysis Survey to help you benchmark any of your jobs or you can create the benchmark directly on the Internet at www.assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse3 = sAutoResponse3 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse3 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse3.From = "information@assessments-USA.com"
oAutoResponse3.To = FullName & " <" & Request("email") & ">"
oAutoResponse3.Subject = "Assessments: ProfileXT Job Match Placement"
oAutoResponse3.Body = sAutoResponse3
oAutoResponse3.AttachFile Server.MapPath("sample/PXT-Placement.pdf")
oAutoResponse3.BodyFormat = 1 '-- 1 = Text
oAutoResponse3.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse3.Importance = 1 '-- 1 = Normal
oAutoResponse3.Send
Set objNewMail = Nothing
%>
<%
If Request("employee-motivation") = "YES" Then
sAutoResponse4 = sAutoResponse4 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Here is the Mentoring and Motivation Report you requested. The PPI-Mentoring assessment takes your team member about 25 minutes to complete on the Internet, on a PC computer screen, or in booklet form." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "The Profiles Performance Indicator (PPI) is your guide to managing every employee for peak productivity and professional growth." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "The Management Report is 8 pages of powerful mentoring information that examines 8 key behavioral traits and offers solid suggestions for increased effectiveness:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 1. Productivity" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 2. Quality of Work" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 3. Initiative" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 4. Teamwork" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 5. Problem Solving" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 6. Response to Job-Related Stress & Conflict" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 7. Work Motivation" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & " 8. Motivational Energy" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Your team member gets an immediate Individual Report once they complete the assessment on the Internet and the supervisor gets their Management Report automatically E-mailed directly to them, within minutes, from our server." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "It's a great tool to set up a corporate Mentoring Program with your people to help them recognize and maximize their strengths and learn to set professional and personal goals to become more effective and efficient." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "If you have any questions or if you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse4 = sAutoResponse4 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse4 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse4.From = "information@assessments-USA.com"
oAutoResponse4.To = FullName & " <" & Request("email") & ">"
oAutoResponse4.Subject = "Assessments: Motivation & Mentoring"
oAutoResponse4.Body = sAutoResponse4
oAutoResponse4.AttachFile Server.MapPath("sample/ppi-manager-mentoring-report.PDF")
oAutoResponse4.BodyFormat = 1 '-- 1 = Text
oAutoResponse4.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse4.Importance = 1 '-- 1 = Normal
oAutoResponse4.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("team-building-tools") = "YES" Then
sAutoResponse5 = sAutoResponse5 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Here is the Team Leader's 21-page Team Analysis Report you requested." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "The Team Analysis and Team Leader's Report takes your team members about 25 minutes to complete on the Internet, on a PC computer screen, or in booklet form."& Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "The 21-page Team Analysis Report looks at 12 key team dimensions in which the team needs to be well represented for balance and synergy:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 1. Control" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 2. Social" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 3. Patience" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 4. Precision" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 5. Ambition" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 6. Positive Expectancy" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 7. Composure" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 8. Analytical" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 9. Results Orientated" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 10. Emotions" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 11. Team Player" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & " 12. Quality Orientation" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "The Team Analysis Report reveals areas where the team may not be well represented and how to compensate for those missing attributes. It reveals who the team leader can most effectively delegate to and offers suggestions for increased team effectiveness." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "We also have a PowerPoint briefing entitled, 'Know Thyself Workshop,' we can include in your order for the Team Analysis Report and the Profile Performance Indicator-PPI--Mentoring Reports for each of your team members." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse5 = sAutoResponse5 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse5 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse5.From = "information@assessments-USA.com"
oAutoResponse5.To = FullName & " <" & Request("email") & ">"
oAutoResponse5.Subject = "Assessment: Team Leader's Guide Attached"
oAutoResponse5.Body = sAutoResponse5
oAutoResponse5.AttachFile Server.MapPath("sample/team-analysis-report.PDF")
oAutoResponse5.BodyFormat = 1 '-- 1 = Text
oAutoResponse5.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse5.Importance = 1 '-- 1 = Normal
oAutoResponse5.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("sales-testing") = "YES" Then
sAutoResponse6 = sAutoResponse6 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Here is the Sales Pro 'Job Match' Indicator information you requested. This assessment can be used for screening and hiring or for internal training and evaluation of your existing personnel." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Study after study reveal that half the people in sales should seek another career field. Of the half that is left, half of them are selling the wrong product or service. That leaves about 25% of your sales force making about 80% of your sales." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "The Sales Pro Indicator assessment takes about 20 minutes to complete on the Internet or in booklet form. Two reports (Management & Individual) provide you with important information on the applicant's 5 key behavioral traits essential to success in Professional Sales:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 1. Competitiveness" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 2. Self-Reliance" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 3. Persistence" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 4. Energy Level" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 5. Sales Drive" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "The Sales Pro report also predicts potential performance in 7 critical sales behaviors: " & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 1. Prospecting" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 2. Closing Sales" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 3. Call Reluctance" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 4. Self-Starting" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 5. Teamwork" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 6. Building & Maintaining Relationships" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & " 7. Compensation Preference" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Every Salesperson will fall into a Bell-Curve distribution. The shaded blocks on each of the behavioral traits indicate the scientifically validated benchmark, plotted on the bell-curve that you have established as key to success for that position in your company. The X that appears in a block on each scale tells you where your applicant has scored relative to all others in the bell-curve population." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "When your applicant scores within each shaded benchmark, they accumulate Job Match points and the total tells you how well they can do your specific job as compared to your best Sales Pros. We also have the ability to test 4-6 of your best sales pros and create a unique Sales Pro benchmark for your company which you would then use to measure all your candidates against." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Best of all, your investment for the Sales Pro Indicator is typically only about what you would pay your sales people during their first half day of being on the payroll. And--your candidates and employees can be run against any of your Sales Pro benchmarks and there are never any additional charges." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "If you have any questions or need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse6 = sAutoResponse6 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse6 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse6.From = "information@assessments-USA.com"
oAutoResponse6.To = FullName & " <" & Request("email") & ">"
oAutoResponse6.Subject = "Assessments: Sales Pro Indicator"
oAutoResponse6.Body = sAutoResponse6
oAutoResponse6.AttachFile Server.MapPath("sample/sales-indicator-manager.PDF")
oAutoResponse6.BodyFormat = 1 '-- 1 = Text
oAutoResponse6.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse6.Importance = 1 '-- 1 = Normal
oAutoResponse6.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("customer-service-testing") = "YES" Then
sAutoResponse7 = sAutoResponse7 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Our attached Customer Service assessments check your job applicants and existing personnel for outstanding customer service knowledge, personalities, and proficiencies and then compares their personalities and scores to experts in the customer service field or even compares them to the best customer service employees you have in your company or department. The following core competencies are evaluated by our two Customer Assessments which are attached:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 1. Job Knowledge" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 2. Assertiveness" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 3. Persistence" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 4. Empathy" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 5. Drive" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 6. Organization" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 7. Maturity" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 8. Creatively" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 9. Incentive" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Customer Service Perspective" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 1. Trust" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 2. Assertiveness" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 3. Empathy" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 4. Conscientiousness" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 5. Conformity" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 6. Focus" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 7. Maturity" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 8. Flexibility" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 9. Vocabulary Proficiencies" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 10. Numerical Proficiencies" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 11. Company Service Perspective" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & " 12. 49 Question Knowledge Evaluation" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "The shaded blocks on each scale within the sample reports represent benchmarks that have been scientifically researched and validated for people who are successful in a wide spectrum of customer service departments." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "The X indicates the candidate's actual score relative to all other people in the customer service population based upon a bell-curve distribution. The linear scale represents a standard bell curve with 68% of the total population scoring in the middle 4 blocks-regardless of the shaded blocks of the job benchmark." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "We can quickly create success job patterns or benchmarks for each of your departments simply by having about 15%-20% of your best people complete the appropriate Customer Service assessment. Where their core competencies cluster on each of the core competency scales indicates where your unique benchmark needs to be established for each position. And, to save you money, your candidates and employees can be run and rerun against any of your existing or new customer service benchmarks. There is never any additional charge to run the employee or candidate against another job pattern to obtain a Placement, Coaching or Individual Report." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Since we are an international company offering state-of-the-art Internet assessments in 65 countries, the Internet allows the assessment to be completed in English, Spanish, French Canadian, and other major languages." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Best of all, your investment in either of the Customer Service assessments is typically less than you would pay the person in their first half day on the job! And you know in 30 minutes if they can do the job based upon the job patterns you created by testing your best people in each of your customer service departments or divisions." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse7 = sAutoResponse7 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse7 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse7.From = "information@assessments-USA.com"
oAutoResponse7.To = FullName & " <" & Request("email") & ">"
oAutoResponse7.Subject = "Assessments: Customer Service"
oAutoResponse7.Body = sAutoResponse7
oAutoResponse7.AttachFile Server.MapPath("sample/customer-service-survey-combined.PDF")
oAutoResponse7.BodyFormat = 1 '-- 1 = Text
oAutoResponse7.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse7.Importance = 1 '-- 1 = Normal
oAutoResponse7.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("career-testing") = "YES" Then
sAutoResponse8 = sAutoResponse8 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "The Career Coach is a 5th generation job match assessment which compares a candidate's job match in 20 important core competencies to almost 300 Department of Labor occupations that drive the US economy. The Report reveals which occupations the candidate has the best job match for and provides structured worksheets to help them research those occupations they are interested in. The occupational benchmarks are described in the Department of Labor's Occupational Network." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "The Career Coach Job Match Assessment takes about 90 minutes to complete on the Internet, on a PC computer, or in booklet form and provides you with important information on these 20 core competencies that the Harvard Business Review calls 'essential to successful job match:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " 1. THINKING AND REASONING STYLES" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " a. Learning Index" & Chr(13) & Chr(10)
sAutoResponse8= sAutoResponse8 & " b. Verbal Skills" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " c. Verbal Reasoning" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " d. Numerical Abilities" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " e. Numeric Reasoning" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " 2. OCCUPATIONAL INTERESTS" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " a. Enterprising" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " b. Financial/Administrative" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " c. People Service" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " d. Technical" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " f. Creative" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " 3. BEHAVIORAL TRAITS" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " a. Energy Level" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " b. Assertiveness" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " c. Sociability" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " d. Manageability" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " e. Attitude" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " f. Decisiveness" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " g. Accommodating" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " h. Independence" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & " i. Objective Judgement" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "We have attached both a sample report of the Career Coach and also the list of Department of Labor occupations to which the Career Coach compares the candidate." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Santa Maria, CA 93455-4541" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse8 = sAutoResponse8 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse8 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse8.From = "information@assessments-USA.com"
oAutoResponse8.To = FullName & " <" & Request("email") & ">"
oAutoResponse8.Subject = "Assessments: Career Coach Information"
oAutoResponse8.Body = sAutoResponse8
oAutoResponse8.AttachFile Server.MapPath("sample/career-coach.pdf")
oAutoResponse8.AttachFile Server.MapPath("sample/occupations.pdf")
oAutoResponse8.BodyFormat = 1 '-- 1 = Text
oAutoResponse8.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse8.Importance = 1 '-- 1 = Normal
oAutoResponse8.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("coaching") = "YES" Then
sAutoResponse9 = sAutoResponse9 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Per your request, please find attached a copy of a sample Employee Coaching Report in Adobe Acrobat PDF format, one of ten unique reports generated by The Profile XT&trad; Job Match Tool." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & ""
sAutoResponse9 = sAutoResponse9 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Santa Maria, CA 93455-4541" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse9 = sAutoResponse9 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse9 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse9.From = "information@assessments-USA.com"
oAutoResponse9.To = FullName & " <" & Request("email") & ">"
oAutoResponse9.Subject = "Assessments: Employee Coaching Report"
oAutoResponse9.Body = sAutoResponse9
oAutoResponse9.AttachFile Server.MapPath("sample/profile-coaching.PDF")
oAutoResponse9.BodyFormat = 1 '-- 1 = Text
oAutoResponse9.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse9.Importance = 1 '-- 1 = Normal
oAutoResponse9.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("background") = "YES" Then
sAutoResponse10 = sAutoResponse10 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Attached is a summary of the professional background checks, services, and special discount prices we can arrange for you with our strategic partner-Verifications Inc. We can set up your Background Check Account and also help you pre-screen your final candidates for integrity, work ethics, reliability, and drug & alcohol abuse attitudes." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse10 = sAutoResponse10 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse10 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse10.From = "information@assessments-USA.com"
oAutoResponse10.To = FullName & " <" & Request("email") & ">"
oAutoResponse10.Subject = "Assessments: Background Check Information"
oAutoResponse10.Body = sAutoResponse10
oAutoResponse10.AttachFile Server.MapPath("sample/background-check.PDF")
oAutoResponse10.BodyFormat = 1 '-- 1 = Text
oAutoResponse10.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse10.Importance = 1 '-- 1 = Normal
oAutoResponse10.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("360-report") = "YES" Then
sAutoResponse11 = sAutoResponse11 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "The 360 Degree Multi-Rater Checkpoint Evaluation Report is attached for your review." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "The 18-page Checkpoint is a Leadership Competency Feedback System that allows people in the same team to evaluate one person's leadership and management skills. Evaluators will typically include Self, Boss, Peers or Colleagues, and Direct Reports or Subordinates. " & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "The Checkpoint tracks 8 Leadership Skill Clusters and breaks those 8 down further into 18 Critical Skill Groups:"& Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 1. Communications" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Listens to Others" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Processes Information" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " c. Communicates Effectively" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 2. Leadership" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Instills Trust" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Provides Direction" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " c. Delegates Responsibility" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 3. Adaptability" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Adjusts to Circumstances" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Thinks Creatively" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 4. Relationships" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Builds Personal Relationships" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Facilitates Team Success" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 5. Task Management" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Works Effectively" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Works Competently" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 6. Production" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Takes Action" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Achieves Results" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 7. Development of Others" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Cultivates Individual Talents" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Motivates Successfully" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " 8. Personal Development" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " a. Displays Commitment" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & " b. Seeks Improvement" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "The assessment is Internet driven and takes each person in the evaluation group about 20 minutes to complete. The attached multi-colored, 18-page Feedback Report is generated by us and mailed to you. We then set up a conference call with the person evaluated and their supervisor to provide personal coaching and feedback advice." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Up to 12 people are typically included in the evaluation group. It is possible to include more than the standard 12 people if your evaluation group is larger." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "What sets our assessment apart from other 360 Multi-Rater assessments is the last 5 pages, which are filled with the Checkpoint Development Summary. The Report helps the person being evaluated recognize their strengths and development needs. Four pages of coaching and feedback suggestions are provided to help them and their supervisor/coach/mentor direct their self-improvement efforts to become more effective leaders over the next year." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Following completion of the 360 Checkpoint, your staff can enroll in one or more of the 18 Training Modules in the 360 SkillBuilder Leadership Development Series. These modules track the individual 360 scores and parallel the 8 Major Skill Clusters and 18 Skill Groups that were evaluated. The person evaluated can then sign up for their 4 most important development areas and complete a self-paced Internet leadership development program in those needed areas of development. Each of the 18 leadership modules will help them create unique 20-25 page Professional Action Plans." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "If you want to review how our 360 Checkpoint Internet system actually works, please call us at 800-808-6311 or visit www.LMI-CEO.com and click on the 360 Checkpoint button in the upper right. Follow the instructions to preview how your team members would actually complete the 360 Multi-Rater Feedback & Evaluation Report on the Internet." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Center for Effective Organizations" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse11 = sAutoResponse11 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse11 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse11.From = "information@assessments-USA.com"
oAutoResponse11.To = FullName & " <" & Request("email") & ">"
oAutoResponse11.Subject = "Assessments: 360 Multi-Rater Feedback Report"
oAutoResponse11.Body = sAutoResponse11
oAutoResponse11.AttachFile Server.MapPath("sample/360-checkpoint-multi-rater.pdf")
oAutoResponse11.BodyFormat = 1 '-- 1 = Text
oAutoResponse11.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse11.Importance = 1 '-- 1 = Normal
oAutoResponse11.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("development") = "YES" Then
sAutoResponse12 = sAutoResponse12 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "We can arrange for your team to receive any of over 30 Professional Development Workshops or Personal and Team Effectiveness Programs which address today's current leadership and management issues." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "To save you money, we can also set up a train-the-trainer program for your company by providing the Leader's Guides and the Workshop materials at a very attractive investment." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Attached is a list of our 30 leadership and management workshops. Please visit www.LMI-CEO.com to review our programs in more detail." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Please contact us at 1-800-808-6311 if you have any questions on our Professional Development Programs or the personal and team coaching, mentoring, and evaluation assessments we offer." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Center for Effective Organizations" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse12 = sAutoResponse12 & "information@assessments-USA.com" & Chr(13) & Chr(10)
Set oAutoResponse12 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse12.From = "information@assessments-USA.com"
oAutoResponse12.To = FullName & " <" & Request("email") & ">"
oAutoResponse12.Subject = "Assessments: Professional Development Programs"
oAutoResponse12.Body = sAutoResponse12
oAutoResponse12.AttachFile Server.MapPath("sample/training-programs.pdf")
oAutoResponse12.BodyFormat = 1 '-- 1 = Text
oAutoResponse12.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse12.Importance = 1 '-- 1 = Normal
oAutoResponse12.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("call-center-testing") = "YES" Then
sAutoResponse13 = sAutoResponse13 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "The Call Center Sales Assessment checks your applicants and existing personnel for outstanding Outbound Sales and/or Inbound Sales knowledge and personality and compares their scores to experts in the field. " & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 1. Job Knowledge" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 2. Assertiveness" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 3. Persistence" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 4. Empathy" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 5. Drive" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 6. Organization" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 7. Maturity" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 8. Creatively" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & " 9. Incentive" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "The shaded blocks on each scale represent benchmarks which have been scientifically researched and validated for people who are successful in each type of call center." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "The X indicates the candidate's actual score relative to all other people in the population based upon a bell-curve distribution. The linear scale represents a standard bell curve with 68% of the total population scoring in the middle 4 blocks-regardless of the shaded blocks of the job benchmark." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "We can quickly create success benchmarks for each of your departments simply by having about 3-7 of your best people complete the Call Center assessment. Where their core competencies cluster on each of the 9 scales indicates where your unique benchmark needs to be established for each position. And, your candidates and employees can be run against any of your call center inbound or outbound benchmarks and there are never any additional charges." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Since we are an international company offering state-of-the-art assessments in 63 countries, the Internet allows the assessment to be completed in English, Spanish, French Canadian, and other major languages." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Best of all, your investment in each Call Center Sales assessment is typically less than you would pay the person in their first half day on the job! And you know in 35 minutes if they can do the job based upon your benchmarks of your best people in each call center division." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse13 = sAutoResponse13 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse13 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse13.From = "information@assessments-USA.com"
oAutoResponse13.To = FullName & " <" & Request("email") & ">"
oAutoResponse13.Subject = "Assessments: Call Center Sales"
oAutoResponse13.Body = sAutoResponse13
oAutoResponse13.AttachFile Server.MapPath("sample/call-center.pdf")
oAutoResponse13.BodyFormat = 1 '-- 1 = Text
oAutoResponse13.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse13.Importance = 1 '-- 1 = Normal
oAutoResponse13.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("job-description-tools") = "YES" Then
sAutoResponse14 = sAutoResponse14 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Thanks for requesting information about our world-class, fifth-generation state-of-the-art assessments. If you have any questions, please call Cary Gray at TOLL FREE 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Attached is our 57-question Profile XT Job Analysis Survey that will help us create your free Profile XT Job Descriptions and Benchmark. We also have almost 1,000 scientifically-validated job benchamrks in our Deptment of Labor Library of job patterns. Just have the 2-5 people who know the job best fill out the surveys and fax them back to us. Or you can call us and we'll set up a free Internet demo site for you and we can build the benchmark directly on your demo site. Then you can download the benchmark and job description immediately." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "By taking the 12-minutes to answer the questions, you will be establishing your job's requirements in the 20 important core competencies that can are used for the Job Match Placement, Coaching, Individual, Multi-Job Matching, Multi-Person Matching and Succession Planning Reports." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "The Profile Job Match Placement e-mail sent to you explains the 20 core competencies that the Profile XT Job Match Assessment measures. Please let me know if you have any questions about the 57-question Profile XT Job Analysis Survey and the Job Description and Benchmark Report you will be receiving." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "If you need additional assistance, please call us TOLL FREE at 1-800-808-6311 (Canada and Local: 1-805-934-5956), or send an e mail to: information@assessments-USA.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "If you have any questions please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Cary Gray, President" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Center for Effective Organizations" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "TOLL FREE: 1-800-808-6311" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse14 = sAutoResponse14 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse14 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse14.From = "information@assessments-USA.com"
oAutoResponse14.To = FullName & " <" & Request("email") & ">"
oAutoResponse14.Subject = "Assessments: Job Analysis Survey"
oAutoResponse14.Body = sAutoResponse14
oAutoResponse14.AttachFile Server.MapPath("sample/job-analysis-XT.pdf")
oAutoResponse14.BodyFormat = 1 '-- 1 = Text
oAutoResponse14.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse14.Importance = 1 '-- 1 = Normal
oAutoResponse14.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("skillbuilder") = "YES" Then
sAutoResponse16 = sAutoResponse16 & "Dear " & Request("first") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Thanks for requesting information about our world-class, fifth-generation, state-of-the-art assessments. Attached is a copy of the SkillBuilder Brochure and a summary of the 18 SkillBuilder Modules. If you have any questions, please call Cary Gray at TOLL FREE at 1-800-808-6311 (or 1-805-934-5956 local and Canada) or visit www.Assessments-USA.com or www.LMI-CEO.com." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "SkillBuilder gives managers the tools they need to maximize their strengths, become better managers, and lead more effectively. After your managers have identified their strengths and areas for further development with the Checkpoint 360 Competency feedback System--what happens next? The Skillbuilder Series is an organized, self-paced, slef-study professional development system that requires minimim HR effort. SkillBuilder contains thoroughly researched material that dramatically improves performance in the 18 competencies a leader needs to be proficient in. It incorportates th KSS syetem of learning and planning to encourage your staff to: " & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & " - Keep doing the things they do well" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & " - Stop doing those things that interfere with their performance" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & " - Start doing things that will improve their performance" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Skillbuilder encourages managers to perform their jobs better SkillBuilder gives special emphasis to the importance of every managers and their goals to the organization's success. SkillBuilder pays big dividends in the form of improved productivity, fewer 'people problems,' increased employee retention,and greater profits. Using SkillBuilder pays big dividends because productivity, cooperation, communications, employee retention and profits increase while 'people problems' are reduced." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "THE PROCESS" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Each participant completes an evaluation, a process that takes about 30 minutes. They are guaranteed anonymity (except for the Boss) and urged to be honest and objective in their responses. Participants may complete their assignments via the Internet and results from all participants are compiled in a report that is returned to the manager." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "FULL COLOR REPORT" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "CheckPoint Reports have colorful graphs and charts as well as narrative descriptions of the results to help the manager read, understand, and effectively use the data for self-development. The report has a special personal growth section that coaches the manager and helps improve performance in development areas. The CheckPoint 360 Competency Feedback System is an effective managerial development system that pays big dividends in improved performance." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "If you have any questions as you review this information, please call us today. We look forward to working with you!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Best Regards," & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Cary Gray, President 800-808-6311" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Center for Effective Organization" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "www.Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "1506 Tiffany Park Circle, Suite 101" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Santa Maria, California 93455-4541" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "CaryGary@Assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Canada and Local: 1-805-934-5956" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Fax: 1-805-937-8842" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Cell Phone: 1-805-570-0620" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "information@assessments-USA.com" & Chr(13) & Chr(10)
sAutoResponse16 = sAutoResponse16 & "Please review our 30 Leadership & Management Professional Development Programs at www.LMI-CEO.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oAutoResponse16 = Server.CreateObject("CDONTS.NewMail")
oAutoResponse16.From = "information@assessments-USA.com"
oAutoResponse16.To = FullName & " <" & Request("email") & ">"
oAutoResponse16.Subject = "SkillBuilder Brochure"
oAutoResponse16.Body = sAutoResponse16
oAutoResponse16.AttachFile Server.MapPath("sample/SkillBuilder-Combined.pdf")
oAutoResponse16.BodyFormat = 1 '-- 1 = Text
oAutoResponse16.MailFormat = 1 '-- 0 = Mime 1 = Text
oAutoResponse16.Importance = 1 '-- 1 = Normal
oAutoResponse16.Send
Set objNewMail = Nothing
End If
%>
<%
If Request("subscribe") = "YES" Then
eMessage = eMessage & "I wish to subscribe to your newsletter" & Chr(13) & Chr(10)
eMessage = eMessage & "Name: " & Request("first") & " " & Request("last") & Chr(13) & Chr(10)
eMessage = eMessage & "E mail: " & Request("email") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
eMessage = eMessage & Chr(13) & Chr(10) & Chr(13) & Chr(10)
eMessage = eMessage & "Search Engine Referrer: " & Session("source") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.From = FullName & " <" & Request("email") & ">"
oMail.To= "newsletter@assessments-USA.com"
oMail.Subject = "subscribe"
oMail.Body = eMessage
oMail.BodyFormat = 1 '-- 1 = Text
oMail.MailFormat = 1 '-- 0 = Mime 1 = Text
oMail.Importance = 1 '-- 1 = Normal
oMail.Send
Set objNewMail = Nothing
End If
%>
<%
Dim objFS, objTextS
Const ForAppending = 8 ' 1 = reading 8 = appending
Const FileType = 0 ' 0 = ASCII
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objTextS = objFS.OpenTextFile(Server.MapPath("../database/data.log"), ForAppending, False, FileType)
sApplicationData = sApplicationData & now & "|"
sApplicationData = sApplicationData & Request("first") & "|"
sApplicationData = sApplicationData & Request("last") & "|"
sApplicationData = sApplicationData & Request("title") & "|"
sApplicationData = sApplicationData & Request("company") & "|"
sApplicationData = sApplicationData & Request("address") & "|"
sApplicationData = sApplicationData & Request("city") & "|"
sApplicationData = sApplicationData & Request("state") & "|"
sApplicationData = sApplicationData & Request("country") & "|"
sApplicationData = sApplicationData & Request("telephone") & "|"
If Request("ext") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("ext") & "|"
End If
If Request("fax") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("fax") & "|"
End If
If Request("email") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("email") & "|"
End If
If Request("url") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("url") & "|"
End If
sApplicationData = sApplicationData & Request("business-type") & "|"
sApplicationData = sApplicationData & Request("employees") & "|"
If Request("recruiting") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("recruiting") & "|"
End If
If Request("interview") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("interview") & "|"
End If
If Request("training") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("training") & "|"
End If
If Request("sales") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("sales") & "|"
End If
If Request("hire-fire") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("hire-fire") & "|"
End If
If Request("managing") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("managing") & "|"
End If
If Request("leader") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("leader") & "|"
End If
If Request("sales-management") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("sales-management") & "|"
End If
If Request("project-management") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("project-management") & "|"
End If
If Request("customer-service") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("customer-service") & "|"
End If
If Request("call-center") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("call-center") & "|"
End If
If Request("career") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("career") & "|"
End If
If Request("screening") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("screening") & "|"
End If
If Request("background") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("background") & "|"
End If
If Request("development") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("development") & "|"
End If
If Request("profiles") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("profiles") & "|"
End If
If Request("coaching") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("coaching") & "|"
End If
If Request("training-programs") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("training") & "|"
End If
If Request("osha") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
sApplicationData = sApplicationData & Request("OSHA") & "|"
End If
If Request("newsletter") = "" Then
sApplicationData = sApplicationData & "Unsubscribe" & "|"
Else
sApplicationData = sApplicationData & "Subscribe" & "|"
End If
If Request("comments") = "" Then
sApplicationData = sApplicationData & "N/A" & "|"
Else
NewDetails = Replace(Request("comments"),vbCrLf," ")
sApplicationData = sApplicationData & NewDetails & "|"
End If
sApplicationData = sApplicationData & Request("referral_source") & "|" & vbCrLf
sApplicationData = sApplicationData & Session("source") & "|" & vbCrLf
objTextS.Write sApplicationData
objTextS.Close
%>
FOR QUICKEST SERVICE, CALL US TOLL FREE AT 1-800-808-6311.
|
