Streit - Questions

Faites-nous part de vos remarques à l'aide du formulaire suivant :

<% If (cStr(Request("Submit")) <> "") Then Dim objCDO, varnom, varprenom, varemail, varbody, body varnom = Request.Form("nom") varprenom = Request.Form("prenom") varemail = Request.Form("email") varbody = Request.Form("message") body = varnom & " " & varprenom & VbCrLf & varemail & VbCrLf & varbody Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "info@streitdecolletage.com" objCDO.To = "info@streitdecolletage.com" 'objCDO.CC = Request.Form("body") objCDO.Subject = "Questions en provenance du site web" objCDO.Body = body objCDO.Send() Set objCDO = Nothing Response.Redirect("merci.html") End If %>