champs (*) sont obligatoire

Adresse mail:*

Sujet:

Nom et prénom:*

Adresse:

Téléphone:

<% ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim Name Dim Address Dim Telephone ' get posted data into variables EmailFrom = Trim(Request.Form("EmailFrom")) EmailTo = "webmaster@impaqt.net" Subject = Trim(Request.Form("Subject")) Name = Trim(Request.Form("Name")) Address = Trim(Request.Form("Address")) Telephone = Trim(Request.Form("Telephone")) ' validation Dim validationOK validationOK=true If (Trim(EmailFrom)="") Then validationOK=false If (Trim(Name)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom) ' prepare email body text Dim Body Body = Body & "Name: " & Name & VbCrLf Body = Body & "Address: " & Address & VbCrLf Body = Body & "Telephone: " & Telephone & VbCrLf ' send email Dim mail set objUpload = server.CreateObject("Dundas.Upload.2") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("ok.html" & EmailFrom) %>