<% if Request.Querystring("isSubmitted") = "yes" then Dim name,company,title,address,city,state,zip,phone,ext,fax Dim strBodyText Dim EmailVar Dim chkData Dim comments comments = Request.Querystring("Comments") chkData = Request("chkdata") name = Request.Querystring("Name") company = Request.Querystring("Company") title = Request.Querystring("Title") address = Request.Querystring("Address") city = Request.Querystring("City") state = Request.Querystring("State") zip = Request.Querystring("Zip") phone = Request.Querystring("Phone") ext = Request.Querystring("Ext") fax = Request.Querystring("Fax") EmailVar = Request.QueryString("email") if chkRemEquip ="on" then chkRemEquip=-1 else chkRemEquip=0 if chkPortTreat ="on" then chkPortTreat=-1 else chkPortTreat=0 if chkDrillProb ="on" then chkDrillProb=-1 else chkDrillProb=0 if chkTankClos ="on" then chkTankClos=-1 else chkTankClos=0 if chkWaterTreat ="on" then chkWaterTreat=-1 else chkWaterTreat=0 if chkFacAudit ="on" then chkFacAudit=-1 else chkFacAudit=0 if chkPhIandII ="on" then chkPhIandII=-1 else chkPhIandII=0 if chkSoilVapor ="on" then chkSoilVapor=-1 else chkSoilVapor=0 if chkPilotTest ="on" then chkPilotTest=-1 else chkPilotTest=0 if chkEmployment ="on" then chkEmployment=-1 else chkEmployment=0 if chkSPCC ="on" then chkSPCC=-1 else chkEmployment=0 if chkOther ="on" then chkOther=-1 else chkOther=0 strBodyText = "Name: " & name & vbCrLf strBodyText = strBodyText & "Company: " & company & vbCrLf strBodyText = strBodyText & "Address: " & address & vbCrLf strBodyText = strBodyText & "City: " & city & vbCrLf strBodyText = strBodyText & "State: " & state & vbCrLf strBodyText = strBodyText & "Zip: " & zip & vbCrLf strBodyText = strBodyText & "Phone: " & phone & " Ext: " & ext & vbCrLf strBodyText = strBodyText & "Fax: " & fax & vbCrLf strBodyText = strBodyText & "Email: " & EmailVar & vbCrLf strBodyText = strBodyText & "Requested Information: " & chkData & vbCrLf strBodyText = strBodyText & "Requests, questions or comments: " & comments & vbCrLf Dim objMail Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = EmailVar objMail.To = "info@aztechtech.com" objMail.Subject= "Website Form: " & name & ", " & company objMail.TextBody = strBodyText objMail.Send Set objMail = Nothing Response.Write("Thank you for your interest in Aztech Technologies. Expect a reply from us in the very near future.") end if %> Contact Aztech Technologies, Inc.









EXPERTISE
YOU CAN
COUNT ON

How to contact Aztech Technologies

Feel free to contact Aztech by phone, fax, email, mail, or in person, which ever way suits you best, and we will do what it takes to solve your issue.

Aztech Technologies, Inc.
5 McCrea Hill Road
Ballston Spa, NY 12020

Phone: (518) 885-5383

Fax: (518) 885-5385

Email: info@aztechtech.com

Allow us to contact you

Please supply us with your email address and we will be happy to contact you. Any additional information that you care to supply will help us provide you with the information you need.

*required

Name:
Company:
*Email:
Title:
Address:
City:
State:
Zip:
Country:
Phone:
Ext:
Fax:

What services are you interested in? Please check all that apply:

Services:
Remediation Equipment
Portable Treatment- Dewatering
Drilling/Probing
Tank Closure
Water Treatment
Facility Audits
Phase I and Phase II Site Assessments
Soil Vapor Sampling / Vapor Intrusion
Pilot Testing
Employment
SPCC and FRP Plans
Other

Requests, questions or comments:

Aztech Technologies, Inc. • 5 McCrea Hill Road • Ballston Spa, NY 12020
Phone: (518) 885-5383 • Fax: (518) 885-5385