<%@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:
www.atstimber.com

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


Email: info@strataproducts.com

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