<%@ 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: Furniture_Real_Estate.asp '------------------------------- ' Furniture_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Furniture_Real_Estate" pageName = "Furniture_Real_Estate" Session("expired") = "No" %> <% ' Furniture_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 = "Furniture_Real_Estate.html" sTemplateFileName = "Skin/Furniture_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Furniture_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")) ' Furniture_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Furniture_Real_Estate Close Event begin ' Furniture_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() SetVar "BrokerName1",Session("BrokerName1") SetVar "BrokerPhone1",Session("BrokerPhone1") SetVar "BrokerEmail1",Session("BrokerEmail1") if session("BrokerName1") <> "" then setVar "FullName",session("BrokerName1") if session("BrokerName1") <> "" then setVar "OwnerName",session("BrokerName1") if session("BrokerEmail1") <> "" then setVar "Email",session("BrokerEmail1") if session("BrokerPhone1") <> "" then setVar "Phone",session("BrokerPhone1") %> <% If LoadedPage <> "" Then SetScript "PutYourContentHere",LoadedPage Else If Request("Furniture_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Furniture_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 '=============================== %>
  • Accent Chair

    • Add a bright accent to your living room with Accent Chair Shoppe''s exclusive collection of living room furniture including; leather finish accent chairs, game chair and desk chairs with a unique tra
  • Bakers Rack

    • Outfit your kitchen in western style with Bakers Rack Shoppe''s unbeatable selection of stylish kitchen bakers racks,including bakers rack, bakers racks, metal baker rack, outdoor baker rack, kitchen
  • Bedroom Dresser

    • Looking for stylish & elegant dressers for your bedroom? Discover the wide variety of world''s finest quality of bedroom dresser set, bedroom drawers, bedroom chests and bedroom chests of drawers
  • Chaise Lounge

    • Find the perfect chaise lounge chairs for your contemporary living room. Chaise Lounge Shoppe carries the latest varieties of luxurious chaise lounge furniture, including indoor and outdoor sofa cha


  • Chiropractic Supplies

    • ChiroBuys.com is your source for the best prices on New and Used Chiropractic Equipment and Supplies including Adjusting Tables and Roller Tables!
  • Club Chair

    • Transform your living room into a stylish setting with our vast selection of leather or fabric upholstered club chairs, antique club chair, swivel club chair and kids club chair at very affordable p
  • Cocktail Table

    • Browse our unique selection of Wood Cocktail Table, including the latest variety of wood cocktail coffee table, round cocktail table and square cocktail table and more, all in-demand products at roc
  • Coffee Table

    • The right touch of modern style offered by our huge selection of modern coffee tables, Glass Coffee Tables, Coffee and End Tables that highlights your home''s interior decor in your budget.


  • Control Center Console

    • ImageVision is a global supplier of industrial strength operator consoles available at affordable prices with modular components allowing their use in a wide variety of applications.
  • Dining Table

    • Experience the American look and feel with our exclusive collection of Square Dining Table, Pedestal Dining Table, Wood Dining Table, Dining Tables Sets, Dining Table and Chairs that will blend perf
  • Distressed hardwood floors

    • Simplefloors.com will help you find the best Laminate Flooring, Hardwood Flooring, Cork Flooring, Bamboo Flooring, Wood Flooring and Hardwood Floors.
  • End Table

    • Our wide selection of end tables offers you the perfect accent to your living room. We offer every style from traditional to contemporary end tables.


  • Filing Cabinet

    • Filing Cabinets Shoppe specializes in quality storage solutions at affordable prices and offering an unbeatable selection of filing cabinets for the office or home, including file cabinets, home fil
  • Fireplace Glass Burner

    • All Backyard Fun was created to open doors to a whole new world of backyard and patio additions.
  • Hinge

    • HomeHardWarePlus is dedicated to providing customers with quality Commercial Door Hardware, Door Knobs, Door Locks and Discount Cabinet Hardware.
  • Office Chairs

    • Modern Office is known for offering a large selection of office furniture from over 100 manufacturers at discount prices


  • Ping pong

    • Bring the fun home with one of our top ping pong tables, indoor table tennis table, outdoor ping pong table, and cornilleau ping pong table. Find quality table tennis accessories to go with your table, including paddles, post and net sets, and ping pong balls.
  • Room Dividers

    • We have a good selection of room dividers and screens in a great variety of styles to accent your home. Wide selection of home room dividers, room screens dividers, room screen, folding room divider and panel divider at warehouse prices.
  • Stacking Chairs

    • Integrity Furniture offers the best selection in seating, folding tables, bulletin boards, mobile cafeteria tables and staging equipment.
  • Unassembled Cabinets Texas

    • Kitchens Pro is your online one-stop-shop for Ready To Assemble Kitchen Cabinets at Discounted Wholesale.


    Equal Housing Opportunity - Gatlinburg Real Estate ?2003 All Rights Reserved - Privacy Statement   Office Phone : 865-430-9274


    Free Reports | Free Forms | Financing | Local Info | Search | Partners | Login | Contact | Tools | | Relocation