<%
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "Ta Cocina Website"
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Tacocina", "tacocina714@aol.com"
Mail.Subject = "Reservation"
Mail.BodyText = "Name"
Mail.BodyText = Request.Form("name")
Mail.BodyText = "Telephone Number"
Mail.BodyText = Request.Form("telephone")
Mail.BodyText = "Time of arrival"
Mail.BodyText = Request.Form("time")
Mail.BodyText = "Date"
Mail.BodyText = Request.Form("date")
Mail.BodyText = "Aditional Comments"
Mail.BodyText = Request.Form("comments")
if Mail.SendMail then
Response.Write "Your mail has already been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
%>
