<%@ 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: Realtors_-_General_Real_Estate.asp '------------------------------- ' Realtors_-_General_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Realtors_-_General_Real_Estate" pageName = "Realtors_-_General_Real_Estate" Session("expired") = "No" %> <% ' Realtors_-_General_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'set fso = Server.CreateObject("Scripting.FileSystemObject") '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 = "Realtors_-_General_Real_Estate.html" sTemplateFileName = "Skin/Realtors_-_General_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Realtors_-_General_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")) ' Realtors_-_General_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Realtors_-_General_Real_Estate Close Event begin ' Realtors_-_General_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("Realtors_-_General_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Realtors_-_General_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 '=============================== %>  









  • AskAngie.com

    • A library of information for the first time buyer or any Real Estate investor in Southern California. Research information on Orange County and surrounding cities, the value of your home, the SoCal MLS, creative ownership ideas, financing, and more! Visit today for a fresh, easy to navigate website on how to buy, sell and invest in Real Estate.
  • Big Sky, Montana Resort Real Estate Ron Tabaczka

    • Big Sky Montana s best Real Estate Resource! Search MLS for ski-in-ski-out condos, homes, ranches, land in Mountain, Meadow, Moonlight Basin, Gallatin Canyon. Info on Yellowstone Nt'l Park, fishing.
  • Brad Coleman-Orange County Real Estate

    • Find out the value of your home, search the Southern California MLS, and learn about buying and selling. Includes a wealth of information on local schools, Orange County community links, financing, and much more!
  • Cayman Islands Real Estate - The Lund Team

    • Your Real Estate Professionals in the Cayman Islands. Grand Cayman Island condominiums estates, homes, commercial buildings, beachfront properties and investment opportunities.


  • Charlotte Area Homes and Real Estate

    • Your link to buying and selling homes and real estate in the Charlotte, NC Area. Great links and information
  • Find Nimo Directory

    • General Web Directory.
  • freehomedirectory.com

    • Buy or sell your home online for free!
  • Grand Blanc, Michigan homes

    • Use our real estate resources to find a home to fit your needs. Find quality articles, and links to information on the local Grand Blanc real estate market.


  • Hawaii Real Estate and homes for sale

    • Looking online for MLS listings, homes, condos or an agent? Our Hawaii real estate and homes for sale listings can help you find a house and make buying a home easy.
  • Heli

  • Hold'em

  • Home Seekers Spanish Real Estate Property Best Deals

    • Invest in a beautiful home in sunny Spain. Get that Spanish property you ve always wanted. Find the best deals in this website. Click here!


  • LandsofAmerica.com

    • Land for sale including thousands of farms, ranches, waterfront and rural properties.
  • Long Island, NY Realtor - Erik Kobley

    • Covering the Southwestern portion of Nassau County, Long Island, NY. Can find homes or sell homes for customers with little to no stress. Please give me a call. Thanks!
  • Margaret Norrie Realty Inc - Maui, Hawaii Real Estate

    • Offering individual, knowledgeable, professional service for all your real estate needs. Buying or selling in Maui, Hawaii? We provide total MLS listings & links to valuable local information!
  • Memphis Area Real Estate

    • Working with buyers and sellers in the greater Memphis area for over 33 years combined, let our experience work for you


  • Metro Estates

    • Find out the value of your home, search the Southern California MLS, and learn about buying and selling. Includes a wealth of information on local schools, Orange County community links, financing, and much more!
  • Newport Beach Real Estate - Foothill Ranch Real Estate - Laguna Niguel Homes

    • Search the Orange County MLS, Discover the value of your home, Find exculsive Orange County community links and information. A one stop shop for Buyers, Sellers, and Investors.
  • Oklahoma Real Estate

    • My site's purpose is to provide real estate information of Edmond, OK. You may also visually tour our state.
  • Pain Help

    • Natural Pain Relief Medication


  • Panama Real Estate

    • Panama is a wonderful place to vacation and retire. Land, condos, and homes are selling like hot cakes because Panama is a paridise!
  • Phoenix and Scottsdale Real Estate

    • Phoenix real estate for every style and budget. Search Phoenix homes for sale - perfect for relocation, golf course community, luxury custom home hunters. Work with a Phoenix Arizona real estate specialist - Echo Farrell.
  • Phoenix Real Estate - PhoenixHomes.com

    • Matthew Pellerin; serving the greater Phoenix, Arizona area. Specializing in residential real estate, hillside-view homes, second homes, investment properties and first time buyer consultations.
  • Phuket real estate and property sales and rentals on Phuket Thailand.

    • Excellent real estate & property sourcing service which offers; 48 hours email reply on any real estate, property or business investment enquiry and a complimentary viewing service.


  • Real estate india

    • 10Villas Real Estate and Property info - Flats & Villas for sale in India - Kerala, Cochin Bangalore, Chennai, Mumbai, New Delhi etc
  • RK Find Directory

    • Human edited Best Business Web Directory aims to provide best resources around the web. Submit your site free to this directory.
  • Ski Vacations Mountains Vacations

  • Skiing Resort Elk Mountain Ski Resort



  • Snowwater

  • Southern Utah Real Estate

    • www.DavidEllisRealtor.com. Serving all of your real estate needs in Southern Utah. Specializing in St George and surrounding areas.
  • Tampa Real Estate Tampa Bay

    • Tampa Bay Real Estate offers a wide range of commercial and residential properties in Florida.
  • Temecula new homes for sale, real estate MLS listings, realtor

    • Bob Bodemer is a Remax Experience agent who specializes in the Temecula Valley and surrounding area.


  • texas holdem

    • PokerMaster.org - your ultimate starting point and reference tool for everything concerning the world of online poker.
  • Thailand real estate and property sales and rentals on Phuket island

    • Excellent real estate & property sourcing service which offers; 48 hours email reply on any enquiry of apartments, condominiums, villas, land, Hotels or any other business investment requested in Thailand
  • Watch Live Cricket

  • Watch Live Football



  • Waynesellsatlanta.com

    • A comprehensive site for those wanting to purchase or sell real estate in the Decatur, Dekalb County, Fulton County or Greater Atlanta area
  • Whistler Ski Resort Snowboard Whistler

  • Work In Vietnam

    • Top job search site for career minded professionals seeking employment in vietnam, Post resume and browse jobs
  • Yekta Homes - Real Estate Property Apartments Villas Turkey Alanya

    • Yekta Homes - Real Estate and Property Portal in Alanya