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


" & Request("Real_Estate_Investment_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 '=============================== %>
    Direct Email :
    Abraham.Janet@gmail.com
HOME PAGE
SEARCH LISTINGS
    BY COMMUNITY
FEATURED PROPERTIES
BUYERS INFORMATION
SELLERS INFORMATION
REAL ESTATE TOOLS
CODE OF ETHICS
COMPARE CITIES
MISSION STATEMENT
GOTTA SEE THIS
LIST YOUR PROPERTY
HOMESTEAD
ABOUT
CONTACT
LOGIN
Janet Abraham
Direct : 918-406-7325
Office : 918-259-8055
Email Me
501 S Aspen Ave
Broken Arrow, OK 74012-2296
 

Call Direct : 918-406-7325     Cell : 918-259-8055
  • 640-811

    • Cisco has made their name due to the value and the rewards their certificates bring.
  • Asheville Real Estate

    • Premier North Carolina (NC) real estate brokerage company providing highest quality realtor service for Asheville homes, Hendersonville homes, Waynesville homes and NC homes.
  • Australian Property Investing

    • OHL Group is a leading property investment, research and education consultancy. We provide busy people the means to build a property portfolio faster and achieve financial freedom through passive income. We do most of the hard work for them.
  • casino

    • Get your free signup bonus and win huge progressive jackpots.


  • dados

    • Join our lottery syndicate from any country in the world.
  • Debt Consolidation

    • Topdebtconsolidation provide debt for home ,business and education etc.
  • Dental Insurance

    • Log Insurance
  • Guaranteed online personal loans

    • Guaranteed Online Personal Loans - fast-online-personal-loans.com


  • Guaranteed Online Personal Loans

    • Guaranteed Online Personal Loans - 123PersonalLoans.com
  • Gurgaon Residential Properties

    • Zameenzaidad.com - Find information about Real Estate in Gurgaon and great deals on Gurgaon Property.
  • Insurance Quote

    • Free insurance quotes. Be smart, save money and get low rates today. Providing you with the best quote for all your insurance needs.
  • Insurance UK

    • insurancelive provide insurance security.


  • Jacksonville Florida Real Estate

    • Jacksonville Florida Real Estate and Real Estate Investment in Jacksonville Florida by Middleton Realty.
  • Janet Jackson

    • Fascinating pictures and wallpapers are available here.
  • Mortgage Loans

    • Home mortgage loans from Halshomes.com.
  • Mortgage Refinance Loans

    • Mortgage Refinance Loans - TheRefinanceLoan.com


  • Personal Loans

    • Personal Loans - NeedPersonalLoan.com
  • Phentermine

    • Purchase Phentermine Online - Phentermine - Beta Prescription
  • Property for sale in France

    • Buying a property in France has been made easier as you can choose from an updated database of properties at http://www.amr4france.co.uk
  • Property in bulgaria

    • Property and land for sale in Bulgaria including apartments, villas and golf resorts


  • RealEstate-Calc.com

    • Online real estate calculation tools. Perform a 5, 10, or 15 year forecast of real property. Determine the ROI. Compare two mortgages using PV.
  • Refinance Mortgage

    • Refinance Mortgage - TheRefinanceUnit.com
  • Refinance Mortgage Rates

    • Refinance Mortgage Rates - bestrefinancehome.com
  • san marcos apartments

    • San Marcos apartments and rentals are easy to find in our database of apartments for rent in San Marcos, Texas.


  • Student Loans

    • Student Loans UK - loanslive.co.uk
  • Student Mortgage

    • Mortgage Live UK




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

    | 501 S Aspen Ave
    Broken Arrow, OK 74012-2296 | Direct : 918-406-7325
    Office : 918-259-8055

    Copyright 2007. All rights reserved.

    2007 Coldwell Banker Real Estate Corporation. Coldwell Banker is a registered trademark of Coldwell Banker Corporation. An Independently Owned and Operated Member of Coldwell Banker Real Estate Corporation. This information is believed to be accurate and true, however can not be guaranteed by the listing firm or agent and is not a substitute for any verification, inspection or warranty the purchaser may wish to obtain. An Equal Opportunity Company. Equal Housing Opportunity