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

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

Renee Kaplan
7307 S. Yale
Tulsa, OK 74136
918-851-3146
Sold@reneekaplan.com

ABC's of Real Estate the ABC's of Real Estate - a consumer information web site loaded with real estate information and tools, located at www.realestateabc.com	America Real Estate Directory Real Estate Directory	California Real Estate Listings Search California Real Estate Listings on the MLS. Find an agent to represent you in your home purchase.	EstateCentralDirectory.com - The Online Real Estate Web Directory Real estate directory

Farms for Sale, Farm Land for Sale NC, VA: Carolina Farms Real Estate Choose Carolina Farms Realty for North Carolina farms, rural land and mountain properties for sale in NC and southern VA.	Find A Real Estate Agent The premier place to find a real estate agent in your city!	Find A Real Estate Broker Easily find a real estate broker with our easy navigational site. We'll help you buy or sell your home.	Florida, Illinois, Texas, Homes Condos Waterfront For Sale Real Estate On The Internet provides comprehensive listing information for all types of residential property along with lots and acreage. 60 descriptive terms, 35 large photos, virtual tours, and videos

High End Real Estate Buying or selling homes? Visit our luxury real estate website.	mortgagecenter.com - commercial mortgage and commercial real estate loan MortgageCenter.com specializes in working with professionals seeking commercial mortgages and real estate loans	National Home Search	Need A Real Estate Agent Do you need a real estate agent? We have agents in your area ready to help you. Visit our site to start buying or selling a home.

Need A Realtor We'll help you the most when you need a realtor in your area. We have ealtors ready to help you buy or sell your home.	Oklahoma Real Estate	Palm Beach Real Estate Venture Capital Estates is a Palm Beach State licensed real estate brokerage firm that provides services in Palm Beach, Manapalan, Hypoluxo Island and others.	Post Your Property.com PostYourProperty.com is a FREE property listing database for owners and agents.

Quantitative Marketing Research TechnovateResearch.com presently work with over 300 MBA, MA and PhD Professionals who are expert business proposal writing.	Real Estate and Home Related Business Directory Exchange Links with web sites related to Real Estate, Construction, House Plans, Home Decor, Mortgages, Insurance and other Home Related Businesses.	Real Estate Directory, Real Estate Guide, Realtor Information Provides Real Estate Directory and Realtor Information.	Real estate for sale by owner Find real estate in a location near you or worldwide

Real Estate Link Exchange Does your web site trade reciprocal links, or would you like to find other websites interested in trading reciprocal links? Visit our directory of Real Estate Link Exchange.	Real Estate News Directory Real Estate Portal Real Estate News Real Estate Directory	Real Estate Regional	Real Estate Resources and Directory Links and Information for Real Estate

Real Estate Traffic Exchange Directory Real Estate Traffic Exchange Real Estate Directory PPC listings	RealEstateAgencies.net Nationwide Real Estate Agent Search Engine	REALS - A Comprehensive Real Estate Directory A Comprehensive Real Estate Directory	RealtorSeeker.com - Online Directory of Real Estate Agents and Agencies Whether you are just moving across the street or relocating across the country, our directory can help by introducing you to some of the top real estate professionals throughout the United States.

RELO-EXPERTS.com - Directory of Real Estate Agents and Agencies Whether you are just moving across the street or relocating across the country, our directory can help by introducing you to some of the top real estate professionals throughout the United States and Canada.	Texas Real Estate Club Real Estate Investing Resources	Top RealEstate Real Estate Directory Top real estates - Real Estate Directory - Add your real estate business	US Real Estate Directory A directory of Top online Real Estate Agents in your state.

washington-real-estate-sales.com Washington Real Estate - Realtor Serving Home Buyers and Home Sellers throughout Washington State