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


" & Request("Home_Design_&_Repair_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-387

  • Testking exams training tools and resources.
  • 000-641

  • Have a look below to discover why testking.com is your premier source for practice tests.
  • 1z0-026

  • We provide the latest study guide about certifications to prepare you for the cramsession
  • 1z0-101

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


  • America Mortgage Loans

  • Loans America has incredible mortgage loans programs and low rates for homeowners. Mortgage Rates are at an all time low. Loans America allows you to shop hundreds of lenders with just one click.
  • Best Hosts

  • Choose the best among the rest.
  • Buy Fireplace, Outdoor Fireplace, Gas Fireplace, Stone Fireplace

  • Purchase Fireplace screens, Fireplace Accessories, Fireplace Mantels, Electric Fireplace Buy Fireplace inserts, Fireplace screen, Fireplace Gas Valve, Iron fireplace screens...
  • Computer Live Help

  • Giving live help regarding your computer problems.


  • Computer Services

  • The best in computer services offer you with the latest.
  • Computer Services

  • Click here to enter the world of best computer services.
  • Decorative Fiberglass Architectural Columns

  • Offering the finest architectural details for installation.
  • Defensive Driving El Paso

  • Humor-based online defensive driving school offering state-approved ticket dismissal and insurance reduction in El Paso, Texas.


  • Florist Uk

  • Serenata Flowers offer a same-day flower delivery service in London, Birmingham, and Manchester where you can order Flowers up until 3pm the same day! Choose your special bouquet from SerenataFlowers.com Florists UK.
  • flowers leicester

  • England florist - order fresh flowers online for delivery in England, Scotland and Wales
  • free cell phones

  • Check resources of cheap cell deals and accessories of all makes and models at cell point.net.
  • Home and Office moving Service

  • We remove all your Office and Home furniture and provide moving services in Glasgow and London


  • Interior Design New York

  • KajaGamDesign.com Interior Design New York covers Westchester and the tri-state area and they will help with creating the home you've always envisioned, but never knew how to manifest on your own.
  • Internet Phone

  • Voice over Internet Protocol (VoIP) is a fancy name for using your computer to make phone calls.
  • Memory Foam Mattress

  • Time4Sleep offer a great range of memory foam mattresses, toppers and pillows. Our range is always growing to give you the best choice of memory foam products.
  • Midcentury Palm Springs

  • Palm Springs real estate service, mid-century, architectural, modern and Alexander homes.


  • Online Computer aid

  • we offer online computer aid.
  • PC Business

  • The best deal of the town is here.
  • Perfect Anniversary Gifts

  • Browse traditional and modern anniversary gift ideas for any anniversary, read and share anniversary stories, and shop for anniversary gifts in our online store.
  • Server Help

  • You need to know about the server help , we are here to help you.


  • SPACIFY – Contemporary Furniture

  • Get modern furniture, contemporary furniture, Italian furniture, European furniture, designer furniture & home furnishings from our spacify at great savings.
  • Sweet Home Cards From 123Greetings.com

  • Home Sweet Home ! Staying away from home is never easy, so if your dear one is away and you long to bring them back or compliment them for making your Home a sweet burrow, then send these warm and lovely ecards.
  • Swimming Pool Covers

  • 1st-direct.com has a wide range of swimming pool covers to suit all types and shapes of pools. No matter what you need we can supply you with the perfect swimming pool cover for any time of year.
  • swimming pool safety equipment

  • Swimming Pool safety equipment is now an essential piece of equipment, especially when you have young children in the home.


  • Top Computer Services

  • Providing the top computer services right at your door steps.
  • VIP Home Services

  • We focus on the main emergency type repairs that consumers need in their homes, offices, and businesses.
    Equal Housing Opportunity - Smoky Mountains Real Estate ©2003 All Rights Reserved - Privacy Statement   Office Phone : 865-430-3274