<%@LANGUAGE="VBSCRIPT"%><% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("email") objCDO.To = "rpatonash@strataproducts.com" objCDO.BCC = "jweber@siteadventures.com" objCDO.Subject = "Web Site Inquiry" Dim strBody strBody = "" strBody = strBody & "Name: " & Request.Form("name") strBody = strBody & VbCrLf strBody = strBody & "Title: " & Request.Form("title") strBody = strBody & VbCrLf strBody = strBody & "Company: " & Request.Form("company") strBody = strBody & VbCrLf strBody = strBody & "Email: " & Request.Form("email") strBody = strBody & VbCrLf strBody = strBody & "Phone: " & Request.Form("phone") strBody = strBody & VbCrLf strBody = strBody & "Fax: " & Request.Form("fax") strBody = strBody & VbCrLf strBody = strBody & "Address: " & Request.Form("address") strBody = strBody & VbCrLf strBody = strBody & "City, State, Zip: " & Request.Form("city") strBody = strBody & VbCrLf strBody = strBody & "Country: " & Request.Form("country") strBody = strBody & VbCrLf strBody = strBody & "Comments: " & Request.Form("comments") strBody = strBody & VbCrLf objCDO.Body = strBody objCDO.Send() Set objCDO = Nothing Response.Redirect("thankyou.htm") End If %> Strata Products






 

Production Facility & Sales Office
525 E. Stonewall Street
Sutton, West Virginia 26601
Telephone: (304) 765-7393
Fax: (304) 765-3788
Email: info@atstimber.com
www.atstimber.com

Corporate Office
3939 Roswell Road, NE Suite 100
Marietta, Georgia 30062
Telephone: (770) 321-2500
Fax: (770) 321-2520
Email: info@strataproducts.com

To request more information from Appalachian Timber Services, Inc, please complete the form below and click the Request Information button.

Your Name
Title
Company
Email Address
Street Address
City, State, Zip
Country
Phone
Fax
Comments: