Optima Produits domiciliaires : Contactez-nous

<%@ LANGUAGE="VBSCRIPT" %> <% if Request.Form("bouton") <> "" then '* Validation serveur des champs If Request.Form("nom") = "" Then 'courriel non vide strError = "Vous devez indiquer le nom de la personne à contacter." ElseIf Request.Form("courriel") = "" Then strError = "Vous devez indiquer votre adresse de courriel." ElseIf Request.Form("questions") = "" Then strError = "Le champ questions/commentaires ne doit pas être vide." Else strError = "" '* Création du body du message Dim strBody strBody = "Nom : " & Request.Form("nom") & vbCrlf strBody = strBody + "Adresse de courriel : " & Request.Form("courriel") & vbCrlf strBody = strBody + vbCrlf strBody = strBody + "Questions/commentaires : " & vbCrlf & Request.Form("questions") & vbCrlf '* Envoi du email Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") ' on crée l'objet CDONTS Mailer.To = "info@optimaproduitsdomiciliaires.com" ' email du destinataire Mailer.From = Request.Form("courriel") ' email de l'expediteur Mailer.Subject = "Demande d'information" ' titre du message Mailer.Body = strBody ' corps du message Mailer.Send ' on envoie le tout End if end if %> Optima Produits domiciliaires : Contactez-nous

Optima Produits domiciliaires I Portes et fenêtres

Notre entreprise

Produits

Réalisations

Fournisseurs

Distributeurs

Contactez-nous

Contactez-nous

Optima Produits domiciliaires
2527, rue Dalton (Parc Colbert),
Sainte-Foy (Québec) G1P 3S6

Téléphone : (418) 653-6196
Télécopieur : (418) 653-8960

Demande d'information

<% '* Affiche du message d'erreur provenant de la validation ASP If strError <> "" Then %>

<%=strError%>

<% End If %> <% if Request.Form("bouton") <> "" AND strError = "" then %>

Votre demande a été envoyée. Nous vous recontacterons dans les plus bref délais.

<% Else %>

<% End If %>