<%@ Language=VBScript %> <% Function IsChecked(strFieldName) Dim blnChecked If Request.QueryString(strFieldName).Count > 0 Then blnChecked = True Else blnChecked = False End If IsChecked = blnChecked End Function if request("Contact_Name") <> "" then Set pdmail=server.createobject("Persits.MailSender") pdmail.Host="mail.superiorpoolsnc.com" pdmail.From="contact@superiorpoolsnc.com" pdmail.Username = "contact@superiorpoolsnc.com" pdmail.Password = "password" pdmail.AddAddress "info@superiorpoolsnc.com" pdmail.FromName=Request("Contact_Name") pdmail.Subject="Superior Pool Estimate Request" pdmail.Body= "*********************************" & _ "
CONTACT INFORMATION" & _ "
Contact Name " & request("Contact_Name") _ & "
Email Address : " & request("Contact_Email") _ & "
Address : " & request("Contact_Address") _ & "
City : " & request("Contact_City") & request("Contact_State") & ". " & request("Contact_Zip") _ & "
Phone : " & request("Contact_Phone") _ & "
AltPhone : " & request("Contact_Phone2") _ & "
Time : " & request("Contact_Time") _ & "
*********************************

" _ & "POOL INFORMATION" If IsChecked("appointmenttype") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype & " pool." Else End If If IsChecked("appointmenttype2") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype2 & " pool." Else End If If IsChecked("appointmenttype3") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype3 & " pool." Else End If If IsChecked("appointmenttype") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype4 & " pool." Else End If If IsChecked("appointmenttype2") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype5 & " pool." Else End If If IsChecked("appointmenttype3") Then pdmail.Body=pdmail.Body & "
I'm interested in a " & appointmenttype6 & " pool." Else End If pdmail.Body=pdmail.Body & "
*********************************" & "
Comments : " & request("Contact_Comments") ' On Error Resume Next pdmail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If set pdmail=nothing end if %> Superior Pools Charlotte. Charlotte area pools and spas. Charlotte pools, pools Charlotte, fiberglass pools Charlotte, fiberglass pools, concrete pools, spas, gunite pools, custom pools, inground pools, above ground pools, resdiential pools, commercial pools, waterfalls, Charlotte, North Carolina, South Carolina

(704) 896-7665

Pools and Spas of the Carolinas

Pool HomepageAbout Our Pools Pool Services Pool Gallery Pool SafetyCode ComplianceContact Us


Des Design my Pool!

 Please click on the link below and we will contact you to design your dream pool!


  ► Pool Quote Contact Form

Free Pool and Spa Estimate

If you would like a free swimming pool construction estimate,
please submit the following information and a member of our friendly staff will contact you to discuss your plans for your project.

 You may also contact us at (704) 896- 7665.
We look forward to creating another beautiful backyard retreat!

 

  

Name (First Last) *

Email Address *

Address

City

State

Zip Code

Phone Number(###-###-####) *

Alternate Phone Number

Best Time to Call

Service



Description or Comments

Pool Remodel/Renovation  
Fiberglass Swimming Pool
 Concrete Swimming Pool

 

Above Ground Pool Swimming Pool
 Spa/ Hot Tub
 Undecided


 
Our Location
 Superior Pools Charlotte
  20315 Knox Road
Cornelius, North Carolina
(Map)
 

Phone: (704) 896-7665

Pool Homepage  |  About Our Pools  |  Pool Services  |  Pool Gallery  |    Pool Quote  |  Pool Safety  |  Code Compliance  |  Contact Us

Copyright 2009  Superior Pools Charlotte   All Rights Reserved  |  Privacy Policy