<%@ Language="VBScript" %> <% Dim Conn, Rs, searchID, strSQL, strImgNum, filePath,folderNum ' Create ADO Connection Component to connect with the database Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") ' Filename: Real_Estate_Directories_Real_Estate.asp '------------------------------- ' Real_Estate_Directories_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Real_Estate_Directories_Real_Estate" pageName = "Real_Estate_Directories_Real_Estate" Session("expired") = "No" %> <% ' Real_Estate_Directories_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'If fso.fileexists(Root & "alreadyAsked.txt") then 'set f = fso.OpenTextFile(Root & "alreadyAsked.txt", 1) 'sHTML2 = f.ReadAll() 'set f=nothing 'End If 'sHTML = "" 'url = "http://www.nailsoupmedia.com/PostLinkLetter.html" ''Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Set xml = Server.CreateObject("Microsoft.XMLHTTP") 'xml.Open "GET", url, False 'xml.Send 'sHTML = xml.responseText 'set xml=nothing '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "Real_Estate_Directories_Real_Estate.html" sTemplateFileName = "Skin/Real_Estate_Directories_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Real_Estate_Directories_Real_Estate Show begin '=============================== ' Display page '------------------------------- ' Load HTML template for this page '------------------------------- 'Dim LoadedPage 'LoadedPage = LoadTemplate2 (sAppPath & "Skin/Objects/AutoBlog.html") LoadTemplate sAppPath & sTemplateFileName, "main" '------------------------------- ' Load HTML template of Header and Footer '------------------------------- '------------------------------- SetVar "FileName", sFileName '------------------------------- ' Step through each form '------------------------------- 'OpenDB Load_Cities_Counties Item_Show '------------------------------- Parse "main", True '------------------------------- ' Output the page to the browser '------------------------------- Response.write fixPage(PrintVar("main")) ' Real_Estate_Directories_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Real_Estate_Directories_Real_Estate Close Event begin ' Real_Estate_Directories_Real_Estate Close Event end UnloadTemplate '=============================== '=============================== ' FUNCTIONS '------------------------------- '=============================== ' Display '=============================== Sub Load_Cities_Counties() Counties = replaceLastComma(Session("counties")) Cities = replaceLastComma(Session("cities")) End Sub Function ShowMyListings Dim con Dim rst Set con = CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") filePath = Server.MapPath("AdminMyStuff.html") con.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & filePath strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" Set rst = con.Execute(strSQL) rst.Movefirst Response.Write While not rst.EOF Response.Write "" & rst("mls") & "
" rst.MoveNext Wend con.Close:set rst=Nothing : set con = Nothing End Function '=============================== ' Display Search Form '------------------------------- Sub Item_Show() %> <% If LoadedPage <> "" Then SetScript "PutYourContentHere",LoadedPage Else If Request("Real_Estate_Directories_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Real_Estate_Directories_Real_EstateMessage") & "
" End If End if For totalDynamics = 1 to DynamicVarIndex aDVar = DynamicVarItem(totalDynamics) & ",load" SetScript aDVar , DynamicVar(totalDynamics) Next SetScript "MyListings",ShowMyListings Parse "FormSearch", False End Sub '=============================== %>
 

 

5700 Veterans Parkway

Columbus, GA 31904

