<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function MyCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then MyCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then MyCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then MyCaptcha = true else MyCaptcha = false end if end if end if end function %> Wedding Cosmetic Dentist - Request An Appointment <% if not IsEmpty(Request.Form("btnSubmit")) then ' Form has been submitted so set some session variables to pass over to the email form if successful ' or populate the input boxes on the form if it is not successful. Session("PrefixName") = Request.Form("txtPrefixName") Session("FirstName") = Request.Form("txtFirstName") Session("LastName") = Request.Form("txtLastName") Session("Address1") = Request.Form("txtAddress1") Session("Address2") = Request.Form("txtAddress2") Session("City") = Request.Form("txtCity") Session("County") = Request.Form("txtCounty") Session("PostCode") = Request.Form("txtPostCode") Session("Telephone") = Request.Form("txtTelephone") Session("Mobile") = Request.Form("txtMobile") Session("EmailAddress") = Request.Form("txtEmailAddress") ' Now test the captcha code entered byt he user. if MyCaptcha("INPUTFORMCAPTCHA", Request.Form("txtCaptchaCode")) then Response.Redirect("send_mailing_list_details.asp") else ' Set a variable so we can put the focus back into the Captcha input box on the form. Dim WrongCodeEntered WrongCodeEntered = 1 end if end if %>
Join Dr Grant's Mailing List

Join Dr Grant's Mailing List

Reasons to register with us:

  1. Gain Access to Exclusive Cosmetic Dentistry Offers
  2. Exciting Prize Draws and Competitions
  3. Stay up to date with the World of Cosmetic Dentistry
  4. Face and Smile Beauty Tips

"" then Response.Write(Session("FirstName")) %>" />
"" then Response.Write(Session("LastName")) %>" />
"" then Response.Write(Session("Address1")) %>" />
"" then Response.Write(Session("Address2")) %>" />
"" then Response.Write(Session("City")) %>" />
"" then Response.Write(Session("County")) %>" />
"" then Response.Write(Session("PostCode")) %>" />
"" then Response.Write(Session("Telephone")) %>" />
"" then Response.Write(Session("Mobile")) %>" />
"" then Response.Write(Session("EmailAddress")) %>" />
Confirmation Code Image


<% if WrongCodeEntered = 1 then %> <% end if %>