<%Language=VBScript%> <%Response.Buffer = true%> Austin Farms Sodding - The Kansas City Metropolitan Area’s Premiere Sodding Company
About Austin Farms Sodding
Mission
Services
Pricing
SodGuide
Ordering
Forms
FAQs
1120 SE Century Drive Lee's Summit, MO 64081 ~ sales@austinfarms.com ~ 816-246-4489
 
The Kansas City Metropolitan Area’s Premiere Sodding Company
 
Excavation Sodding Hydro-Seeding Winter Services
<% 'IF Request.Form("cmdSubmit.X") THEN 'For use with Graphic Buttons IF LEN(Request.Form("cmdSubmit")) <> 0 THEN 'For use with System Buttons Dim strFirst_Name Dim strLast_Name Dim strStreet_Address1 Dim strStreet_Address2 Dim strCity Dim strState Dim strZip Dim strDay_Phone Dim strEvening_Phone Dim strEmail_One Dim strEmail_Two Dim strComments strFirst_Name = TRIM(Request.Form("txtFirst_Name")) strLast_Name = TRIM(Request.Form("txtLast_Name")) strStreet_Address1 = TRIM(Request.Form("txtStreet_Address1")) strStreet_Address2 = TRIM(Request.Form("txtStreet_Address2")) strCity = TRIM(Request.Form("txtCity")) strState = TRIM(Request.Form("txtState")) strZip = TRIM(Request.Form("txtZip")) strDay_Phone = TRIM(Request.Form("txtDay_Phone")) strEvening_Phone = TRIM(Request.Form("txtEvening_Phone")) strEmail_One = TRIM(Request.Form("txtEmail_One")) strEmail_Two = TRIM(Request.Form("txtEmail_Two")) strComments = TRIM(Request.Form("txtComments")) Call CDOMail %>

<<< Back to Home

Thank You!

We appreciate your interest in Austin Farms Sodding.

If you have further questions or comments, please contact
our offices directly by calling 816-246-4489

<%ELSE%>

Welcome to Austin Farms Online Contact Form
We appreciate your interest in Austin Farms Sodding.

Please take a moment to fill out the form below, we look forward
to contacting you and answering any quesitons you may have.

If you have further questions or comments, please contact
our offices directly by calling 816-246-4489

First Name
   
Last Name
   
Street Address
   
Address Additional
City
State Zip
Day Phone
Evening Phone    
Email One
Email Two
Comments
 
   
     
         
ChoosingSod
Measure Sod
New Sod Care
Watering Guide
ChoosingSod
Measure Sod
New Sod Care
Watering Guide
<%END IF%> <% SUB CDOMail() Dim strVisitor strVisitor = strFirst_Name & " " & strLast_Name 'The header/footer for the email. Const strHeader = "The following information is for Austin Farms Sodding" Const strFooter = "End of Information" 'Who does this go to? 'Const strTo = "YourAlias@Domain.com;SecondAlias@Domain.com" Const strTo = "sales@austinfarms.com" 'This information is optional Dim strFrom, strSubject, strPhone, strRedirectURL strFrom = Request.Form("txtEmail_One") 'If Len(strFrom) = 0 then strFrom = strTo strSubject = "An email contact request for Austin Farms Sodding" Dim strBody strBody = strHeader& vbCrLf & vbCrLf strBody = strBody & strVisitor & " submitted this online request form at " & Now() & vbCrLf & vbCrLf strBody = strBody & "First Name: " & strFirst_Name & vbCrLf strBody = strBody & "Last Name: " & strLast_Name & vbCrLf strBody = strBody & "Street Address 1: " & strStreet_Address1 & vbCrLf strBody = strBody & "Street Address 2: " & strStreet_Address2 & vbCrLf strBody = strBody & "City: " & strCity & vbCrLf strBody = strBody & "State: " & strState & vbCrLf strBody = strBody & "Zip: " & strZip & vbCrLf strBody = strBody & "Day Phone: " & strDay_Phone & vbCrLf strBody = strBody & "Evening Phone: " & strEvening_Phone & vbCrLf strBody = strBody & "Email One: " & strEmail_One & vbCrLf strBody = strBody & "Email Two: " & strEmail_Two & vbCrLf strBody = strBody & "Comments: " & strComments & vbCrLf strBody = strBody & vbCrLf & strFooter 'Time to send the email Set myMail=CreateObject("CDO.Message") myMail.Subject= strSubject myMail.From= strFrom myMail.To= strTo myMail.TextBody= strBody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="relay-hosting.secureserver.net" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing END SUB %>