<% Response.Buffer = true Dim complete complete = false If Request("contact") <> "" then Dim CDOMail, strBody Set CDOMail = Server.CreateObject("CDONTS.NewMail") CDOMail.Importance = 1 CDOMail.From = "Loggerhead Realty " CDOMail.To = Request.Form("txtEmail") CDOMail.Bcc = "info@loggerheadrealty.com" CDOMail.Subject = "Home Market Analysis Request" strBody = "Dear " & Request("txtFirstName") & "," & vbcrlf strBody = strBody & "Thank you for your request of a Home Market Analysis." & vbcrlf & vbcrlf strBody = strBody & "The following information was received:" & vbcrlf strBody = strBody & "-----------------------------------------------" & vbcrlf strBody = strBody & "Personal Information" & vbcrlf strBody = strBody & "First Name: " & Request("txtFirstName") & vbcrlf strBody = strBody & "Last Name: " & Request("txtLastName") & vbcrlf strBody = strBody & "Home Phone: " & Request("txtHomePhone") & vbcrlf strBody = strBody & "Business Phone: " & Request("txtBusPhone") & vbcrlf strBody = strBody & "Email: " & Request("txtEmail") & vbcrlf strBody = strBody & "Information on Home" & vbcrlf strBody = strBody & "Address 1: " & Request("txtAddress1") & vbcrlf strBody = strBody & "Address 2: " & Request("txtAddress2") & vbcrlf strBody = strBody & "City: " & Request("txtCity") & vbcrlf strBody = strBody & "State: " & Request("cboState") & vbcrlf strBody = strBody & "Zip: " & Request("txtZip") & vbcrlf strBody = strBody & "Number of Bedrooms: " & Request("txtBedrooms") & vbcrlf strBody = strBody & "Number of Baths: " & Request("txtBaths") & vbcrlf strBody = strBody & "Approximate Square Footage: " & Request("txtFootage") & vbcrlf strBody = strBody & "Age of Home: " & Request("txtYears") & " years, " & Request("txtMonths") & " months" & vbcrlf strBody = strBody & "Perceived Home Value: " & Request("txtValue") & vbcrlf strBody = strBody & "-----------------------------------------------" & vbcrlf strBody = strBody & "Information on Land" & vbcrlf strBody = strBody & "Address 1: " & Request("txtAddressLand") & vbcrlf strBody = strBody & "Lot #: " & Request("txtLot") & vbcrlf strBody = strBody & "City: " & Request("txtCityLand") & vbcrlf strBody = strBody & "State: " & Request("cboStateLand") & vbcrlf strBody = strBody & "Approximate Square Footage: " & Request("cboFootageLand") & vbcrlf strBody = strBody & "Percieved Value: " & Request("cboValueLand") & vbcrlf strBody = strBody & "Additional Comments: " & Request("txtComments") & vbcrlf strBody = strBody & "--------------------------------------------------------------" & vbcrlf strBody = strBody & "I will contact you shortly with the results of your analysis." & vbcrlf & vbcrlf strBody = strBody & "Thanks again, " & vbcrlf strBody = strBody & "Loggerhead Realty" & vbcrlf strBody = strBody & "http://www.loggerheadrealty.com" & vbcrlf strBody = strBody & "Office: 910.454.4522" & vbcrlf strBody = strBody & "Toll Free: 1.800.721.4522" & vbcrlf strBody = strBody & "Fax: 910.454.4523" & vbcrlf strBody = strBody & "info@loggerheadrealty.com" & vbcrlf CDOMail.Body = strBody CDOMail.Send Set CDOMail = nothing complete = true End If %> Bald Head Island NC real estate listings - LoggerHead Realty Southport, NC - Comparative Market Analysis

<%End If%>
<%If complete then%>

Thank you for your request of a Home Market Analysis.
I will contact you shortly with the results.

<%Else%>

Take our FREE Comparative Market Analysis. Fill out this simple form online to help determine what your property is worth.

  * = required field
Personal Information
*First Name:
*Last Name:
Home Phone:
Business Phone:
*Email:
 
Information on Home
Address 1:
Address 2:
City:
State:
Zip:
   
Number of Bedrooms:
Number of Baths:
Approximate Square Footage:
Age of Home: (years) (months)
Perceived Home Value:
   
Information on Land  
Address:
Lot #:
City:
State:
Approximate Square Footage:
Percieved Value:
 
Additional comments about your property you feel will help in this process: