EHS Solutions | Request a Quote

<% ' Get Form Values and Process to Variables strSendmail = request("sendmail") 'strRecipient = "sgoulet@bluesphereinc.com" 'strRecipient = "cosborn@bluesphereinc.com" strRecipient = "rherrmann@ehsnow.com, bgudeman@ehsnow.com" 'strRecipient = "ksmith@bluesphereinc.com" 'testing address, switch to above when publishing strRedirect = "http://www.ehsnow.com/thanks.html" strSubject = "Request a Quote From Website" strFirstname = request("firstname") strLastname = request("lastname") strAddress1 = request("address1") strAddress2 = request("address2") strCity = request("city") strState = request("state") strZipcode = request("zipcode") strPhone = request("phone") strFax = request("fax") strEmail = request("email") strComments = request("textarea") 'use internal from email strFromEmail = "noreply@bluespheremail.com" Message = "Date of Website Contact:" & date() & chr(13) Message = Message & "First Name: " & strFirstname & chr(13) Message = Message & "Last Name: " & strLastname & chr(13) Message = Message & "Address1: " & strAddress1 & chr(13) Message = Message & "Address2: " & strAddress2 & chr(13) Message = Message & "City: " & strCity & chr(13) Message = Message & "State: " & strState & chr(13) Message = Message & "Zip Code: " & strZipcode & chr(13) Message = Message & "Phone: " & strPhone & chr(13) Message = Message & "Fax: " & strFax & chr(13) Message = Message & "Email: " & strEmail & chr(13) Message = Message & "Comments: " & strComments & chr(13) if strSendmail = "1" then Set objMail = CreateObject("CDO.Message") 'objMail.Value("Reply-To") = strEmail 'objMail.Send FromName, ToName, subject, Message 'objMail.Send strFromEmail, strRecipient, strSubject, Message objMail.From = strFromEmail objMail.To = strRecipient objMail.Subject = strSubject objMail.TextBody = Message objMail.Send Set objMail = nothing 'response.write "error if:
" 'response.write err.description 'response.end 'response.flush response.redirect(strRedirect) else response.write "error:
" response.write err.description end if %>

Please complete the detailed information below so we can provide you with the most accurate quote. Fields marked with an * are required.

First Name*
Last Name*
Address 1*
Address 2
City*
State*
Zip*
Phone*
Fax
Email*
Comments

	Data Sheets
	Reactor Charging (539 kb PDF)
	Blender (267kb PDF)
	Charging Chute (162kb PDF)
	Hopper Charging (106kb PDF)
	Drum to Drum Dispensing (390 kb PDF)