<% '' Validations dim FV, Valid, NameValide, EmailValid, CommentsValid NameValid = 0 EmailValid = 0 CommentsValid = 0 Valid = 0 If Request.Form("submit") <> "" Then Set FV = Server.CreateObject("VisualSoft.Validator.1") NameValid = FV.IsName(Request("Name"),2,40) EmailValid = FV.IsEmail(Request("Email")) if Request("Name") <> "" then else NameValid = 1 end if if Request("Email") <> "" then else EmailValid = 1 end if if Request("Comments") <> "" then else CommentsValid = 1 end if Valid = NameValid + EmailValid + CommentsValid End If %> Home Painter Raleigh: Interior Exterior Paint Hardie Plank Siding Contractor NC

Contact PACE Exteriors

We provide free, competitive quotations and advice without obligation.

Phone: (919) 784-9392

Email: PaintRaleigh@aol.com

Send us your comments and questions or we can contact you by phone to discuss your project needs and provide you with comprehensive cost effective quotation.

<% If Request.Form("submit") <> "" AND Valid <> 0 Then %>
Your information could not be submitted because one or more form fields were not completed properly. Please find and correct the fields marked "*."
<% end if %> <% If Request.Form("submit") <> "" AND Valid = 0 Then %> <% Dim objMail ' As CDO.Message (Plesk) Set objMail = Server.CreateObject("CDO.Message") set objMailConf = createobject("CDO.configuration") With objMailConf.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Update End With Set objMail.Configuration = objMailConf objMail.To = "PaintRaleigh@aol.com" objMail.bcc = "backup@atlanticbt.com" objMail.ReplyTo = Request.Form("Name") & "<" & Request.Form("email") & ">" objMail.From = "web@paintraleigh.com" objMail.Subject = "PaintRaleigh.com Contact Form Results" objMail.TextBody = "Name: . . . . . " & Request.Form("Name") & vbCrLf _ & "" & vbCrLf _ & "E-mail address: . . . . . " & Request.Form("Email") & vbCrLf _ & "" & vbCrLf _ & "Address: . . . . . " & Request.Form("Address") & vbCrLf _ & "" & vbCrLf _ & "Phone Number: . . . . . " & Request.Form("Phone") & vbCrLf _ & "" & vbCrLf _ & Request.Form("Comments") objMail.Send Set objMail = Nothing Set objMailConf = Nothing %>


	Request Complete


	Thank you for contacting us! Your information has been sent.

<% else %>


	* Required Fields

Your name: <% If NameValid > 0 Then Response.Write "*" Else Response.Write "*" End If %>
">

Your email address: <% If EmailValid > 0 Then Response.Write "*" Else Response.Write "*" End If %> ">

Address:
">

Phone Number :
">

Comments/Questions <% If CommentsValid > 0 Then Response.Write "*" Else Response.Write "*" End If %>
<%= Request("Comments") %>

<% end if %>

Our Services

		Exterior Painting
		Interior Painting
		Pressure Washing
		Deck Cleaning & Sealing
		Masonite Siding & Carpentry Repairs
		Hardie Plank Siding

Preferred Products

		Benjamin Moore
		Sherwin Williams


9650 Strickland Rd. Suite 103 #270 \| Raleigh, NC 27613 \| (919) 784-9392 \| PaintRaleigh@aol.com Copyright © 2004 PACE Exteriors. Web Design, Web Development and Internet Marketing by Atlantic BT