<% if request.form("submitted") = "1" then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request.form("Name") Mailer.FromAddress = request.form("Email") ' fill in your host Mailer.AddRecipient "WD BACH", "info@wdbach.com" Mailer.RemoteHost = "mail.wdbach.com" Mailer.Subject = "WD Bach web site contact us form" Mailer.BodyText = "NAME: " & request.form("Name") & VbCrLf & "ADDRESS: " & request.form("Address") & ", " & request.form("City") & ", " & request.form("State") & "," & request.form("ZIP") & VbCrLf & "PHONE: " & request.form("Phone") & VbCrLf & "EMAIL: " & request.form("Email") & VbCrLf & "COMMENTS: " & request.form("Comments") Mailer.SendMail ThankYou = "Thank you! Your information has been sent!" end if %> W.D. Bach : Excavating & Consulting LLC


 

<%= ThankYou %> For more information, please fill out the form below and submit, or if you would like, just send an email to info@wdbach.com

 
Name
Address
City, State, ZIP

Phone
Email
Comments
 

 
 


P.O. Box 434 Clayton, NY 13624
phone: 315-686-5555 • fax: 315-686-5540 • email: info@wdbach.com

Copyright © 2002
All rights reserved