NOM / PRÉNOM* M. Mme ADRESSE* CP / VILLE / PAYS* TEL / FAX E-MAIL* COMMENTAIRES   * CHAMPS OBLIGATOIRES

<% if request.querystring("A")="E" then %> <% end if %> <% Sub EnvoyerEmail(p_strEmailFrom, p_strEmailTo, p_strCC, p_strTitre, p_strMessage) Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = p_strEmailFrom objCDO.To = p_strEmailTo objCDO.cc = p_strCC objCDO.Subject = p_strTitre objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Body = p_strMessage objCDO.Send set objCDO = nothing End sub %> <% Dim l_strFrom, l_strSujet, l_strMessage if request.querystring("A")="E" then l_strFrom = "bmv@noos.fr" 'email de contact du site (contact@lesite.com) l_strSujet = "Contact de votre site" l_strMessage = "Nom / prénom : " & request.form("lstCivilite") & " " & request.form("txtNom") & " " & request.form("txtPrenom") l_strMessage = l_strMessage & "
Adresse : " & request.form("txtAdresse1") l_strMessage = l_strMessage & "
CP / Ville : " & request.form("txtCodePostal") & " " & request.form("txtVille") l_strMessage = l_strMessage & "
Pays : " & request.form("txtPays") if request.form("txtTelephone") <> "" then l_strMessage = l_strMessage & "
Tél. : " & request.form("txtTelephone") if request.form("txtFax") <> "" then l_strMessage = l_strMessage & "
Fax : " & request.form("txtFax") l_strMessage = l_strMessage & "
E-mail : " & request.form("txtEmail") & "" if request.form("txtCommentaires") <> "" then l_strMessage = l_strMessage & "
Commentaires : " & request.form("txtCommentaires") 'if request.form("chkCatalogue")="on" then l_strMessage = l_strMessage & "
Demande de catalogue : oui" call EnvoyerEmail(l_strFrom, l_strFrom, "", l_strSujet, l_strMessage) end if %>