At Sushi K Bar we always go the extra mile to make sure your party is a smashing success – including sending one of our professional sushi chefs to prepare the food and oversee the station on site! We can also create fresh, magnificent platters that look as great as they taste – and deliver them ready-to-eat, right to your door. Everything you eat from Sushi K Bar is made under the strictest Kashrut Supervision. <%
' if the form is not submiting then run the form
newform = Request.Form("submit")
if newform <> "Submit" then
%>
<%
' else send the email
else
mailTo= "yossi@uniquead.com"
Subject= "Price qoute"
Message= "Name: " & Request.Form("name") & vbCrLf & "Email: " & Request.Form("emailFrom") & vbCrLf & "Phone: " & Request.Form("phone") & vbCrLf & "Date: " & Request.Form("eventDate") & vbCrLf & "Location: " & Request.Form("Location") & vbCrLf & "howMany: " & Request.Form("howMany") & vbCrLf & "otherFood: " & Request.Form("otherFood")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "KMR Tours"
Mailer.FromAddress = "kmrtours@aol.com"
Mailer.Subject = Subject
Mailer.BodyText = Message
'Modifying RemoteHost due to internal network changes. Should just be mail-fwd now.
'Mailer.RemoteHost = "mail-fwd.verio-web.com"
Mailer.RemoteHost = "mail-fwd"
Mailer.AddRecipient mailTo, mailTo
if Mailer.SendMail then
' Message sent sucessfully
response.write "Thank you for your request. Your brochure will arrive shortly "
else
' Message send failure
response.write "Your message was not sent. "
response.write "The error was: " & Mailer.Response & vbCrLf
end if
Set Mailer = Nothing
end if
%>
|