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

Home | Free Reports | Free Forms | Financing | About | Local Info | Partners | Search | Site Map | Contact  

Quality Service with a smile. Professional, Experienced real estate service. If you are considering buying or selling a home or would just like to have additional information about real estate in your area, please don't hesitate to call or e-mail me.
  

Quick Links
    HOME PAGE

Resources
    ABOUT ME
    LOCAL PARTNERS
    TESTIMONIALS
    SCHOOL INFORMATION
    LOCAL NEWS
    MOVIE TIMES

Home Search
    HOMES FOR SALE
    FEATURED LISTINGS
    NEW LISTING ALERT

Real Estate Tools
    15 SECOND APPRAISAL
    CALCULATORS
    REAL ESTATE GLOSSARY
    HOME FINANCE
    TODAY'S RATES

Real Estate Info
    HOME BUYING
    SELLING A HOME
    FREE REPORTS
    FREE FORMS
  • 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
  • antique wood flooring

    • Three Towers Flooring is a wholesale hardwood flooring manufacturer and distributor in Toronto, Ontario, Canada.
  • Baker 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 Dressers

    • 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 Lounges

    • 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
  • 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
  • Cocktail Tables

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

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


  • 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
  • Door parts

    • HomeHardWarePlus is dedicated to providing customers with quality Commercial Door Hardware, Door Knobs, Door Locks and Discount Cabinet Hardware.
  • 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.
  • Furniture removals Melbourne |Furniture removalists |Removalist Melbourne

    • Compare Quotes is a quick way to find the best Melbourne relocation companies, household relocation service, furniture removalists, house movers Melbourne and other contractors to help you save money & compare professional service with accurate quotes.


  • Kitchen Table Sets

    • Make preparing your food a snap with our unique selection of food processors, mini food processors, blenders and juicers
  • Metal Wall Art

    • Xtreme Accessories is America''s Largest Retailer of Elegant Home Accessories, Home Accents, and Furniture such as Decorative Mirrors and Silk Flower Arrangements.
  • Removalists Brisbane

    • Anset removal are Brisbane''s leading removalist with competitive pricing and friendly service. Unlike many other removal companies, Anset offer a no scratch guarantee to ensure your move is as smoot

    Equal Housing Opportunity - Santa Barbara Real Estate ©2007 All Rights Reserved - Privacy Statement
     

     




    SANTA BARBARA HOMES & LAND - FAX 805-687-4041 -TOLL FREE 1-800-97-LANDS (52637)
    Montecito / Santa Barbara / Santa Ynez Valley / California Central Coast

     

    Santa Barbara Real Estate