Follow us on:

Subscribe to our newsletter

<% function FieldOK(FieldName) if Request.Form(FieldName) = "" and Request.Form("send") then FieldOK = false else FieldOK = true end if end function function FieldWithDefaultOK(DefaultValue, FieldName) if Request.Form(FieldName) = DefaultValue and Request.Form("send") then FieldWithDefaultOK = false else FieldWithDefaultOK = true end if end function %>

If you would like to receive our newsletter or our special offers, please fill the form below.
All the fields followed by a * are mandatory.

<%if Request.Form("send") <> "" then if Request.Form("Prenom") = "" or Request.Form("Courriel") = "" then Response.Write("Please fill all mandatory fields *") end if end if if Request.Form("Prenom") <> "" and Request.Form("Courriel") <> "" then Set Mailer = Server.CreateObject("CDONTS.NewMail") ' Variable ajoutée par Max Dim bodyMail ' Construire le contenu du mail bodyMail = bodyMail & "Client First and Last Names: " & Request.Form("Titre") & " " & Request.Form("Prenom") & " " & Request.Form("Nom") & vbCrLf & vbCrLf bodyMail = bodyMail & "Email: " & Request.Form("Courriel") & vbCrLf & vbCrLf bodyMail = bodyMail & "Remarks: " & Request.Form("remarques") & vbCrLf & vbCrLf Mailer.Body = bodyMail ' Envoyer le mail Mailer.From = Request.Form("Courriel") Mailer.To = "info@keeferplaceoptometry.com" ' Mailer.Cc = Request.Form("Courriel") Mailer.Subject = "Appointment request - ABC" Mailer.Send %>

// Your mail has been sent.
Thank You! //

<% else %>

Title: 
First name*:  " /> <% if FieldOk("Prenom") = false then Response.Write("Enter your First name") end if %>
Last name*: " /> <% if FieldOk("Prenom") = false then Response.Write("Enter your Last name") end if %>
E-mail*:  " /> <% if FieldOk("Courriel") = false then Response.Write("E-mail mandatory") end if %>
(for confirmation email only, will not be given to a third party)
Comments:
 
<% end if %>