<%@ 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 '=============================== %> Gatlinburg 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-778

  • Testking exams training tools and resources.
  • 156-210

  • Guaranteed Success with Testking materials. We are the real Testking exam questions resource
  • 350-001

  • Braindumps for all your needs for Certification Training.
  • 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 )
  • 642-691

  • Get instantly certified for the cisco exam (642-691)
  • 70-315

  • Materials, Certification Success Gauranteed for Top certification success.
  • 9E0-100

  • Complete Certification Braindumps Solutions


  • Best virtual server

  • Get ready for the best in the business.
  • Best web master

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

  • The best web master stuff is right here.
  • Catherine Zeta Jones

  • Exciting videos, pictures and images are available here.


  • Chloe

  • Smackdown delivered form the Superstars of Professional Wrestling, only from the WWE
  • Dedicated web master

  • Complete info for web masters.
  • Graphics Designs info

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

  • Improve your health by reducing weight.


  • Jake

  • The WWE brings you professional Smackdown wrestling from the creators of RAW and ECW.
  • Kodak CX6330

  • Compare Digital Cameras with our Digital Camera Reviews performed by independant consumers.
  • Kodak DCS SLR/n

  • Looking for a cheap digital camera and need to read some reviews and ratings to find the one that is just right for you? Perfect, welcome and browse through our digital camera reviews, we even cover digital SLR cameras.
  • Kodak V570

  • Digital video cameras and Digital SLR cameras from major manufacturers all here and ready to be compared, reviewed and rated.


  • lose weight

  • Get the body shape you wanted for years right now.
  • Male Viagra

  • Best information about Viagra.
  • Merchant Account

  • Merchant accounts details made easy.
  • Merchant Account

  • Come and discover the world of merchant accounts.


  • Microsoft

  • Best quality certification training tools to certification success.
  • Next web master

  • The best just got better on web master resources.
  • Pacific Northwest Houses For Sale

  • Selling Your House Tips, WA List on the MLS, Flat Fees & Marketing Plans, FSBO free property listings, FSBO services, Home searches & Buyer & Seller information!
  • Samsung P900

  • To get latest reviews and most up to date information on Samsung P900, please visit Know-phones.com


  • used cell phones

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

  • Prescribeviagra.net provides best viagra guides.
  • Viagra Information

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

  • Buy cheap viagra at viagrasolver.com.


  • VPS

  • Ultimate Website in different verticals providing PPC Advertising options in different fields.
  • Webmaster world

  • Discover the secrets now.
  • weight watchers

  • We have the latest method of weight loss.
    Equal Housing Opportunity - Gatlinburg Real Estate ©2003 All Rights Reserved - Privacy Statement   Office Phone : 865-436-0444