<% b1 = request("B1")&"" if b1 = "Submit" then st = "" for i = 1 to Request.Form.Count s = Request.Form.Key(i) v = Request.Form.Item(i) st = st & "" next st = st & "
" & i & "" & s & "" & v & "
" Dim ObjSendMail Set ObjSendMail=CreateObject("CDO.Message") ObjSendMail.Subject="Comment From Web Page Contact Form" ObjSendMail.From="brady@clearstreamsystems.com" ObjSendMail.To="brady@clearstreamsystems.com" ObjSendMail.HTMLBody = st ObjSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server ObjSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ =208.109.138.154 'Server port ObjSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =21 ObjSendMail.Configuration.Fields.Update ObjSendMail.Send set ObjSendMail=nothing %>

Thank you For Submitting a Request for Information to Clearstream Wastewater Systems. Inc.
 

Click here to return to Home Page.

 <% else %>


CONTACT US

We have account representatives standing by to assist you during normal business hours.

Clearstream Wastewater Systems, Inc.
4899 US Hwy 69 South
Lumberton, Texas 77657

Clearstream Wastewater Systems, Inc.
P. O. Box 7568
Beaumont, Texas 77726

Toll Free 1-800-586-3656
Local 409-755-1500
Fax 409-755-6500

To send an email to Clearstream please use the contact form below. An email to our staff will be
generated from the information you provide and delivered to the appropriate account representative..

 

Name:
Email:
Company:
City:
State:
Phone:
Question:
 

<% end if %>