<%@ 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_Consultants_Real_Estate.asp '------------------------------- ' Real_Estate_Consultants_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Real_Estate_Consultants_Real_Estate" pageName = "Real_Estate_Consultants_Real_Estate" Session("expired") = "No" %> <% ' Real_Estate_Consultants_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_Consultants_Real_Estate.html" sTemplateFileName = "Skin/Real_Estate_Consultants_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Real_Estate_Consultants_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_Consultants_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Real_Estate_Consultants_Real_Estate Close Event begin ' Real_Estate_Consultants_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_Consultants_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Real_Estate_Consultants_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 '=============================== %> Smoky Mountains Real Estate
   Gatlinburg Foreclosures
   Home Search
   About Us
   Your Home's Value
   Home Financing
   Real Estate Tools



Username :
Password :


Areas We Serve
  • Gatlinburg
  • Pigeon Forge
  • Chalet Village
  • Cobbly Nob
  • Pitman Center
  • Cosby
  • Wears Valley
  • Sevierville
  • Dandridge
  • Douglas Lake
  • Kodak
  • Seymour


    [FREE REPORTS ]
    [FREE FORMS ]
    [PARTNERS ]
  •   Home | Weather and Info | News | Photos | Contact
     
  • 000-858

  • Testking exams training tools and resources.
  • 1z0-036

  • Have a look below to discover why testking.com is your premier source for practice tests.
  • A00-204

  • We provide the latest study guide about certifications to prepare you for the cramsession
  • Best virtual server

  • Get ready for the best in the business.


  • Find local lawyer

  • Great Host

  • Planning to build a website, we are here to host you.
  • Host Bargain

  • This is the resource leading you to the host bargaining techniques.
  • Houston Real Estate

  • A Texas real estate directory. Our mission is to save buyers and sellers time and money. Buy and sell homes in Houston, Austin, Dallas and many more..


  • Indian Ground

  • Delhi real estate residential properties, 2 BHK apartments, 3 BHK luxury apartments, flats, townships, pent house, home, houses, Bungalows, villas, row houses for sale, rent in Delhi through authorized real estate agents and brokers in Delhi.
  • Kristi Holdgrafer, Austin TX Realtor

  • Austin Texas Residential Real Estate Services and Info
  • Kristi Holdgrafer, Austin TX Realtor

  • Austin Texas Residential Real Estate Services and Info
  • Kristi Holdgrafer, Austin TX Realtor

  • Austin Texas Residential Real Estate Services and Info


  • Lawyers

  • MB2-421

  • Test King Exams traning tools and resources the complete coverage of the certification exams.
  • Microsoft

  • Best quality certification training tools to certification success.
  • Mortgages Direct of Oklahoma

  • Over 200 wholesale mortgage lender relationships! Online mortgage calculator, and current Oklahoma mortgage rates. Mortgages for Oklahoma statewide. Refinance, purchase, and debt consolidation loans.


  • Personal Loan

  • Badcreditpersonalloan.com provides personal loan services to people with bad credit
  • real estate in san diego california

  • The California real estate directory. Our focus is to save buyers and sellers time and money. Find and sell homes in Los Angeles, Sacramento, San Diego and many more...
  • Real Estate Investment Consulting

  • Signil Wealth Consulting Group is a full service real estate consulting, acquisitions and real estate market research company offering a broad suite of services to both the individual investor and commercial client. Call us toll free at 877.428.3030.
  • Southern California Real Estate all County MLS – Joel Wissing Internet Broker

  • JOELREALESTATE is your one stop for Newport Beach Real Estate,Huntington Beach Real Estate,and other beach cities. We also service Mission Viejo Real Estate and Irvine Real Estate as well as Orange County Real Estate. We have over 36,000 active listings, Free MLS search, updated hourly with local information, homes for sale and rent. Community information, maps, and more in a mouse click. Joel Wissing, Internet Broker, 888-743-2336


  • Super Host

  • Super host leading you to the super hosting.
  • United states Gyms

  • USA government personal grants and health care.

  • The website introduces and sells our E-Book which contains information on United States Government Grants and ways to apply for it.
  • World cup cricket 2007



  • Equal Housing Opportunity - Smoky Mountains Real Estate ©2003 All Rights Reserved - Privacy Statement   Office Phone : 865-430-3274