<% Response.Expires=-1400 dim mailSent,strBody,oMail,mailTo1,mailTo2 mailSent=false 'mailTo1 = "fozcan@ebaseinteractive.com" 'mailTo2 = "fozcan@ebaseinteractive.com" 'mailTo1="samell@envirencalibrations.com" mailTo1="enviren_contact@envirencalibrations.com" 'mailTo2="dcarter@envirencalibrations.com" if Request.Form("txtZip1")<>"" then strBody="Company : " & Request.Form("txtComp") & vbCrLf strBody=strBody & "Contact Name : " & Request.Form("txtContName") & vbCrLf strBody=strBody & "Title : " & Request.Form("txtTitle") & vbCrLf strBody=strBody & "Address : " & Request.Form("txtAddress") & vbCrLf strBody=strBody & "City : " & Request.Form("txtCity") & vbCrLf strBody=strBody & "State : " & Request.Form("cboState") & vbCrLf strBody=strBody & "Zip Code : " & Request.Form("txtZip1") & aif(len(Request.Form("txtZip2"))>0," - " & Request.Form("txtZip2"),"") & vbCrLf strBody=strBody & "Telephone : (" & Request.Form("txtT1") & ")" & Request.Form("txtT2") & "-" & Request.Form("txtT3") & aif(len(Request.Form("txtT4"))>0," Ext." & Request.Form("txtT4"),"") & vbCrLf strBody=strBody & "Fax : " & Request.Form("txtF1") & " " & Request.Form("txtF2") & " " & Request.Form("txtF3") & vbCrLf strBody=strBody & "E-mail Address : " & Request.Form("txtEmail") & vbCrLf strBody=strBody & "Comments and Questions :" & vbcrlf & Request.Form("txtComments") & vbCrLf strBody=strBody & "Have a customer service representative contact me : " & aif(Request.Form("chkRep")="on","YES","Not selected") & vbCrLf strBody=strBody & "Send Brochure : " & aif(Request.Form("chkBrochure")="on","YES","Not selected") & vbCrLf 'Response.Write strBody set oMail=Server.CreateObject("cdonts.newmail") oMail.Subject="Enviren Contact Enquiry" 'oMail.To=mailTo1 & "," & mailTo2 oMail.To=mailTo1 oMail.From=Request.Form("txtEmail") oMail.Body=strBody oMail.Send mailSent=true end if function aif(tf,tp,fp) if tf=true then aif=tp else aif=fp end if end function %> Contact Enviren

<%if mailSent then%> <%end if%> <%if not mailSent then%>
Thank you for showing interest in our products.
 

Sales:

Steve Amell

samell@envirencalibrations.com

Customer Service:

Cindy Balchikonis

cabalchikonis@envirencalibrations.com

Director of Quality:

David Carter

dcarter@envirencalibrations.com

Accounting:

Teri Rennia

trennia@envirencalibrations.com

Enviren Calibrations, LLC
P.O. Box 763
Vestal, NY 13851-0763

Phone 866-ENVIREN (866-368-4736)
Fax 607-723-4827
Please provide the following Information:
Required Fields denoted by *
<%end if%>
Company *
Contact Name *
Title   
Address *
City *
State *
Zip Code *
-
Telephone *
( ) - Ext.
Fax   
( ) -
Email *
Comments
Have a customer service representative contact me
Send Brochure