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

Tulsa Real Estate

Tulsa Real Estate is what I specialize in as your Tulsa Real Estate Agent.
If you are looking for Tulsa Real Estate, you've come to the right place.
Our Tulsa Real Estate office specializes in Tulsa area real estate.
Thank you for taking the time to visit my Tulsa Real Estate website.
Feel free to use my Tulsa area search. Search Tulsa Real Estate Now!

 
  • A Glimpse of Time: custom photo cards

    • At A Glimpse of Time we create customized cards for all your business needs including Customized New Home Note Cards- great realtor gifts; as well as photo birth announcements, invitations, etc.
  • 123 Inkjets

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

    • Liberty Motor Company provides accessible minivans for personal use, as well as for use as taxis and paratransit vehicles.
  • Achichu.com

    • Achichu


  • Black jack

    • GamblingPlanet.org seeks to be your first and stop on the Internet.
  • California Medical Insurance

    • California Individual Health Insurance By Fasthealthquotes.net
  • California Medical Insurance

    • At KramerInsurance.com, we?re dedicated and leading agency to bringing you the lowest California medical insurance.
  • car transport, auto transport, car shipping, vehicle shipping

    • car transport, auto transport, car shipping, vehicle shipping, car shipper, vehicle shipper Houston car transport, Houston Texas auto transport, Houston vehicles transport, Texas car shipping


  • Casino Online

    • Recensioni dei migliori casino online con giochi e casino games on line
  • Computer, Laser Printer Repair, Computer Networking Service

    • San Francisco Computer Repair. Printer Service and Computer Networking Solutions For the San Francisco Bay Area
  • Dri Wash n Guard Waterless Car Wash

    • eDistributor of DRI WASH n GUARD Waterless Car Wash Products. Order securely online or call us toll free at (888) DRI-WASH and save 10%. DRI WASH n GUARD cleans, seals and UV Protects your vehicles all without a drop of water! DRI WASH n GUARD is guaranteed not to scratch, and comes with a money back guarantee.
  • Easy Business Opportunity

    • Our company NetSuccessUSA is a global leader in Internet Advertising Opportunity, Home Based Business Opportunity and Small Business Opportunity.


  • Electronic bark collar

    • Dogtra.info have been handling exceptionally Dogtra brand electronic training items comprising dogtra collars from a very long time
  • Entry Levers

    • HOME HARDWARE PLUS brings you hardware for your home with unparalleled quality and price.
  • ergonomic operator console supplier

    • ImageVision is a global supplier of industrial strength operator console furniture available at affordable prices with modular components allowing their use in a wide variety of applications.
  • Gifts baskets Canada, gifts baskets Ontario, corporate gift baskets, baby gift basket, wedding gift idea : Heaven in a Handbasket

    • Heaven in a Handbasket is the leading source for gift baskets for all occasions, flowers, chocolates, balloons, corporate gift baskets, christmas gift baskets, and more. Canadawide delivery availabe


  • Graphics By Ivana

    • Graphics By Ivana offers you affordable web designing, hosting solutions. Youll never find a more personal, friendly and professional service online than here.
  • Hp 57 Inkjet Cartridge

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

    • World''s largest online poker room and casino.
  • Online Poker FM

    • Online Poker sites, Online Poker Bonuses, Poker Strategies, Poker tips and more!


  • pda shopping

    • discount shopping bag, discount shopping for pda, discount gift shopping store, discount pricing shopping, discount clothes shopping, christmas discount
  • Red Exerciser

    • The RED system comes with everything you need for guaranteed
  • Regency Raliegh NC

    • premier paints Raleigh paint store - Glidden Endurance Devoe Regency Cabot paints
  • roulette

    • All the best online casinos are all here in this site.


  • Stress Relief

    • The Official Website for Release Technique! The Abundance Course, Lester Levinson or Key to the Secret, is a simple, powerful and comprehensive course for achieving total Financial Freedom through S
  • student loan calculator

    • Student Loans Ed exclusive Excel based Student Loan Repayment Calculator and student loan calculators complete with amortization schedule and tutorials.
  • Towing Software from OnScene Solutions - The In Tow Software Suite

    • Towing software made simple. We are the towing industrys fastest growing towing software provider. Download a free 30 day trial version of our towing software today.
  • Translation Service

    • Translation Service


    		  


    Equal Housing Opportunity - MyTulsaHomes.com ?2005 All Rights Reserved - Login  - Privacy Statement
    Real Estate Web Site Design

    Tulsa Real Estate