Direct : 706-718-4690
Office: 706-321-0370

 

 
     Home | Contact | Featrued Listings

  Buyers | Sellers | Reports | Search | Home Values | F.S.B.O | Financing | Todays Rates | About | Contact
  • Adventures of Robin Hood DVD

    • Your premier source for classic films on DVD including Vintage Movies, Adventures Of Robin Hood DVD , Amos And Andy DVD, Charlie Chan DVD, Vintage Films quality possible and are not happy until you.
  • Antioxidant Drinks

    • GoYin.com is your source for the Best and Most Healthy Fruit Juice Drinks and Energy Beverages that even have Mood Enhancing Qualities.
  • Apply Online For Student Loan

    • Medical Student Aid is a premier provider of medical school loans, consolidation programs, and information and resources for medical students, graduates and health professionals.
  • Canadian Small Business Loans

    • Commercial mortgage loan broker offering commercial mortgages and commercial loans to meet all types of commercial financing needs.


  • Car Insurance

    • We offer Car Insurance UK, Cheap Car Insurance Quotes and cheap, high quality, car insurance cover online for residents of the United Kingdom.
  • Ceiling Lighting And Chandeliers

    • ChandeliersByBellacor.com offers many traditional, contemporary, and crystal chandeliers. Free Shipping on every product
  • Cheap Car Insurance

    • Car insurance uk -online quote online for motor, home, bike, travel and more.
  • Cheap Loans Uk

    • Loans UK - personal, unsecured, home, secured, car, bad credit, debt consolidation, mortgage.


  • Dirtbags

    • Flying Clipper is the oldest footbag company on the planet and the inventors of multi-panel footbag design.
  • Dwelling Fire Insurance

    • Rays-Ins.com is your source for the best rates on Insurance including Car, Term Life, SR22 Auto Insurance and Home Owners Insurance in San Jose and all of California.
  • Faberge Box

    • Partystock.com is an online store for swarovski crystal jewelry and crystal gift ideas.
  • Home Satellite Broadband

    • High-speed Internet access. SATELLITE INTERNET SOLUTIONS Broadband provided by airtel and hughesnet.


  • Leatt Neck Braces

    • BTO SPORTS - Motocross gear, parts and accessories distributor - Online Motocross Store - We offer some of the most competitive prices in the industry.
  • Low Voltage Track Lighting

    • Line voltage and single circuit track lighting stystems fit every situation and lighting need. Free Shipping on all products.
  • Mattress Factory

    • Our goal is to provide you with the highest quality sleep surfaces, Latex Mattress, Electric Adjustable Bed and bedding products sold by the most knowledgeable sales people and provide excellent cus
  • Office Signs

    • Office signs, Directional signs, interior office signs, lobby signs all your Office sign needs shop at officesignstore.com


  • Ozone Laundry Equipment

    • Laundry Systems of Tennessee has dedicated more than a decade to designing card or coin operated.
  • Parchment Paper

    • Dataprint for a huge selection of drafting supplies, design supplies, art supplies, office supplies and office furniture from flat files to desk chairs at Low discounted prices.
  • Pocket Charts

    • Toys & Gifts, Arts & Crafts, Classroom Decorations,Flannelboards, teacher resources, classroom supplies provided by TeachingSupplyStore.com
  • Portable Displays

    • San Diego Sign Company wholesale banner stands, large format digital printing and trade show displays.


  • Retail Property Financing

    • Bond Street Capital is different from the typical lending institution involved in the funding of commercial real estate.
  • Rush Printing

    • Print Broker Lesley Harrison and Bay Area Graphics Commercial Printing Company in California specialize in producing jaw dropping results.
  • Schutzhund Dog Training

    • Schutzhund German Shepherd trained guard dog is a loving companion and powerful deterrent to any harmful intent towards your family or business.
  • Silk Trees

    • Patio Palm Trees is a distributor of artificial palm trees, silk palm trees, artificial topiaries, silk flowers, tropical silk plants & decorative accents.


  • Small Garden Fountains

    • Life Size Fiberglass and Resin Props and Displays! Life Size Resin Statues Such As Chefs, Butlers
  • Swimming Pool Heater

    • Top Dog Pool Supply provides swimming pool supplies,automatic pool cleaners,swimming pool parts.
  • Thousand Oaks Sleep Dentist

    • Learn more about Los Angeles cosmetic dentist and other agoura veneers procedures at smilenow.org
  • Trade Show Booths

    • We have 8 foot, 10 foot, 16 foot, and 20 foot trade show displays, booths, exhibits.


  • Used Laptop

    • Buy & Sell surplus, used business, industrial machinery, laboratory, R&D equipment at DoveBid, the leading global provider of capital asset management and valuation services.
  • Virtual Golf

    • Holiday Golf''s indoor golf simulators offer the cutting edge in indoor golf simulator technology.
  • Watch Replica

    • Replica watches reviews - We analize the online replica watch market-place and inform you of the best deals around.
  • Wedding Dress

    • Plus Size Bridal a discount Bridal Shop dedicated to the full figure bride.& Factory direct plus size wedding gowns


  • Wildlife Metal Art

    • One of a kind artwork crafted from cold rolled flat bar steel. Jigs and molds are not used. Each piece is individually hand forged to achieve the desired shape and design.
  • Window And Siding Morris

    • Vinyl Siding and Replacement windows for your New Jersey home. Located in Morris County NJ we specialize in custom and specialty vinyl siding for your home. Gorell replacement window dealer.
  • Wine Cellar

    • Vinocool International Inc. maintains one of Canada''s largest and most diverse selections of Wine Cellar cabinets.

      Buyers | Sellers | Relocation | Blog | Financing | Columbus | Search | Testimonials | Login | About | Contact

     

    Equal Housing Opportunity - Columbus Real Estate 2007 All Rights Reserved - Privacy Statement

    *Military Family Relocation