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


" & Request("Real_Estate_Associations_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-222

    • Test King Exams traning tools and resources the complete coverage of the certification exams.
  • 000-857

    • Testking exams training tools and resources.
  • Celebrity Photos

  • Cell Phone Plan

    • Get all latest news, reviews, and cell phone plans from top-phones.net.


  • FindMyMortgage

    • 0 Down, ACORN loan programs, Increase buying power, Credit Score help and More!
  • Fine Slot

    • Slot Machine Information
  • Home Mortgage Refinancing Lender - Mortgage Refinance - Home Mortgage Lender

    • Home Mortgage Refinancing Lender Offers information on Bad Credit Mortgage, Home Mortgage Refinancing, Mortgage Refinance, Adjustable Rate Mortgage, Mortgage Lead - Home Mortgage Refinancing Lender
  • Microsoft

    • Best quality certification training tools to certification success.


  • NYC Moving

    • NYC Moving Organization help you to find an honest and responsible NYC mover company. We want to earn your trust and therefore our team reviews each moving company to meet our standards.
  • Real Estate Investing Guide

    • A perfect real estate investing guide for real estate investing, investing in real estate, real estate investing tips, real estate investing reviews, commercial real estate investing, real estate investing advice, real estate investing training, and real estate investing information.
  • S10-200

    • Have a look below to discover why testking.com is your premier source for practice tests.
  • Saddle Creek Forest – Real Estate and Lots for sale near Houston, TX

    • Saddle Creek Forest is a private community outside of Houston, near Lake Conroe, The Woodlands and Magnolia. We have real estate lots, land and acreage for sale, inviting you to enjoy serene countr


  • Teri Hatcher

    • Here you will find the most exciting pictures, images and wallpaper of famous celebrities.
  • Toyota Prius

    • The auto models are available in America.
  • Toyota Prius

    • Auto safety should be an important consideration in your vehicle purchase.
  • Toyota Prius

    • All serious Auto enthusiasts.


  • Toyota Prius

    • Online auto of different brands.
  • Toyota Prius

    • Cheap online quotes for autos
  • Toyota Prius

    • Are you crazy about Autos, you will find here.
  • Used Cell Phones

    • All the Top brands of mobiles phones are reviewed in one Spot.


  • Web hosting Info

    • The next hosting guide is waiting for you.
  • Web Stoke

    • Web templates can be used to build your personal webpage or huge corporate site
    Equal Housing Opportunity - Smoky Mountains Real Estate ©2003 All Rights Reserved - Privacy Statement   Office Phone : 865-430-3274