<%@ Language=VBScript %> <% Option Explicit 'Redirecting all trials to the new trial page. The rest of this page is not used anymore 'response.redirect "https://www.allenresources.com/trials/insidertbo/trialg1.php" response.redirect "waiver.php" ' ************************************** ' Name: Study Plan Request ' File Name: study_plan.asp ' Description: allows users to request study plan ' Author: Andrew Gauvin (andrew_gauvin@yahoo.com) ' Date Created: December 16, 2001 by Andrew Gauvin ' Last Modified: January 26, 2002 by Simone Pia (simonepia@earthlink.net) ' Modifications: ' -1-26-02 SMP: modified country pull down to grab list of countries from database ' -1-26-02 SMP: included global_content_lib.asp ' Table Dependencies: ' - country_lookup_tbl 'SMP 1-26-02 ' TODOs: ' ************************************** ' ************************************** ' Include lib files ' ************************************** %> <% ' ************************************** ' Declare page-scoped variables ' ************************************** Dim gs_PageTitle ' of page Dim gs_processPage ' path for login processing Dim i ' misc. iteration/count variable Dim go_rsCountries 'SMP 1-26-02 recordset to hold list of countries for pull down menu ' Input validation constants Dim gb_errFlag Dim gs_errMsg ' input fields... Dim gi_candidateLevel Dim gs_firstName Dim gs_lastName Dim gs_country Dim gs_workPhone Dim gs_email Dim gi_examYear Dim gs_registered Dim gi_comments Dim gi_surveyresults Dim gs_format Dim gs_radiochoice Dim gs_textchoice Dim gs_selectchoice Dim gs_checkchoice ' Date check Dim gdt_nowDate Dim gdt_nowTime Dim gdt_beginTime Dim gdt_endTime function EmailSurveyData ( gi_candidateLevel, gs_format, gs_email ) dim strSubject dim strMessage dim objMail strSubject = "Trial wCC page1" strMessage = "Trial wCC page 1 request received on " & date() & Chr(10) & Chr(10) & _ "Contact info..." & Chr(10) & Chr(10) & _ "candidate level: " & gi_candidateLevel & Chr(10) & _ "format: " & gs_format &Chr(10) &_ "email: " & gs_email & Chr(10) & Chr(10) ' send backup Set objMail = CreateObject("CDONTS.Newmail") objMail.MailFormat = 0 ' prevent unnecessary line breaks by sending object in MIME format objMail.Send gs_email, consts_EMAIL_FORM_RECEIVER, strSubject & " - backup", strMessage Set objMail = Nothing end function function EmailXMLData (gi_comments, ls_spResults, gs_firstName, gs_lastName, gi_candidateLevel, gi_examYear, gs_country, gs_workPhone, gs_email) dim strSubject dim strMessage dim objMail gi_comments = gi_comments & Chr(10) & ls_spResults strSubject = "Trial Sans Card - XML" strMessage = "<?xml version=""1.0""?>" & Chr(10) & _ "<trial_sans_card_request>" & Chr(10) & _ " <contact_info>" & Chr(10) & _ " <level>" & gi_candidateLevel & "</level>" & Chr(10) & _ " <first_name><![CDATA[" & gs_firstName & "]]></first_name>" & Chr(10) & _ " <last_name><![CDATA[" & gs_lastName & "]]></last_name>" & Chr(10) & _ " <country><![CDATA[" &gs_country & "]]></country>" & Chr(10) & _ " <email><![CDATA[" & gs_email & "]]></email>" & Chr(10) & _ " <exam_year><![CDATA[" & gi_examYear & "]]></exam_year>" & Chr(10) & _ " <comments><![CDATA[" & gi_comments & "]]></comments>" & Chr(10) & _ " <submit_date><![CDATA[" & now & "]]></submit_date>" & Chr(10) & _ " </contact_info>" & Chr(10) & _ "</trial_sans_card_request>" Set objMail = CreateObject("CDONTS.Newmail") objMail.MailFormat = 0 ' prevent unnecessary line breaks by sending object in MIME format objMail.Send gs_email, consts_EMAIL_FORM_RECEIVER, strSubject, strMessage Set objMail = Nothing end function function EmailCustComf (gs_email, gs_firstName) 'CBR 8/26/04 the above code is not working, but Larry has a different email he wants sent 'sendEmail gs_email, consts_EMAIL_NAME_TIPS_NEWS,"NONE", constas_EMAIL_TAGS_TIPS_NEWS,"DEFAULT" 'sendEmail gs_email, "trial sans cart","NONE", constas_EMAIL_TAGS_TIPS_NEWS,"DEFAULT" sendEmail gs_email, "trial sans cart", gs_firstName, "(^name^)" ,"DEFAULT" end function ' ************************************** ' Initialize page-scoped variables ' ************************************** gs_PageTitle = "CFA Exam Prep - Free Offer" gb_errFlag = false gs_errMsg = "Please fix the following errors:" ' AG 22-JUL-2002: Redirect depending on time ' study_plan.asp should run weekdays from 8:30 am to 5:30 pm. ' study_plan1.asp should run weekdays from 5:30 pm to 8:30 am, and from 5:30 ' pm Friday through 8:30 am Monday. gdt_nowDate = Date gdt_nowTime = Time gdt_beginTime = TimeValue("8:30:00 AM") gdt_endTime= TimeValue("5:30:00 PM") dim boLarryWantsItOn boLarryWantsItOn = "False" if (Request.QueryString("next") = "") and (boLarryWantsItOn = "True") then if Weekday(gdt_nowDate, vbSunday) = 1 OR Weekday(gdt_nowDate, vbSunday) = 7 then response.redirect "study_plan1.asp?" & request.querystring end if if gdt_nowTime < gdt_beginTime OR gdt_nowTime > gdt_endTime then response.redirect "study_plan1.asp?" & request.querystring end if end if if Request.QueryString("drpCandidateLevel") = "" then if session("candidate_level") = "" then gi_candidateLevel = 0 else gi_candidateLevel = session("candidate_level") end if else gi_candidateLevel = Request.QueryString("drpCandidateLevel") session("candidate_level") = Request.QueryString("drpCandidateLevel") end if if Request.QueryString("format-ps") = "" then gs_format = "" else gs_format = Request.QueryString("format-ps") end if if Request.QueryString("radiochoice") = "" then gs_radiochoice = "" else gs_radiochoice = Request.QueryString("radiochoice") end if if Request.QueryString("textchoice") = "" then gs_radiochoice = "" else gs_radiochoice = Request.QueryString("textchoice") end if if Request.QueryString("selectchoice") = "" then gs_radiochoice = "" else gs_radiochoice = Request.QueryString("selectchoice") end if if Request.QueryString("checkchoice") = "" then gs_radiochoice = "" else gs_radiochoice = Request.QueryString("checkchoice") end if if Request.QueryString("country") = "" then gs_country = "USA" ' default else gs_country = Request.QueryString("country") end if 'gs_firstName = Request.QueryString("first_name") 'gs_lastName = Request.QueryString("last_name") 'gs_workPhone = Request.QueryString("work_phone") gs_email = Request.QueryString("email") 'gi_examYear = Request.QueryString("exam_year") 'gi_examYear = 2005 'gs_registered = Request.QueryString("enrolled") 'gi_comments = "" 'gi_surveyresults = "" 'SMP 1-26-02 get list of countries for pull down menu (pull from db) 'set go_rsCountries = getCountries 'get list of countries from db ' ************************************** ' Input Validation ' ************************************** if Request.QueryString("next") = "Continue to Shipping" then ' ************************************** ' Input validation ' ************************************** if Request.QueryString("drpCandidateLevel") = "" then gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_CANDIDATE_LEVEL_LABEL gi_candidateLevel = Request.QueryString("drpCandidateLevel") gb_errFlag = true end if 'if gs_firstName = "" then ' gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_FIRST_NAME_LABEL ' gb_errFlag = true 'end if 'if gs_lastName = "" then ' gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_LAST_NAME_LABEL ' gb_errFlag = true 'end if 'if gs_country = "" then ' gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_COUNTRY_LABEL ' gb_errFlag = true 'end if if gs_format = "" then gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_FORMAT_LABEL gb_errFlag = true end if if gs_email = "" then gs_errMsg = gs_errMsg & consts_ERROR_EMPTY_PREFIX & consts_EMAIL_LABEL gb_errFlag = true else if isValidEmail(gs_email) = consti_FALSE then gs_errMsg = gs_errMsg & consts_ERROR_INVALID_PREFIX & consts_EMAIL_LABEL gb_errFlag = true end if end if if not gb_errFlag then dim RedirectTarget RedirectTarget = "https://www.allenresources.com/o/trial-2.asp" 'CBR 8/25/04 Restoryboarding the study plan pages 'Much of this code used to be in study_plan_confirm if isNotInEmailList(gs_email) = consti_TRUE then addToMailingList gs_email end if ' ************************************** ' Send notice w/ survey data to sales dpt. ' ************************************** 'EmailSurveyData gi_candidateLevel, gs_format, gs_email ' ************************************** ' Compose and send XML contact info email to generic address ' ************************************** 'EmailXMLData gi_comments, gi_surveyresults, gs_firstName, gs_lastName, gi_candidateLevel, gi_examYear, gs_country, gs_workPhone, gs_email ' ************************************** ' Send confirmation to customer ' ************************************** 'EmailCustComf gs_email, gs_firstName 'CBR 8/24/04 added contact loging so we can send Lighthouse sales info 'logContact gs_firstName, gs_lastName, gs_workPhone, gs_country, gi_candidateLevel, gs_registered 'redirect to confirmation page response.redirect RedirectTarget & "?" & request.querystring 'response.write "<p>Redirecting to... " & RedirectTarget & "?" & request.querystring & "</p>" end if end if %> <!-- #include file="includes\global_linkless_header2_comp.asp" --> <script language="JavaScript"> <!-- function study_plan_Validator(theForm) { if (theForm.format-ps.value == "") { alert("Please enter a value for the \"Video Format\" field."); theForm.format-ps.focus(); return false; } if (theForm.email.value == "") { alert("Please enter a value for the \"E-mail\" field."); theForm.email.focus(); return false; } if (theForm.drpCandidateLevel.value == "") { alert("Please choose your candidate level."); theForm.drpCandidateLevel.focus(); return false; } return true; } //--> </script> <style type="text/css"> <!-- .style8 {font-size: 12px; color: #003399; } .style9 {font-size: 12px} .style10 {font-family: Arial, Helvetica, sans-serif} .style11 {font-size: 12px; font-family: Arial, Helvetica, sans-serif; } .style12 {color: #003366} .style13 {color: #333333} .style14 { font-size: 14px; font-weight: bold; } .style15 {font-size: 12px; font-weight: bold; } .style16 {color: #000000} .style17 {color: #000000; font-family: Arial, Helvetica, sans-serif; } --> </style> <table width="100%" bgcolor="#FFFFFF" class="text" valign="top"> <tr > <td colspan="2"> <!-- Begin: heading --> </td> </tr> <tr> <td colspan="2"> <!-- Begin: heading menu--> <!-- End: heading menu--> </td> </tr> <tr> <td valign="top" width="70%" bordercolor="#CCCCCC"> <!-- Begin: body --> <p> <% if gb_errFlag then response.write "<p style='color:red'>" & gs_errMsg & "</p>" end if %> <!-- <span style="color: #003366; font-size: 16px; font-family: Arial, Helvetica, sans-serif; font-weight: bold">Take the Dow Challenge</span></p> <p>Sign up for our Free Trial and <font color="#000000">if you make the closest Dow Jones Industrial Average prediction as of the market close on May 31, you will get the CFA Study System as outlined below for <span style="font-weight: bold">free</span>.</font><br> <br> Winners who have already purchased CFA Study Tools will receive full credit for their materials ordered previously. No purchase necessary.</p> --> <form method="get" action="trial.asp" onSubmit="return study_plan_Validator(this)" target="_self" name="study_plan"> <table width="639" border="0" cellpadding="3" class="text"> <tr valign="top"> <td width="629"> <div align="left"> <table width="100%" height="82" border="0" cellpadding="3" cellspacing="0" class="text"> <tr class="style8"> <td colspan="3" align="right"><p align="left" class="style9"> <font face="Arial, Helvetica, sans-serif" class="style14" style="color: #FF8000; font-weight: bold"><span style="font-size: 16px">Try Allen for FREE...Offer ends Friday!</span><br> <span style="font-size: 10px; color: #000000">To receive your free trial, complete the simple sign-up process.</span></font></p> </td> <td width="173" rowspan="5" align="right" valign="top"><p align="left" class="style13"><span class="style16"><span class="style10"><span style="color: #000000"><strong>Your email address is safe.</strong><br> We will not disclose your email address to third parties.</span></span></span></p> <p align="left" class="style9 style10 style11" style="color: #000000"><strong>Questions?</strong><br> Call 1-401-667-0487<br> M-F 9am-5pm EST</p> <p align="left" class="style9 style10"><img src="../images/free7.gif" alt="CFA Exam Prep" width="101" height="25" align="top"></p></td> </tr> <tr class="style8"> <td width="130" align="right" valign="middle"> <span style="font-weight: bold"><font face="Arial, Helvetica, sans-serif">Your CFA Exam Level</font></span></td> <td width="146" align="left"><strong class="style11"> <input type="radio" name="drpCandidateLevel" value="1-June" <% if gi_candidatelevel = 1 then response.write " checked" %> /> I <span style="font-size: 10px">- June 2006</span>   <br> <input type="radio" name="drpCandidateLevel" value="2" <% if gi_candidatelevel = 2 then response.write " checked" %> /> II <span style="font-size: 10px"> - June 2006</span> <br> <input type="radio" name="drpCandidateLevel" value="3" <% if gi_candidatelevel = 3 then response.write " checked" %> /> III <span style="font-size: 10px"> - June 2006</span><br> </strong></td> <td width="148" align="left"> </td> </tr> <tr class="style8"> <td align="right" valign="bottom"><div align="right" class="style15"> <div align="right" style="font-family: Arial, Helvetica, sans-serif">Email Address </div> </div></td> <td colspan="2"><span class="style9"> <font face="Arial"> <strong> <input type="text" size="30" name="email" max="20" <% if gs_email <> "" then response.write " value = '" & gs_email & "' " %> /> </strong> </font> </span> </td> </tr> <tr class="style8"> <td width="130" align="right" valign="middle"> <div align="right" class="style15"> <div align="right" style="font-family: Arial, Helvetica, sans-serif">Choose Your System <br> <span style="font-size: 10px">from the options numbered below.</span></div> </div> </td> <td colspan="2"><span class="style9"> <strong><span class="style8 style9"><span class="style9"><font color="#003366"><span style="font-size: 10px; font-family: Arial, Helvetica, sans-serif"> <input type="radio" name="format-ps" value="1&2" <% if gs_format = "DVD" then response.write " checked" %> > <font color="#003366">1 & 2 - $495</font><br> <input type="radio" name="format-ps" value="1&4-DVD" <% if gs_format = "CD-ROM" then response.write " checked" %> > <font color="#003366">1 & 4 - DVD video format - $550<br> </font> <strong><font color="#003366"> <input type="radio" name="format-ps" value="1&4-CD" <% if gs_format = "DVD" then response.write " checked" %> > <font color="#003366">1 & 4 - CD-ROM video format - $550<br> </font> <input type="radio" name="format-ps" value="Kahuna-DVD" <% if gs_format = "CD-ROM" then response.write " checked" %> > The Big Kahuna, (1 - 6, DVD format) - $695</font></strong><br> <strong><font color="#003366"><strong><font color="#003366"> <input type="radio" name="format-ps" value="Kahuna-CDROM" <% if gs_format = "CD-ROM" then response.write " checked" %> > The Big Kahuna, (1 - 6, CD-ROM format) - $695</font></strong><br> <strong><font color="#003366"><strong><font color="#003366"> <input type="radio" name="format-ps" value="Friend-DVD" <% if gs_format = "CD-ROM" then response.write " checked" %> > You & A Friend, (Two sets of 1 - 6, DVD format) - $995</font></strong><br> <strong><font color="#003366"> <strong><font color="#003366"><strong><font color="#003366"><strong><font color="#003366"><strong><font color="#003366"> <input type="radio" name="format-ps" value="Friend-CDROM" <% if gs_format = "CD-ROM" then response.write " checked" %> > <strong><font color="#003366"><span style="font-size: 10px; font-family: Arial, Helvetica, sans-serif"><strong><font color="#003366"><strong><font color="#003366"><strong><font color="#003366">You & A Friend</font></strong></font></strong></font></strong></span></font></strong>, (Two sets of 1 - 6 CD-ROM format) - $995</font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></span></font></span></span></strong></span></td> </tr> <!-- <tr class="style8"> <td align="right"> <div align="right" class="style15"> <font face="Arial"> Generic Radio Option </font> </div> </td> <td> <span class="style9"><strong><font color="#003366"> <input type="radio" name="radiochoice" value="Option1" <% if gs_radiochoice = "Option1" then response.write " checked" %> > Option 1 <input type="radio" name="radiochoice" value="Option2" <% if gs_radiochoice = "Option2" then response.write " checked" %> > Option 2 </font></strong></span> </td> </tr> --> <!-- <tr class="style8"> <td align="right" valign="middle"> <div align="right" class="style15"> <font face="Arial"> Your Dow Prediction<br> </font></div> </td> <td> <span class="style9"> <input type="text" name="textchoice" size="15" value = "<%= gs_textchoice %>"> <br> <span class="style15"><font face="Arial"><span style="font-size: 9px">Enter your prediction for 31 May 2005</span></font></span></span></td> </tr> --> <!-- <tr class="style8"> <td align="right"> <div align="right" class="style15"> <font face="Arial"> Generic Select Option </font> </div> </td> <td> <span class="style9"> <select name = "selectchoice"> <option value="option1" <% if gs_selectchoice = "option1" then response.write " selected" %>> First Option </option> <option value="option2" <% if gs_selectchoice = "option2" then response.write " selected" %>> Second Option </option> <option value="option3" <% if gs_selectchoice = "option3" then response.write " selected" %>> Third Option </option> </select> </span> </td> </tr> --> <!-- <tr class="style8"> <td align="right"> <div align="right" class="style15"> <font face="Arial"> Generic Checkbox Option </font> </div> </td> <td> <span class="style9"><strong><font color="#003366"> <input type="checkbox" name="checkchoice" value="option1" <% if instr(gs_checkchoice,"option1") > 0 then response.write " checked" %> > Option 1 <input type="checkbox" name="checkchoice" value="option2" <% if instr(gs_checkchoice,"option2") > 0 then response.write " checked" %> > Option 2 </font></strong></span> </td> </tr> --> </table> <p align="left" style="font-size: 14px"><font face="Arial, Helvetica, sans-serif" color="#003366">Free Trial Options:<br> <span style="font-size: 10px">(click on any of the links below for product information)</span> </font></p> <ol class="style8"> <li> <span class="style10"> <font color="#003366"> The CD version of <a href="javascript:popUpWin('popups/tb.asp', 600, 600);"><u>TestBank Software</u></a> (<b>over 7,443, 4,218, or 3,000 CFA exam questions</b> for Levels I, II, and III, respectively)<span class="style9">.</span></font></span></li> <li class="style10"> <span align="left"> <font color="#003366"> The complete, final version of the <a href="javascript:popUpWin('popups/rh.asp', 600, 600);"><u>Written Reading Highlights</u></a> (<strong>1,194, 1,156, or 978 pages</strong> for Levels I, II, and III respectively). Delivered to you in PDF format, giving you access to every page.</font></span> </li> <li class="style10"> <span align="left"> <font color="#003366"> The complete, final version of the <a href="javascript:popUpWin('popups/fqm.asp', 600, 600);"><u>LOS Flash QuizMaster</u></a> (<b>720, 718, or 644 pages</b> for Levels I, II, and III respectively). Delivered to you in PDF format, giving you access to every page. </font> </span> </li> <li class="style10"> <font color="#003366"> The complete <a href="javascript:popUpWin('popups/videos.asp', 600, 600);"><u>Core Blue Chip Video Seminar Series</u></a> (<b>46, 45, or 25 hours</b> for Levels <span align="left"><font color="#003366">I, II, and III respectively</font></span>). Delivered in DVD or CD-ROM format. </font> </li> <li class="style10"> <font color="#003366"> <span class="style8"> The complete <a href="javascript:popUpWin('popups/audio.asp', 600, 600);"><u>Core Audio Seminar Series</u></a> online (<b>27, 22, or 24 hours</b> for Levels <span align="left"><font color="#003366">I, II, and III respectively</font></span>). Upon purchase</span><span class="style9">, you may download the mp3 files and burn them to CDs.</span> </font> </li> <li class="style10"> <font color="#003366"> The complete <a href="javascript:popUpWin('popups/problem_videos.asp', 600, 600);"><u>Problem Solving Video Seminar Series</u></a> (<b>21 hours</b>. Level I only. Problem Solving is included in Core Blue Chip Videos for Levels II and III). <font color="#003366">Delivered in DVD or CD-ROM format.</font></font> </li> </ol> <p align="center"> <input type="submit" value="Continue to Shipping" name="next"> </p> <p align="center"><img src="../images/free7.gif" alt="CFA Exam Prep" width="101" height="25" align="top"></div> </td> </tr> </table> </form> <!-- End: body --> </td> </tr> </table> <!-- #include file="includes\global_linkless_footer2_comp.asp" -->