Skip Navigation <% 'Cleanse URLencoded parameters 'list imported values here* Dim strUpost,strUdebug,validateMode,debugMode,mPath,rPath,attributeInsert,attributeInsertWithoutSelect,CMMGID debugMode = "" 'Return URL path rPath = "http://www1.lexisnexis.co.uk/emailers/webinars/" 'Post URL path mPath = "http://localhost/onlinewebinars/" attributeInsert = "onclick=""javascript:this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';this.select();"" onkeypress=""javascript:this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';"" onfocus=""select();this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';""" attributeInsertWithoutSelect = "onclick=""javascript:this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';"" onkeypress=""javascript:this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';"" onfocus=""this.style.color='#000000';this.style.backgroundColor='#ffffff';this.style.borderColor='#000000';""" Call Cleanse(Request.QueryString("post"),strUpost,0) Call Cleanse(Request.QueryString("debug"),strUdebug,0) 'Initial page if strUpost <> "" then validateMode = "ValidateInputs(1);" else validateMode = "return ValidateInputs(0);" end if 'If debug mode is active if strUdebug = "ON" then debugMode = "debug=on&" %> <% end if %> <% if strUdebug <> "ON" then %> <% end if %>

---

<% if strUpost = "" then %>

<% if strUdebug = "ON" then %>

debug status:

---

<% end if %>

Customer Details

*All field labels marked with an asterix are MANDATORY.

<% if Request.QueryString("CMMessage") <> "" then Call Cleanse(Trim(Request.QueryString("CMMessage")),CMMGID,1) %>
• <%=CMMGID%>
<% end if %>
• First name*
  Enter your first name
  Using letters only hypens are allowed.
  <% if Session("fn") <> "" then %> " maxlength="50" <%=attributeInsert%> /> <% else %> /> <% end if %>
• Surname*
  Enter your surname
  Using letters only hypens are allowed.
  <% if Session("ln") <> "" then %> " maxlength="50" <%=attributeInsert%> /> <% else %> /> <% end if %>
• Company Name
  Enter your Butterworths Account number if known.
  Using alphanumeric characters only hypens are allowed.
  <%if Session("cn") <> "" then %> " maxlength="50" <%=attributeInsert%> /> <% else %> /> <% end if %>
• Butterworths Acct. no.#
  Enter your Butterworths Account number if known.
  Using alphanumeric characters only hypens are allowed.
  <% if Session("ba") <> "" then %> " <%=attributeInsert%> /> <% else %> /> <% end if %>
• Email*
  Enter your email address
  e.g. john.smith@firmname.co.uk
  <% if Session("em") <> "" then %> " <%=attributeInsert%> /> <% else %> /> <% end if %>
• Confirm email*
  Re-enter your email address
  must match email address
  <% if Session("cm") <> "" then %> " <%=attributeInsert%> /> <% else %> /> <% end if %>
• Where did you hear about our service*
  Please select an appropriate source
  >Please select a source
  
  
• Subject*
  
  In order that we direct your message to the relevant department we kindly ask you select an appropriate subject heading from the dropdwon menu
  >Please select a subject
  
  
• Message*
  Please type your message using alphanumeric characters only.
  The following symbols are allowed:
  - , . ; £ $ % ! @ ?
  <% if Session("mg") <> "" then %> ><%=Session("mg")%> <% else %> >Please type your message here <% end if %>
  
  

---

Privacy Policy

• Please tick the checkboxes if you do NOT wish to be kept informed by:
  email of other LexisNexis products and services.
• Please tick the checkbox if you do NOT wish your details to be passed on to approved third-party companies by LexisNexis to keep you informed of their products and services.
  
  

<% ' Construct the captchas object. ' Required Parameters ' You receive this values upon registration at http://captchas.net. ' client: "demo" ' secret: "secret" ' Optional Parameters and defaults ' repository_prefix: "captchas_net_random/" (path to repository) ' cleanup_time: "3600" (max 1 hour between query and check) ' alphabet: "abcdefghijklmnopqrstuvwxyz" (Used characters in captcha) ' letters: "6" (Number of characters in captcha) ' width: "240" (image width) ' height: "80" (image height) Dim captchas,rt Set captchas = CaptchasDotNet ("lndesigners","cuTgNzOfyI2N3YVmdEunfOV5TZWODoTI664BY4Dz","","","abcdefghkmnopqrstuvwxyz","6","240","80") ' We recommend small letters without mistakable ijl: ' Set captchas = CaptchasDotNet ("lndesigners","cuTgNzOfyI2N3YVmdEunfOV5TZWODoTI664BY4Dz","","","abcdefghkmnopqrstuvwxyz","","","") %>

