Contact Us

<% ' if the form is not submiting then run the form newform = Request.Form("submit") if newform <> "Submit" then %>

Name of Company
Address
Contact Name
Contact Phone Number
Contact Email Address
Contact Fax Number
How Many Outside Lines?
How Many Telephones?
Do You Need Voicemail?
What Kind of Phone System do You Currently Have?
Time Frame for Sale/Installation

<% ' else send the email else mailTo= Request.Form("mailTo") & "rpurnell@bustelsys.com" Subject= "Sales Information request" Message= Request.Form("companyname") & vbcrlf& Request.Form("address") & vbcrlf& Request.Form("contactname") & vbcrlf& Request.Form("phone") & vbcrlf& Request.Form("email") & vbcrlf& Request.Form("fax") & vbcrlf& Request.Form("lines") & vbcrlf& Request.Form("fax") & vbcrlf& Request.Form("howmanyphones") & vbcrlf& Request.Form("voicemail") & vbcrlf& Request.Form("current_system") & vbcrlf& Request.Form("timeframe") Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = Request.Form("contactname") Mailer.FromAddress = Request.Form("email") Mailer.Subject = "test - " & Subject Mailer.BodyText = message & vbcrlf Mailer.RemoteHost = "mail-fwd.bellsouth-hosting.net" Mailer.AddRecipient mailTo, mailTo if Mailer.SendMail then ' Message sent sucessfully response.write "Thanks for requesting information from Business Telephone Systems Inc." else ' Message send failure response.write "Your message was not sent.
" response.write "The error was: " & Mailer.Response & "
" end if Set Mailer = Nothing end if %>