<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_connJobe_STRING MM_editTable = "Cma" MM_editRedirectUrl = "" MM_fieldsStr = "FirstName|value|LastName|value|Email|value|Phone|value|WhenMoving|value|WhereMoving|value|Bedrooms|value|Baths|value|Sqft|value|PropAddress|value" MM_columnsStr = "FirstName|',none,''|LastName|',none,''|Email|',none,''|Phone|',none,''|WhenMoving|',none,''|WhereMoving|',none,''|Bedrooms|',none,''|Baths|',none,''|Sqft|',none,''|PropAddress|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsSellers Dim rsSellers_numRows Set rsSellers = Server.CreateObject("ADODB.Recordset") rsSellers.ActiveConnection = MM_connJobe_STRING rsSellers.Source = "SELECT * FROM Cma" rsSellers.CursorType = 0 rsSellers.CursorLocation = 2 rsSellers.LockType = 1 rsSellers.Open() rsSellers_numRows = 0 %> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "FirstName~LastName~Email~Phone~WhenMoving~WhereMoving~Bedrooms~Baths~Sqft~PropAddress~MM_insert" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "timbaileyrealtor@cox.net" objCDO.To = "timbaileyrealtor@cox.net" objCDO.Cc = "" objCDO.Bcc = "dusty.carr@cox.net" objCDO.Subject = "Top Priority Sellers Request for In Home Marketing Presentation" BodyString = Replace("","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "../thankyou.html" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Warner Robins Ga. Homes For Sale - CMA Comparative market Analysis
Tim & Kirsten Bailey
     Warner Robins Georgia Real ESTATE AND HOMES FOR SALE

Home
Subdivisions & Communities
Houston County Schools
Recreation
Site Map
Links
 

 

Why Sellers Choose Us   
Request a Free Presentation
Homebuyer Ready Program

Get a FREE Comparative Market Analysis on your home!

Are you thinking about selling your home?

Before putting your home on the market and setting a price it is important to first have an estimate of your house's value. This can be easily accomplished by having an experienced Coldwell Banker SSK REALTOR® provide you with a Comparative Market Analysis.

Providing a Comparative Market Analysis, or CMA, is a valuable service for home sellers but can also be beneficial to home buyers.

A comparative market analysis, or CMA, is an evaluation of a home's value based on available local market data including:

How much homes similar to yours have sold for recently.
How long these homes were on the market before they sold.
How fast you can expect to sell your home at your desired asking price.
What your "competition" would be should you decide to put your home on the market right away.

If you are thinking of selling your home and would like to have us provide you with a CMA, please fill in the form below and we will be in touch quickly.

    About You
First Name
 :
Last Name
 :
Email Address
 :
Phone Number
 :
   
  About Your Move
When are you moving?
 :
Where are you moving?
 :
   
  About Your Home
Number of Bedrooms
 :
Number of Baths
 :
Approx. SQFT.
 :
Property Address
 :
 

" Bringing Home Buyers and Home Sellers together all over Warner Robins and Middle Georgia!" ------Tim & Kirsten Bailey, Realtors

Tim & Kirsten Bailey
478-922-8209 /home office
478-953-8595 /ext. 216
888-535-5055  /ext. 216
timbaileyrealtor@cox.net

Coldwell Banker SSK, Realtors
470 S. Houston Lake Rd.
Warner Robins, Ga. 31088