<%@ 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(lcase(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 '=============================== %>  

Life On Lake Lanier - Lake Lanier Real Estate
blueridge reports
  • Accent Chairs

    • 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
  • Accent End Tables

    • 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.
  • Antique 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.
  • Bakers Racks

    • 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 Dressers And Chests

    • 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
  • Bunk Beds

    • 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.
  • Buy Bookcases

    • Bookcase Shoppe.com - Offering a wide selection of bookcases and bookshelves, including wood bookcases, corner bookcases, barrister bookcases, office bookcases and home bookcases in different styles and finishes. Free shipping on select items!
  • Chaise Lounge Chair

    • 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


  • Cocktail Coffee 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
  • Contemporary Club Chairs

    • 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
  • Glass 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
  • Lateral File 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


  • Platform Bed

    • Give your room a sleek and elegant look with our new exclusive range of wood platform bed, metal platform bed, king platform bed, queen platform bed, full platform bed, twin platform bed, platform storage beds and frame at incredible rock bottom prices.
  • Room Divider

    • 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.
  • Table tennis

    • 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.
  • workbench

    • Australia\''s leading work benches manufacturer of industrial workbenches and steel workbench accessories