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


" & Request("Finacial_and_Financing_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
  • Apartment Financing

    • Bondstreetcapital.com is dedicated to providing lending solutions for Commercial Mortgage Loans, Commercial Mortgage Lenders, Small Commercial Mortgage, Apartment Loans, Multi-Family Loans and Churc
  • AUTO GLASS PHOENIX

    • AUTO GLASS PHOENIX
  • Cash For Gold Phoenix

    • Sell your gold jewelry for cash by hosting or attending a Gold Party. Learn how you can sell your gold jewelry to Phoenix Arizona''s top rated gold buyer.
  • hard money bridge loan

    • SNC Loans is a direct mortgage lending firm & a group of expert bridge lenders specializing in fast & creative hard money bridge loans for immediate commercial mortgage financing needs.


  • Home Budgeting 

    • Debt Relief Counseling 
  • Home Loan

    • The online leader for Home Equity Loans.
  • Home Mortgage Loan

    • The online leader for home loans.
  • Land Loan Arizona

    • Experts in Arizona Commercial Loans, we offer a wide range of Arizona Commercial Loan, Arizona Commercial Mortgage, Arizona Construction Loan, Hard Money Lender Arizona.


  • merchant services

    • Merchant accounts and credit card processing at the guaranteed lowest price. Credit card processing, Merchant accounts and Merchant services: Process your merchant account credit card transactions.
  • No Fax Payday Loan

    • Overnight no fax payday loan. All online. Apply early for overnight cash in your bank account. Direct deposit not necessary. No faxing. Don''t trust the Internet? Call us at 877-409-2274 and we
  • Payday Advance

    • Get payday cash advance fast! Fast cash online is available here. The cash advance loan you need is just a click away. Fill-up a cash advance loan application in minutes!
  • Payroll Accounting etobicoke

    • JEZFI Associates offers a full range of accounting, business incorporation, personal accounting, general accounting and financial accountant services from offices in Toronto, Mississauga, Etobicoke,


  • Reverse Mortgage

    • Golden Gateway Financial, we offer you several ways to get money for retirement. Our goal is to make retirement funding safer and easier.
  • Unsecured Business Lines of Credit

    • If you been in business for at least 1 year and process a minimum of $2,500 in credit cards, you may qualify for an Unsecured Loan.

    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