 |
 |
<%
' if the form is not submiting then run the form
newform = Request.Form("submit")
mailTo= "rick@baummachine.com"
Subject= "Quote Request"
FirstName= Request.Form("First_Name")
LastName= Request.Form("Last_Name")
Title= Request.Form("Title")
Organization= Request.Form("Organization")
StreetAddress= Request.Form("Street_Address")
City= Request.Form("City")
State= Request.Form("State_Province")
Zip= Request.Form("Zip_Postal_Code")
Country= Request.Form("Country")
Phone= Request.Form("Phone")
Fax= Request.Form("Fax")
FromEmail= Request.Form("Email")
Desc= Request.Form("Description_of_Your_Project")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = FirstName & " " & LastName
Mailer.AddRecipient "Duane", "duane@baummachine.com"
Mailer.AddRecipient "Greg Madson", "greg@leibold.com"
Mailer.AddRecipient "Baum Office", "baumoffice@baummachine.com"
Mailer.FromAddress = "support@hostcenter.com"
Mailer.ReplyTo = FromEmail
Mailer.Subject = Subject
Mailer.BodyText = FirstName & " " & LastName & chr(13) & Title & chr(13) & Organization & chr(13) & "Address: " & StreetAddress & chr(13) & City & ", " & State & ", " & Zip & chr(13) & Country & chr(13) & "Phone: " & Phone & chr(13) & "Fax: " & Fax & chr(13) & chr(13) & Desc
'Modifying RemoteHost due to internal network changes. Should just be mail-fwd now.
'Mailer.RemoteHost = "mail-fwd.hostcenter.com"
Mailer.RemoteHost = "mail-fwd"
Mailer.AddRecipient mailTo, mailTo
Validated_Form = true
IF len(FirstName)<1 THEN
Validated_Form = false
END IF
IF len(LastName)<1 THEN
Validated_Form = false
END IF
IF len(Organization)<1 THEN
Validated_Form = false
END IF
IF len(StreetAddress)<1 THEN
Validated_Form = false
END IF
IF len(City)<1 THEN
Validated_Form = false
END IF
IF len(State)<1 THEN
Validated_Form = false
END IF
IF len(Zip)<1 THEN
Validated_Form = false
END IF
IF len(Country)<1 THEN
Validated_Form = false
END IF
IF len(FromEmail)<6 OR InStr(FromEmail,"@")=0 THEN
Validated_Form = false
END IF
IF len(Desc)<1 THEN
Validated_Form = false
END IF
IF Validated_Form THEN
if Mailer.SendMail then
' Message sent sucessfully
response.write "Thank you for your interest in Baum Machine. We will get back to you shortly."
else
' Message send failure
response.write "Your message was not sent." response.write "The error was: " & Mailer.Response & " " end if Set Mailer = Nothing ELSE %> Thank you for your interest in Baum Machine. Please enter your information in the fields and click Submit. We look forward to receiving your request and we will respond promptly. (Required items are marked with an asterisk) <%=Required%> <% END IF %> |
|
Home Horizontal/Vertical Machining Turning/Roll Capabilities Custom Machine Design Fabrication Assembly About Us Machine Capabilities Request a Quote Contact Us |
||
| BAUM MACHINE, INC. N253 Stoney Brook Rd. Appleton, WI 54915 Phone: (920) 738-6613 Fax: (920) 738-0571 |