<% Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function emailAddress = Cstr(Request.Form("email")) %> <% if Len(emailAddress)<> 0 and RegExpTest(emailAddress) then Set myMail=CreateObject("CDO.Message") myMail.Subject="Formulaire Cmetal" myMail.From=emailAddress myMail.To="mail@cmetal.fr" Dim TexteMsg TexteMsg="Nom = " & Request.Form("nom") & vbcrlf TexteMsg=TexteMsg + "Prenom = " & Request.Form("prenom") & vbcrlf TexteMsg=TexteMsg + "Societe = " & Request.Form("societe") & vbcrlf TexteMsg=TexteMsg + "Adresse = " & Request.Form("adresse") & vbcrlf TexteMsg=TexteMsg + "Code Postal = " & Request.Form("CP") & vbcrlf TexteMsg=TexteMsg + "Ville = " & Request.Form("ville") & vbcrlf TexteMsg=TexteMsg + "Pays = " & Request.Form("pays") & vbcrlf TexteMsg=TexteMsg + "Email = " & Request.Form("email") & vbcrlf TexteMsg=TexteMsg + "Telephone = " & Request.Form("telephone") & vbcrlf TexteMsg=TexteMsg + "Fax = " & Request.Form("fax") & vbcrlf TexteMsg=TexteMsg + "Message = " & Request.Form("message") & vbcrlf myMail.TextBody=TexteMsg myMail.Send%>
 
<% response.write "Nous vous remercions et traitons votre demande dans les plus brefs délais." %>
 
>Revenir au site
<%else %>


     5, rue de la bruyère
     28403 Nogent-le-Rotrou cedex
     Tél.: 02 37 53 36 36
     Fax : 02 37 53 36 37

<%if Len(Request.Form("listechamps"))<>0 then %> L'email saisi n'est pas correct. <%end if %>

L'ÉQUIPE DE C-MÉTAL EST à votre disposition...

Prénom

Nom

Société

Adresse

Code postal

Commune

Pays

E-mail

Téléphone

Fax

Message

Home - Moyens - réalisations - Contact - Crédits
    <%end if %>