<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="batko.com"
cdoConfig.Fields.Update
set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From=Request.Form(cmenard@batko.com)
cdoMessage.To="cmenard@batko.com"
cdoMessage.Subject=Request.Form("Ici le sujet du message")
cdoMessage.TextBody=Request.Form ("Ici l corps du message")
cdoMessage.Send
Set cdoMessage=Nothing
Set cdomessage=Nothing
%>
Newland Tours: About
Message Sent
Your message has been sent. You should hear from ou within two days
