<% Option Explicit %> <% dim strFirst, strLast, strEmail, strPhone, strMessage, bCopy, bNews, strBody, iMessage iMessage = 0 if (Request.Form <> "") then strBody = Email_Load("./Templates/Contact.txt") strBody = Replace(strBody, "", Request.Form("first")) strBody = Replace(strBody, "", Request.Form("last")) strBody = Replace(strBody, "", Request.Form("phone")) strBody = Replace(strBody, "", Request.Form("email")) strBody = Replace(strBody, "", Request.Form("message")) if (Request.Form("news") = "optIn") then strBody = Replace(strBody, "", "Yes") else strBody = Replace(strBody, "", "No") end if if (Request.Form("copy") = "cc") then SendEmail Request.Form("email"), "Day Construction Contact Information", strBody, Request.Form("email") end if SendEmail "dallas@dayconstruction.com", "Day Construction Contact Information", strBody, Request.Form("email") iMessage = 1 end if %> Contact Us - Day Construction

Contact

<% if iMessage=1 then %>Your message has been sent.<% end if %>
Your information will NEVER be sold or used for any other purpose than official correspondence.
All fields are required unless marked optional.
Personal Information
Message


Copyright © <% Response.Write Year(Now()) %> Day Construction, All Rights Reserved.