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


" & Request("Insurance_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
  • Affordable Health Insurance

    • Affordable Health Insurance - Dental insurance - Life Insurance for Individuals, Famlies and Small Business
  • Antalya Villas

    • Turkish Property World offers luxury villas for sale in Belek Side Alanya Antalya Kemer Kas Kalkan Fethiye.
  • Auto Insurance Brampton

    • Ace Financial Group is a Certified Financial Planner and one of the largest, most respected and experienced insurance & financial services firm in the country and deliver Best Investment Solutions l
  • Auto Insurance Quote

    • Save money and time by comparing free insurance quotes online. Cheap auto, health, life, home, renters, disability, cancer, long term care policy rates.


  • Belek Villas

    • Turkish Property World offers luxury villas for sale in Belek Side Alanya Antalya Kemer Kas Kalkan Fethiye.
  • Blue Shield Of California

    • Get free quotes on health insurance from the blue cross of California premier agency and cut your approval process in half.
  • Cheap Auto Insurance

    • America''s #1 online insurance agency. Compare instant auto insurance quotes, car insurance quotes, life insurance quotes and home insurance quotes.
  • Contractor insurance Milton

    • Welcome to Vista Insurance and Financial Services, A home of Canada''s best insurance brokers and find great deals on homeowners insurance, commercial and business property insurance


  • florida no fault insurance

    • Auto insurance in Jacksonville FL compare free car insurance quotes online and review a directory list of auto insurance agency locations in Jacksonville Florida complete with addresses and telephon
  • Group Insurance Quote

    • SAVE on health insurance quotes and plans while finding affordable health insurance rates. GET and compare health insurance quotes and rates on affordable plans based on your needs and budget.
  • Los Angeles Car Insurance

    • Los Angeles Insurance Quotes - Cheap auto, health, life, home insurance. Save money and time by comparing free LA insurance quotes online. Providing you with the best quote for all your insurance ne
  • Low Cost Term Life Insurance

    • Our mission is to help people manage the risks of everyday life, recover from the unexpected and realize their dreams.


  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get


  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get


  • money mastery

    • The Money Mastery provides you with genuine guidance, so that you can work towards achieving your goal of debt relief. We provide 100% legitimate Personal Finance Program and will help you to a get
  • Online insurance

    • Free Online Insurance Quotes - Find and Compare Insurance rates,Get free quotes from Health Insurance,Life & Term Insurance, obtain an affordable Insurance Plans,policy with onlinelocalinsurance.com.
  • Own-occupation disability insurance

    • Own-occupation, long-term disability income insurance for physicians and dentists - Quote comparisons from all major insurance companies.
  • Pennsylvania PA Debt Settlement Philadelphia Pittsburgh Allentown Credit Card Debt Settlement

    • Pennsylvania PA Debt Settlement Philadelphia Pittsburgh Allentown Credit Card Debt Settlement


  • Premium Finance Company Carlsbad

    • We work with rock-solid, top-rated companies that give you lucrative financial alternatives.
  • verhagen insurance

    • Our commitment to excellence is critical to our effort, our attitude and performance in Plano Home Insurance, Property Insurance Texas and VGW Insurance..
  • veterans home loans

    • Work directly with a VA Home Loans specialist. Veterans can qualify for up to $417k with $0 down. Pre-qualify online for your VA Loan today.

    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