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


" & Request("Real_Estate_Rentals_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-870

    • Testking exams training tools and resources.
  • 642-511

    • Test King Exams traning tools and resources the complete coverage of the certification exams.
  • Bad Credit Loans

    • Vipcredit offers bad credit loans
  • Cheap Laptop Computers

    • Find best online laptop computers and consumer electronics deals, coupons, promotions. Cheap digital cameras, LCD monitors, Ipods and more at PCCounter.net


  • houston apartment locator

    • Find your dream apartment for rent in houston & texas area without spending any time any money. Houstonapartment provides free rental service in houston & texas area. It has a huge database of best located rental apartments
  • Jennifer Aniston

    • Fascinating pictures and wallpapers are available here.
  • Lake Keowee Real Estate

    • Lake Keowee Real Estate,
  • Live Football



  • new hampshire real estate

    • search all new hampshire real estate for sale including waterfront homes, farms, luxury estates. Easy to use site with extensive features for home buyers.
  • New Home Katy Texas

    • Locate a new home in Katy Texas without any extra hassles. Joe Rothchild knows that finding a new home in Katy Texas can be stressful and will work hard to locate the house of your dreams
  • Office Space for Lease

    • Micro Office Solutions provides affordable full-service office space in New York City
  • Orange County Real Estate - Orange County Homes - OC Rentals

    • Orange County house rental is a professional licensed real estate agents that offers real estate services for OC,California providing premium rentals and a variety of properties managers with the largest database of luxury homes and the realtor MLS.


  • Pigeon Forge Cabin Rentals

    • Offering Gatlinburg and Pigeon Forge cabin rentals ranging from 1 - 14 bedrooms.
  • SSCP

    • Have a look below to discover why testking.com is your premier source for practice tests.
  • Vietnam travel, Vietnam tours TNK Travel

    • Vietnam TNK Travel Agents,Vietnam Tour Operator offers special rates on the Vietnam customized tours,Vietnam travel packages,Vietnam online hotels booking,Vietnam resorts and spas reservations,Vietnam tailor made tours,Vietnam vacation packages,Vietnam discount tour packages,Vietnam adventure travel,Vietnam private tours,Vietnam Scuba Diving Tours,Vietnam group tours,Vietnam honey moon packages,Vietnam guided tours
  • Vinamaid.com - Vietnam, Hanoi Real Estate Agency, Apartments, Houses, Villas, Offices Rental

    • Our company, Binh Minh Real Estate Trading Joint Stock Company with more than five years operating in the real estate field, has the head office located in Hanoi, Vietnam


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