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


" & Request("FSBO_Websites_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-850

  • Testking exams training tools and resources.
  • 220-301

  • Great source of your desired certification (220-301) and the instant online access to other Exams
  • 310-880

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

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


  • 642-661

  • Get instantly certified for the cisco exam (642-661 )
  • 920-160

  • Have a look below to discover why testking.com is your premier source for practice tests.
  • 9E0-100

  • Complete Certification Braindumps Solutions
  • Acura MDX

  • We invite you to browse our website and purchase the quality made Suzuki accessories online


  • BenQ P50

  • Crazy-Phones.net provides you complete information about BenQ P50 Cell Phone, Specification, User reviews as well.
  • Best web master

  • How to become the best webmaster? Come here.
  • Best web master stuff

  • The best web master stuff is right here.
  • byowner247.com

  • Free For Sale by Owner marketing system for home sellers and buyers. Save thousands in Real esate comissions. No Fees or Comissions. Nationwide listings


  • Cash in Blackjack

  • What Is A Blackjack, Or a Natural?
  • Dedicated web master

  • Complete info for web masters.
  • East Tennessee Land for Sale by Owner

  • For Sale by Owner only properties in the hills, mountains, and lake country of beautiful East Tennessee. Browse this site to find farms, undeveloped lands, recreational properties and other owner-offered properties
  • Graphics Designs info

  • We are committed to create custom-designed websites and graphic designs that will make your business globally competitive.


  • http://HousingVietnam.com/home.asp

  • http://www.HousingVietnam.com/home.asp
  • http://PassionVietnam.com/home.asp

  • http://www.PassionVietnam.com/home.asp
  • Kristin Cavallari

  • Exciting videos, pictures and images are available here.
  • Male Viagra

  • Best information about Viagra.


  • Merchant Account

  • Come and discover the world of merchant accounts.
  • Microsoft

  • Best quality certification training tools to certification success.
  • Minneapolis and St. Paul Real Estate

  • Best tips for preparing your home to sell! Free no obligation market analysis of your home!
  • Next web master

  • The best just got better on web master resources.


  • Poker Guides

  • Deciding which hands to play.
  • SmokiesFSBO.com is a locally owned website advertising service designed to work for the homeowners selling their own home in the Smoky Mountain and East Tennessee Area.

  • Website advertising for sale by owner homes in the Smoky Mountain region of Tennessee. We advertise fsbo homes for people for a fee.
  • stag weekends

  • stag weekends, stag weekend, stag party and stag night
  • StockPhotoSPOT

  • Buy and sell affordable stock photos


  • Testking

  • Test king provides the latest study guide about the certification.
  • used cell phones

  • The top brands of cell phones and mobile phones are reviewed on our website.
  • Viagra Information

  • Viagra is a prescription drug used to treat erection difficulties
  • Viagra Tips

  • Buy cheap viagra at viagrasolver.com.


  • Webmaster world

  • Discover the secrets now.
  • weight watchers

  • Desired body shape is no longer a dream.
    Equal Housing Opportunity - Smoky Mountains Real Estate ©2003 All Rights Reserved - Privacy Statement   Office Phone : 865-430-3274