<%
if request.QueryString("SendMail")=1 then
if trim(Request.Form("names"))<>"" and trim(Request.Form("Emails"))<>"" and trim(Request.Form("Messages"))<>"" then
Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = trim(Request.Form("Emails"))
MyMail.To = "info@slush.ie"
MyMail.Subject = "Enquiry from" & trim(Request.Form("names"))
MyMail.HTMLBody= "Message from :" & trim(Request.Form("names")) &" phone No:"&trim(Request.Form("phones"))&"
" &trim(Request.Form("Messages"))
MyMail.Fields("urn:schemas:httpmail:importance").Value = 2
MyMail.Fields.Update()
MyMail.Send()
Set MyMail = Nothing
response.Redirect("Thankyou.php")
end if
end if
%>
Contact Us
