Contacting Us At Incred-A-Bowl

<% DIM Mailer, patient, address, city, st, zip, daytime_phone, evening_phone, email, comments Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 if request.form("act") = "email" then patient = request.form("patient") daytime_phone = request.form("daytime_phone") email = request.form("email") comments = request.form("comments") theBody = "Email From: " & patient & vbCrLf & _ "Preferred Phone: " & daytime_phone & vbCrLf & _ "Email: " & email & vbCrLf & _ "---------------------------------------------------------------------" & vbCrLf & _ "Comments: " & vbCrLf & vbCrLf & comments & vbCrLf Set Mailer = CreateObject("CDO.Message") Mailer.From = email Mailer.Subject ="Incred-A-Bowl Request from ESG Website Hosting" Mailer.To ="sales@incredabowl.com" Mailer.Bcc = "jeff@jefferickson.com" Mailer.TextBody = theBody Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.incredabowl.com" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "admin-incredabowl@incredabowl.com" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "c0mm@nd" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mailer.Configuration.Fields.Update Mailer.Send Set Mailer = CreateObject("CDO.Message") theBody = "We have received your request for information about Incred-A-Bowl!" & vbCrLf & vbCrLf & "Thank you for your inquiry. We will contact you shortly and look forward to helping you." Mailer.From = "sales@incredabowl.com" Mailer.Subject ="Thank You For Your Interest In Incred-A-Bowl!" Mailer.To =email Mailer.TextBody = theBody Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.incredabowl.com" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "admin-incredabowl@incredabowl.com" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "c0mm@nd" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mailer.Configuration.Fields.Update Mailer.Send Response.Redirect("http://www.incredabowl.com/contact_us/contact_success.php") end if %> Contacting Us At Incred-A-Bowl

Open at 11am Everyday

(913) 851-1700

8500 west 151st Overland Park, KS

Incredabowl

Get In Touch With Us!

Would you like more information about Incred-A-Bowl? Or perhaps schedule an event or meeting? Please drop us a line using this form for any questions, reservations, or comments you might have.

And thank you for your interest in Incred-A-Bowl!

Name
Phone Number
Email Address
Reservation, Question, or Comment