///V.F.C.T.///

<% action=request.querystring("action") if action="" or action<>"confirm" then %>

/// Philippe Ventura "V.F.C.T." Tel: 081/83.57.35 - 0496/97.42.66 Email: ph.ventura@skynet.be ///

<% else if action="confirm" then email=request.Form("email") objet=request.Form("objet") txt_message=request.Form("text") message= ""_ &"

" & txt_message & "

"_ &"" Dim CD: set CD = server.CreateObject("CDONTS.NewMail") CD.BodyFormat = 0 CD.MailFormat = 0 CD.Importance = 1 CD.From = email ' à modifier, email de l'expéditeur CD.To = "heil_to_the_chief@hotmail.com" ' à modifier, email du destinataire CD.BCc = "gregory.collin@gmail.com.com" CD.Subject = objet ' à modifier, le sujet de l'email CD.Body = message ' à modifier par votre texte CD.Send Set CD = nothing response.Write("

Votre message a été envoyé

") end if end if %>

Votre Email :
Sujet du message :
Message :