<% 'Declare Variables dim strAddress dim replyTo dim strSubject dim strText dim strName dim strMessage dim strDayPhone dim strNightPhone dim iConf dim Flds dim strSmartHost dim objMail dim itsReady dim strMortgage dim strStyle dim strHome itsReady = "" strAddress = Trim(Request.Form("custEmail")) if strAddress <> "" then replyTo = cstr(strAddress) end if Dim propertyCompletion, propertyRoof, propertyPool, custFName, custLName, custAddress1, custAddress2, custCity, custState, custZipCode Dim custDayPhone, custNitePhone, custEmail, propertyAddress1, propertyCity, propertyState, propertyZipCode, propertyType, propertyYrBuilt Dim propertySqFt, propertyRooms, propertyBaths, propertyGarage, propertyStyle, propertyAir, mortgage, propertyMoving, propertyComments, garageOther propertyCompletion = Request.Form("propertyCompletion") propertyRoof = Request.Form("propertyRoof") propertyPool = Request.Form("propertyPool") custFName = Request.Form("custFName") custLName = Request.Form("custLName") custAddress1 = Request.Form("custAddress1") custAddress2 = Request.Form("custAddress2") custCity = Request.Form("custCity") custState = Request.Form("custState") custZipCode = Request.Form("custZipCode") custDayPhone = Request.Form("custDayPhone") custNitePhone = Request.Form("custNitePhone") custEmail = Request.Form("custEmail") propertyAddress1 = Request.Form("propertyAddress1") propertyCity = Request.Form("propertyCity") propertyState = Request.Form("propertyState") propertyZipCode = Request.Form("propertyZipCode") propertyType = Request.Form("propertyType") propertyYrBuilt = Request.Form("propertyYrBuilt") propertySqFt = Request.Form("propertySqFt") propertyRooms = Request.Form("propertyRooms") propertyBaths = Request.Form("propertyBaths") propertyGarage = Request.Form("propertyGarage") propertyStyle = Request.Form("propertyStyle") propertyAir = Request.Form("propertyAir") mortgage = Request.Form("mortgage") propertyMoving = Request.Form("propertyMoving") propertyComments = Request.Form("propertyComments") garageOther = Request.Form("garageOther") strText = "Name: " & custFName & " " & custLName & vbCrLf &_ "Address: " & custAddress1 & " " & custAddress2 & vbCrLf &_ "City: " & custCity & vbCrLf &_ "State: " & custState & vbCrLf &_ "Zip Code: " & custZipCode & vbCrLf &_ "Daytime Phone: " & custDayPhone & vbCrLf &_ "Evening Phone: " & custNitePhone & vbCrLf &_ "E-mail Address: " & custEmail & vbCrLf &_ vbCrlf &_ "Property Address: " & propertyAddress1 & vbCrLf &_ "Property City: " & propertyCity & vbCrLf &_ "Property State: " & propertyState & vbCrLf &_ "Property Zip Code: " & propertyZipCode & vbCrLf &_ "Property Type: " & propertyType & vbCrLf &_ "Year Built: " & propertyYrBuilt & vbCrLf &_ "Sq Ft: " & propertySqFt & vbCrLf &_ "Bedrooms: " & propertyRooms & vbCrLf &_ "Bathrooms: " & propertyBaths & vbCrLf &_ "Garage: " & propertyGarage & vbCrLf &_ "Other: " & garageOther & vbCrLf &_ "Style of House: " & propertyStyle & vbCrLf &_ "Property Condition: " & propertyStyle & vbCrLf &_ "Age of Roof: " & propertyRoof & vbCrLf &_ "Swimming Pool: " & propertyPool & vbCrLf &_ "Air Conditioning: " & propertyAir & vbCrLf &_ vbCrLf &_ "Outstanding Mortgages: " & mortgage & vbCrLf &_ "Moving Out: " & propertyMoving & vbCrLf &_ "Additional Comments: " & propertyComments if replyTo <> "" then itsReady = send_email() function send_email() Set objMail = CreateObject("CDO.Message") objMail.Subject = "Your Home's Value - StreetCarSuburbs.com" objMail.From = "dcox@livinguptown.com" objMail.To = "dcox@livinguptown.com" objMail.TextBody = strText objMail.Send Set objMail = Nothing if err.number > 0 then Response.write "Errors were encountered in sending your message. "&_ "Please try again, or contact the webmaster" else %> <% end if end function %>

Free Comparative Market Analysis

A Comparative Market Analysis is the first place to start when attempting to determine the value of your home. Please fill out the form below and I will get back to you as soon as possible. One of the biggest mistakes that consumers make is trying to value their own home and either setting unrealistic expectations for themselves OR undervaluing their property and leaving money on the table at closing. I will make sure that your home is evaluated properly and that your selling strategy is tailored to your individual needs. I do this FREE of charge.

 Contact Information
First Name:      Last Name: 
Address:
City:
State:         Zip Code: 
Daytime Phone:
Evening Phone:
Email:
 Property Information
Address:
City:
State:         Zip Code: 
Property Type:  
Year Built:  
Sq Ft:  
Bedrooms:  
Bathrooms:  
Garage:       Other:  
Style of House:  
Condition?  
Age of Roof:        
Swimming Pool:   No  Yes
Air Conditioning?  
Do you have an outstanding mortgage? Yes  No  Prefer not to say
When do you want to move out?  
 Additional Comments:
All Information Provided is Strictly Confidential.
Charlotte North Carolina Real Estate