<%@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 - Enter Our Competition <% 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") Session("WeddingDate") = Request.Form("txtWeddingDate") Session("ReasonToWin") = Request.Form("txtReasonToWin") ' Now test the captcha code entered byt he user. if MyCaptcha("INPUTFORMCAPTCHA", Request.Form("txtCaptchaCode")) then Response.Redirect("send_competition_entry.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 %>
Enter Our Competition!

Free whitening for the Bride and Groom

We are delighted to announce that the winner of the Wedding Competition which ended on 1st September as Mr Jake Peryer of Harbertonford Devon. Congratulations Jake!

If you would like to enter our competition to be in with a chance of winning free teeth whitening for the bride and groom for your big day, fill out the form below and tell us in 25 words why you deserve to win.


"" 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")) %>" />
"" then Response.Write(Session("WeddingDate")) %>" />

Confirmation Code Image


Terms & Conditions: Competition close and draw date is 31st December 2010. Open to all residents of the United Kingdom. Limit one entry per person, e-mail or postal address. Winner must be over the age of 18. There is one prize of free teeth whitening (subject to suitability) to be won. The winner will be notified by post within 14 days of the competition close date and the name of the winner will be posted Dr Grant's Website. Dr Grant's decision is final and no correspondence will be entered into.

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