CAPTCHA verification*

To find out more about this verification please read the Wikipedia definition on CAPTCHA.

• Please enter value as depicted in the CAPTCHA image.
  Visually imparied users may use the phonetic text link.
  <%=captchas.image()%>
  
  Listen to phonetic spelling of the CAPTCHA password (MP3 Audio Format)
• Please enter CAPTCHA password*

<% end if %> <% if strUpost = "FAILED" then %> <% end if %> <% if strUpost = "FAILURE" then %> <% end if %> <% if strUpost = "SUCCESS" then Session.Abandon %> <% end if %> <% if strUpost = "SUCCESSFUL" then Session.Abandon %> <% end if %> <% if strUpost = "BACK" then %> <% Dim CMMessage, rtr, fn, ln, cn, ba, em, cm, ad, sj, mg, oe, ot, fnid, lnid, cnid, baid, emid, cmid, adid, sjid, mgid, oeid, otid, reply_to 'Set variables to nothing fn = "" ln = "" cn = "" ba = "" em = "" cm = "" ad = "" sj = "" mg = "" oe = "" ot = "" 'Cleanse parsed variables before use Call Cleanse(Request.Form("custFirstName"),fnid,2) Call Cleanse(Request.Form("custLastName"),lnid,2) Call Cleanse(Request.Form("invCompanyName"),cnid,2) Call Cleanse(Request.Form("buttsAccount"),baid,1) Call Cleanse(Request.Form("custEmail"),emid,2) Call Cleanse(Request.Form("confirmemail"),cmid,2) Call Cleanse(Request.Form("adsource"),adid,1) Call Cleanse(Request.Form("subject"),sjid,1) Call Cleanse(Request.Form("message"),mgid,1) Call Cleanse(Request.Form("optEMail"),oeid,1) Call Cleanse(Request.Form("optThirdParty"),otid,1) 'Check cleansed value is not empty and assign new variable name ready for use if fnid <> "" then fn = fnid end if if lnid <> "" then ln = lnid end if if cnid <> "" then cn = cnid end if if baid <> "" then ba = baid end if if emid <> "" then em = emid end if if cmid <> "" then cm = cmid end if if adid <> "" then ad = adid end if if sjid <> "" then sj = sjid end if if mgid <> "" then mg = mgid end if if oeid <> "" then oe = oeid end if if otid <> "" then ot = otid end if %> <% ' Construct the captchas object. Replace 'demo' and 'secret' with ' the values you receive upon registration at http://captchas.net. ' Next line has to be the same as in query.asp Set captchas = CaptchasDotNet ("lndesigners","cuTgNzOfyI2N3YVmdEunfOV5TZWODoTI664BY4Dz","","","abcdefghkmnopqrstuvwxyz","6","240","80") %> <% if Not captchas.validate (Request.Form("random")) Then %> <% Session("fn") = fn Session("ln") = ln Session("cn") = cn Session("ba") = ba Session("em") = em Session("cm") = cm Session("ad") = ad Session("sj") = sj Session("mg") = mg CMMessage = "CAPTCHA verification failed: The current CAPTCHA has already been used." Response.Redirect("contact_us.asp?"&debugMode&"CMMessage="&CMMessage&"") %> <% elseif Not captchas.verify (Request.Form("password"), Request.Form("random")) Then %> <% Session("fn") = fn Session("ln") = ln Session("cn") = cn Session("ba") = ba Session("em") = em Session("cm") = cm Session("ad") = ad Session("sj") = sj Session("mg") = mg CMMessage = "CAPTCHA verification failed: You have entered the wrong password." Response.Redirect("contact_us.asp?"&debugMode&"CMMessage="&CMMessage&"") %> <% end if %> <% 'Delete the captchas object. Set captchas = Nothing rtr = Request.Form("random") %>

<% end if %>

---