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


" & Request("Construction_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!

 
  • Alarms Nottingham

    • Fire and Burglar Alarms installation and testing services are providing by the Electricians Nottingham.
  • Bamboo Poles, Bamboo Fencing and Thatching

    • We sell a variety of bamboo products including; poles, fencing and mats to name a few.
  • casino bonus

    • Europa Casino is the most trusted and secured online casino on the web.
  • casino online

    • European online casino portal.


  • casinos online

    • Number one online casino.
  • FireBird Homes - Custom Homes in New Mexico

    • Firebird Homes is a premiere builder of custom homes in New Mexico. With current homes and land availible on the Westside and in Rio Rancho.
  • free poker

    • The best online poker room!
  • Industrial Central Vacuum Cleaners, dust, mist Collectors.

    • Industrial Central Vacuum Systems, portable, mist collectors ,including Dust Collection.


  • Loft Conversion Hemel Hempstead

    • Loft Conversion specialists in Hemel Hempstead, extension builders, attic and garage converions.Free no obligation quote.
  • Loft Conversions Specialists in Hemel Hempstead

    • Loft Conversion specialists in Hemel Hempstead, extension builders, attic and garage converions.Free no obligation quote.
  • pacific poker

    • Discover why Texas holdem is the most popular poker game in the world.
  • Range Hood

    • Purchase name brands at clearance prices at Overstock.com! Buy discounted name brand Bedding, Furniture, Jewelry, Watches, Electronics, Clothing, Books.


  • Scaffold Importers Exporters and Consultants.

    • We are an Australian based Pty Ltd company with 15 years experience in the supply of quality kwikstage , tube and fitting as well as all modular type scaffold. All our scaffold components are pr.
  • Sheds Northamptonshire

    • Bentley sheds offer an extensive range of great looking apex sheds, pent sheds, garden stores & workshops, all of which are practical but stylish.
  • Sheds Nottinghamshire

    • Bentley’s offer an extensive range of great looking apex sheds, pent sheds, garden stores & workshops, combining practicality with style.
  • Sheds Warwickshire

    • Bentley sheds offer an extensive range of great looking sheds, pent sheds, garden stores & workshops, all of which are practical but stylish.


  • Summerhouse Northamptonshire

    • Bentleys are a well established professional firm who can supply and deliver the largest range of log cabins, summerhouses and garden buildings across Northamptonshire.
  • Summerhouse Warwickshire

    • Bentleys are a well established professional firm who can supply and deliver the largest range of log cabins, summerhouses and garden buildings across Leicestershire.
  • Yekta Homes - Real Estate Property Apartments Villas Turkey Alanya

    • Yekta Homes - Real Estate and Property Portal in Alanya
    		  


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

    Tulsa Real Estate