<%@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 - Why Home Sellers choose us
Tim & Kirsten Bailey
     Warner Robins Georgia Real ESTATE AND HOMES FOR SALE

Home
Subdivisions & Communities
Houston County Schools
Recreation
Site Map
Links
 

 

 

Comparative Market Analysis   
Request a Free Presentation
Homebuyer Ready Program

Step 1: Develop a Pricing Strategy

We are highly skilled and will evaluate the following factors to assist you in setting a listing price that will attract buyers and ultimately, a sale.

Comparable homes currently on the market.
Recent home sales in your area.
Homes that failed to sell to determine what prices buyers are unwilling to pay.
Local economic conditions including interest rates, seasonality, and job growth.
Your timetable to sell your home.


Step 2: Market Your Home

Use the tools available only to Coldwell Banker sales associates to expose your property to local, national and worldwide audiences.
Market your home to your neighbors who may know potential buyers.
Market your home to potential move-up buyers in communities around your property.
Market your home to other top sales associates in the community.
Expose your property to 20,000+ sale associates through two multiple listing services.
Provide a minimum of six photos along with rich property content on three major web sites: Realtor.Com, ColdwellBanker.com, and Georgia MLS.
Provide the opportunity to be a Featured Home on these web sites.
Guarantee a timely response to online buyer inquiries about your home via our exclusive LeadRouterTM system.

LeadRouterTM
Our exclusive LeadRouter technology takes a buyer's online email inquiry and automatically converts it to a voice message that immediately notifies the listing associate on his or her cell phone. In the blink of an eye, the potential buyer can connect with your listing sales associate, who best knows your home and its unique selling features.


Step 3: Manage the Sale

Negotiate on your behalf to protect your equity.
Assist the seller in completing all contracts and documents.
Ensure that all contract deadlines are met.
Evaluate and follow up on inspections, pest reports, survey and insurance.
Prepare and negotiate any contract amendments.
Keep you informed about the buyer's loan status.
Provide access to vendors through our Concierge Services


Step 4: Close

Coordinate the closing date, time, location and contacts.
Follow up on details to ensure a smooth closing.
Review HUD Statement
Submit Coldwell Banker Home Protection Plan information to initiate coverage for the buyer.
Provide copies of all closing documents.

Request a Free Presentation On How I Will Market and Sell Your Home. All REALTOR®s are NOT alike.

If you are thinking of selling your home and would like to have us contact you, 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