<%@ 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: Business_Real_Estate.asp '------------------------------- ' Business_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Business_Real_Estate" pageName = "Business_Real_Estate" Session("expired") = "No" %> <% ' Business_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** '** FROM FILE ** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'Set fso = 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 '** REMOTE XML ** '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 '** REMOTE DATABASE ** 'Set Conn = Server.CreateObject("ADODB.Connection") 'Set Rs = Server.CreateObject("ADODB.Recordset") 'Conn.Open "Provider=sqloledb;" & _ ' "Data Source=216.127.88.120,2433;" & _ ' "Network Library=dbmssocn;" & _ ' "Initial Catalog=Accounting;" & _ ' "User ID=sa;" & _ ' "Password=buckler;" 'rs.Open SQL,conn,1,1 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing ' Set conn = CreateObject("ADODB.Connection") ' Set rs = Server.CreateObject("ADODB.Recordset") ' filePath = Server.MapPath("AdminMyStuff.html") ' conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filePath ' strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" ' Set rs = conn.Execute(strSQL) ' rs.Movefirst 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "Business_Real_Estate.html" sTemplateFileName = "Skin/Business_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Business_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")) ' Business_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Business_Real_Estate Close Event begin ' Business_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("Business_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Business_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 '=============================== %>
The Santa Ynez Oak Group

  • 123 Inkjet

    • 123Inkjets is dedicated to bringing you high quality inkjet printer cartridges & laser toner, photo paper, and other inkjet printer supplies at a great savings.
  • 212 Perfume for Women

    • FragranceExpress.Net is dedicated to provide our customers with access to the largest selection of genuine, brand name Perfumes, Haircare, and more, including many discontinued perfumes and disconti
  • Anger Management Seminars

    • The Official Website for Release Technique! The Abundance Course, is a simple, powerful and comprehensive course for achieving total Financial Freedom through Stress Management and Relief.
  • Automatic Gate Operator

    • WholesaleGateOpeners.com is your source for swing and sliding gate openers and accessories direct from the manufacturer including Automatic Dual Swing Gate Openers and Electric Auto and Commercial G


  • Best online business opportunity

    • TheBuyersResort.com is the Best Online Business Opportunity for a man or woman to start a Homebased Business. We will help you make money through a strategic and profitible Home Business.
  • Breast Cancer Awareness

    • The Healing Silks Company, founded the creation of natural 100% pure silk Energy Healing Scarves, Meditation and Prayer Shawls and many other energy healing silk products to enhance, expand and unif
  • Builders In Leeds Builders In Leeds

    • For Builders In Leeds Visit Our Builders In Leeds Website.
  • Builders In Sheffield Builders In Sheffield

    • For Builders In Sheffield Visit Our Builders In Sheffield Website.


  • Business Opportunity Woman

    • Tired of business opportunities that do not deliver what they promise? We have reviewed the top selling Home Internet-Based programs and Opportunities so that you can begin Making Money today.
  • Call Center Services

    • Services include the distribution of literature, displays, Point-Of-Purchase and other collateral materials,e-commerce business-to-business and business-to-consumer fulfillment, kit assembly, wareho
  • Cleveland implant dentist

    • Farian Cosmetic and Family Dentistry provides friendly service in a welcoming and professional environment. We offer a wide range of dental and cosmetic services.
  • Contemporary artists

    • Youlia Tkatchouk creates mosaic tile art and hand painted murals, many on display in public spaces. These public art installations are often in satisfaction of public building percent for art requi


  • Counselling London

    • Counselling London'' ''Psychotherapy London'' ''Counsellors London'' ''Psychotherpaists London'' are by far the most popular keywords people use to search for counselling.
  • Dallas dog kennels

    • LoneStarDogRanch.com is a leader in Plano Dog Boarding, Dallas Dog Boarding, Plano Dog Kennels, providing innovative and excellent products and services to many indispensable consumer markets.
  • Diluents

    • The Royce philosophy of providing the best performing products at competitive prices with unparalleled service has been the heart of the Company since 1929.
  • Energy Shot Reviews

    • Turbo Power gives all day energy because it gives me increased energy levels that are sustained throughout the day.


  • File Storage San Antonio

    • At SafeSite we have the expertise to handle your records and the systems to record and track your files, boxes and magnetic media.
  • Glendale Florist

    • Z''s Garden Beverly Hills Flowers CA is the best place to fined flowers.We have Glendale Flowers CA, offers fresh flowers for wedding flowers, sympathy CA, flowers, funeral flowers and Bridal bouquet
  • Green Architects in Northern California

    • At Todd Jersey Architecture, we believe buildings can and should be beautiful, durable, functional, sustainable, and cost effective.
  • Joint Ventures In Greece

    • Founded by Dr. Yannis Kelemenis, an Oxford graduate and Rhodes Scholar, Kelemenis & Co. is an Athens-based law firm providing quality legal services in the key corporate and commercial areas.


  • Jordan Car Rental Deals

    • Visit here to hire the rent a luxury car Jordan, holiday car hire in Jordan or Joradn car rental deals to Jordan hotels.
  • Los angeles dui lawyer

    • Expert California Criminal Defense Attorneys, specializing in Los Angeles Criminal cases, Drunk Driving Defense, los angeles criminal defense, attorney, Los Angeles Criminal Defense Lawyers Californ
  • Miami Events

    • Welcome to GLBTCommunity! Please register yourself and take a look around. There''s lots to see and do, so take your time, meet some new friends, and make yourself at home.
  • Miracle Money Making System

    • Miracle Money Systems is dedicated to making you an amazing success story with the Best Online Automated Perpetual Money Making System!


  • New pallet racks california

    • ANE Rack & Shelving, Inc. is a supplier of new and used retail and warehouse storage products. We are committed to identify and understand your needs, and provide the best solution.
  • Open Signs

    • We''ve been providing our clients with quality products and services for fifteen years.
  • Print Envelopes

    • Custom Business Cards. Huge Savings on Business Cards, Envelopes, Postcards, Presentation Folders, Catalogue Sheets, Brochures, and more.
  • Property South Africa

    • Property South Africa, South African Property, SA Homes For Sale, View our wide selection of property for sale in South Africa. Property in South Africa for sale and to rent.


  • Retail Consultants

    • The Friedman Group''s expert trainers, consultants and business improvement specialists have delivered millions of dollars in sales improvements to retailers just like you.
  • Stage Acting

    • At Theactorstoolbox.com, find your new Acting Coach! Acting Classes, Film Acting, Stage Acting, Teen Acting.
  • Website Video

    • At Cloudwalker Videoworks, every project like Website Streaming Video, Direct Sales DVD, is headed by a superb filmmaker and producer with 30 years of top-level television experience




    FEATURED LISTINGS | FINANCING | REAL ESTATE TOOLS | MY BLOG
    MOVIES | NEWS | CONTACT | SITE MAP | HOME

    The Oak Group | 2933 San Marcos Ave #102
    Solvang, CA 93463 | (805) 331-3053

    Copyright 2008. All rights reserved.