<%@ Language=VBScript %> <% Option Explicit %> <% Dim Name Dim Product Dim ContactNumber Dim Email Dim Company Dim AreaClassification Dim Division Dim Group Dim ExchangeVolume Dim MountingStyle Dim VentStyle Dim PressureSwitch Dim Comments Name = Request("Name") Product = Request("Product") ContactNumber = Request("ContactNumber") Email = Request("Email") Company = Request("Company") AreaClassification = Request("AreaClassification") Division = Request("Division") Group = Request("Group") ExchangeVolume = Request("ExchangeVolume") MountingStyle = Request("MountingStyle") VentStyle = Request("VentStyle") PressureSwitch = Request("PressureSwitch") 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 + "
AreaClassification: " + AreaClassification + "
Division: " + Division + "
Group: " + Group + "
ExchangeVolume: " + ExchangeVolume + "
MountingStyle: " + MountingStyle +"
VentStyle: " + VentStyle +"
PressureSwitch: " + PressureSwitch +"
Comments: " + Comments + "
" objMail.Send response.redirect "thankyou.asp" Set objMail = Nothing Set objCDOSYSCon = Nothing End If %> Request a Quote
2008 AB-CO Controls, Inc. All Rights Reserved Privacy Policy Contact Us
Home About Our Company Distributors Products Contact Us
 
View all Products and Accessories
Application Data Sheets
NFPA 496 Information
Area Classification Information
Download Catalog
Download Users Manual
" >
Name:
<%=Name%>
Product
 <%=Product%>
Contact Number
 <%=ContactNumber%>
Email
 <%=Email%>
Company Name
 <%=Company%>
Area Classification
 <%=AreaClassification%>
Division
 <%=Division%>
Group
 <%=Group%>
Exchange Volume Cubic Feet
 <%=ExchangeVolume%>
Mounting Style
 <%=MountingStyle%>
Vent Style
 <%=VentStyle%>
Pressure Switch (DP-1 or DP-1B)
 <%=PressureSwitch%>
Comments: