Message |
<%
else
Dim objCDOMail
dim body
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
Body = "YourSushi Request" + chr(10) + chr (13)
Body = Body + "Nom: "+ Request.Form("nom") + ".................................................." + chr(10) + chr (13)
Body = Body + "Tel: "+ Request.Form("Telephone") + ".................................................." + + chr(10) + chr (13)+ chr(10) + chr (13)
Body = Body + "Email: "+ Request.Form("Email") + ".................................................." + + chr(10) + chr (13)
Body = Body + "Interest: "+ Request.Form("Interest") + ".................................................." + + chr(10) + chr (13)
Body = Body + "Location: "+ Request.Form("Location") + ".................................................." + + chr(10) + chr (13)
Body = Body + "Day: "+ Request.Form("formDate") + ".................................................." + + chr(10) + chr (13)
Body = Body + "Message:"+ Request.Form("enquiry") + ".................................................." + + chr(10) + chr (13)
objCDOMail.Send "mail@yoursushi.co.uk","letellier@gmail.com, info@yoursushi.co.uk","YourSushi Request - " + Request.Form("nom"),body
Set objCDOMail = nothing
Response.redirect "index.html"
end if
%>
|