<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Database1_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Contacts", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(10) Dim arFormDBFields0(10) Dim arFormValues0(10) arFormFields0(0) = "Contact_Organization" arFormDBFields0(0) = "Company" arFormValues0(0) = Request("Contact_Organization") arFormFields0(1) = "Contact_Address2" arFormDBFields0(1) = "Address2" arFormValues0(1) = Request("Contact_Address2") arFormFields0(2) = "Contact_Title" arFormDBFields0(2) = "Title" arFormValues0(2) = Request("Contact_Title") arFormFields0(3) = "Contact_StreetAddress" arFormDBFields0(3) = "Address1" arFormValues0(3) = Request("Contact_StreetAddress") arFormFields0(4) = "Contact_ZipCode" arFormDBFields0(4) = "Zip Code" arFormValues0(4) = Request("Contact_ZipCode") arFormFields0(5) = "Contact_FullName" arFormDBFields0(5) = "Name" arFormValues0(5) = Request("Contact_FullName") arFormFields0(6) = "Contact_Email" arFormDBFields0(6) = "Email" arFormValues0(6) = Request("Contact_Email") arFormFields0(7) = "Contact_City" arFormDBFields0(7) = "City" arFormValues0(7) = Request("Contact_City") arFormFields0(8) = "Contact_WorkPhone" arFormDBFields0(8) = "WorkPhone" arFormValues0(8) = Request("Contact_WorkPhone") arFormFields0(9) = "Contact_State" arFormDBFields0(9) = "State" arFormValues0(9) = Request("Contact_State") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Response.Redirect "index.htm" End If End If %> Tech Environmental - Air Quality, Odor Control & Noise Solutions

· air quality
· odor control
· noise & vibration
· permitting
· industrial hygiene
· energy & power
· manufacturing
· municipal
· government
· commercial
· transportation

 

1601 Trapelo Road
Waltham, MA 02451
ph. 781-890-2220 fax 781-890-9451
Email Us

 

Sign-up for our e-Newsletter that is focused exclusively on Air Quality, Odor Control, and Noise issues:

Name
E-mail Address
Job Title*
Company/ Organization*
Street Address*
City*
State*

Zip Code*
Work Phone*

*Optional Fields

    Thank You!

Any information provided will only be used privately by Tech Environmental and will not be transferred to any other party. 

NEWS


Developers Face New Greenhouse Gas Rules (more)


Radiation Responsibility and FCC Requirements (more)