Haliant Technologies - Manufacturer of Advanced Water Purification Systems

<% if Request.Form <> "" then Set haliantDB = Server.CreateObject("ADODB.Connection") haliantDB.ConnectionTimeout = Application("haliantDB_ConnectionTimeout") haliantDB.CommandTimeout = Application("haliantDB_CommandTimeout") haliantDB.Open Application("haliantDB_ConnectionString"), Application("haliantDB_RuntimeUserName"), Application("haliantDB_RuntimePassword") firstname = Replace(Request("firstname"),"'","''") lastname = Replace(Request("lastname"),"'","''") company = Replace(Request("company"),"'","''") address1 = Replace(Request("address1"),"'","''") address2 = Replace(Request("address2"),"'","''") city = Replace(Request("city"),"'","''") state = Replace(Request("state"),"'","''") postal = Replace(Request("postal"),"'","''") country = Replace(Request("country"),"'","''") telephone = Replace(Request("telephone"),"'","''") fax = Replace(Request("fax"),"'","''") email = Replace(Request("email"),"'","''") newsletter = Request("newsletter") comments = Replace(Request("comments"),"'","''") sql = "INSERT INTO tbl_contactus (firstname, lastname, company, address1, address2, city, state, postal, country, telephone, "&_ "fax, email, newsletter, comments) VALUES ('"&firstname&"', '"&lastname&"', '"&company&"', '"&address1&"', '"&address2&"', '"&_ city&"', '"&state&"', '"&postal&"', '"&country&"', '"&telephone&"', '"&fax&"', '"&email&"', '"&newsletter&"', '"&_ comments&"')" haliantDB.Execute(sql) if newsletter = "Yes" then sql = "INSERT INTO tbl_subscriptions (firstname, lastname, company, address1, address2, city, state, postal, country, telephone, "&_ "fax, email,language) VALUES ('"&firstname&"', '"&lastname&"', '"&company&"', '"&address1&"', '"&address2&"', '"&_ city&"', '"&state&"', '"&postal&"', '"&country&"', '"&telephone&"', '"&fax&"', '"&email&"','English')" haliantDB.Execute(sql) end if Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.haliant.com" JMail.Sender = "infoweb@haliant.com" JMail.Subject = "Contact Us" JMail.AddRecipient "infoweb@haliant.com" 'JMail.AddRecipient "randy@newbydev.com" body = "The following information was submitted:"&chr(10)&chr(10)&_ firstname&" "&lastname&chr(10)&_ address1&chr(10)&address2&chr(10)&_ city&chr(10)&state&" "&postal&" "&_ country&chr(10)&"Telephone: "&telephone&chr(10)&_ "Fax: "&fax&chr(10)&"Email: "&email&chr(10)&_ "Newsletter: "&newsletter&chr(10)&chr(10)&_ "Commments/Questions: "&chr(10)&chr(10)&comments JMail.Body = body JMail.Priority = 1 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") On Error Resume Next JMail.Execute If Err <> 0 Then haliantDB.close Response.Redirect("contactus.htm?mode=error") End If haliantDB.close end if %> Haliant Technologies - Manufacturer of Advanced Water Purification Systems

Manufacturer of Advanced Water Purification Systems

<% if Request.Form = "" then %>

First Name:
Last Name:
Company Name:
Street Address Line 1:
Street Address Line 2:
City:
State/Providence:
Postal Code:
Country:
Telephone Number:
Fax Number:
Email Address:
Would you like to receive our newsletter?
Comments/Questions:

<% elseif Request("mode") <> "error" then %>

Thank You!

Your comments have been forwarded to a
Customer Service Representative.

<% elseif Request("mode") = "error" then %>

webmaster@haliant.com

[Home] [About Us] [Product Info] [Technical Info] [News] [Links] [Contact Us] [Careers]

[ English ] [Chinese] [Spanish] [Portuguese][Bulgarian][Turkish]