<%@ Language=VBScript %> <% Option Explicit %> <% Dim Name Dim Product Dim ContactNumber Dim Email Dim Company Dim Comments Name = Request("Name") Product = Request("Product") ContactNumber = Request("ContactNumber") Email = Request("Email") Company = Request("Company") Comments = Request("Comments") If Request.Form("Submit") "" Then Dim objMail, objCDOSYSCon Set objMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields(cdoSendUsingMethod) = cdoSendUsingPort objCDOSYSCon.Fields(cdoSMTPServer) = "mail.americananalog.com" objCDOSYSCon.Fields(cdoSMTPServerPort) = 25 objCDOSYSCon.Fields(cdoSMTPAuthenticate) = cdoBasic objCDOSYSCon.fields(cdoSendUserName) = "mike.rios@americananalog.com" objCDOSYSCon.fields(cdoSendPassword) = "2906" objCDOSYSCon.Fields.Update Set objMail.Configuration = objCDOSYSCon objMail.From = "mike.rios@americananalog.com" objMail.To= "mike.rios@americananalog.com" objMail.Subject= "Contact Form Sent From AB-CO Controls Web Site" objMail.HTMLBody = "
Name: " + Name + "
Product: " + Product + "
ContactNumber: " + ContactNumber + "
Email: " + Email + "
Company: " + Company + "
Comments " + Comments + "
" objMail.Send response.redirect "thankyou.asp" Set objMail = Nothing Set objCDOSYSCon = Nothing End If %> Contact ABCO Controls, Inc
2008 AB-CO Controls, Inc. All Rights Reserved Privacy Policy Contact Us
Home About Our Company Distributors Products Contact Us

Houston
4400 South Wayside Drive
Suite 104-A
Houston, TX 77087
Telephone: 713.649.8004
Fax: 713.649-8005

Louisiana
205 West Governor Miro Dr.
Lafayette, LA
Telephone: 337.988-0278
Fax: 337.988.2682

Dallas
14205 Proton Road
Suite B
Dallas, TX 75244
Telephone: 972.907.1170
Fax: 972.907.1490

Manufacturing and Billing Inquiries
PO Box 590307
Houston, TX 77259-0307
Telephone: 713.649.8004
Fax: 713.649.8005
" >
Name: <%=Name%>
Product <%=Product%>
Contact Number <%=ContactNumber%>
Email <%=Email%>
Company Name <%=Company%>
Comments: