%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "site@bib-co.com" objCDO.To = "info@bib-co.com" objCDO.CC = "" objCDO.Subject = "Message en provenance de votre site Internet" objCDO.Body = "Infos sur le visiteur" & chr(13) & chr(13) & "Nom: " & Request("nom") & chr(13) & "Prenom: " & request("Prenom") & chr(13) & chr(13) & "E-mail: " & request("mail") & chr(13) & "Commentaires, questions,...: " & request("comment") objCDO.Send() Set objCDO = Nothing Response.Redirect("thanksbis.htm") End If %>