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

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

Cherry Street The past is not forgotten on Cherry Street. Some values are timeless. Quality. Personal service. Hospitality. You?ll find it all in a seven block stretch of 15th Street only five minutes from downtown. Come visit us soon?we?re expecting you!	Drysdales Oklahoma's finest Western Wear Store. This 55,000 square foot store features 7 departments including men's and women's clothing, jeans, boots, children's wear, hats, jewelry, and souvenirs.	Garbes Garbe's offers one of the largest selections of lighting and home d?r accessories found anywhere. See hundreds of Tiffany lamps, classic chandeliers, contemporary high tech lighting designs, framed art, mirrors, ceiling fans and decorative hardware and much more.	Nielsen's Gifts Located at The Plaza at 81st & Lewis. Many gift and collector items including Lladro, Arthur Court, Faberge, Lalique, Hummel, Royal Copenhagen, Alexandra egg pendants, Swarovski, Waterford, Wedgwood.

The Plaza Located at 81st and Lewis. Discover a wealth of great shopping, dining, and entertainment. Features a number of very nice, locally owned shops.	Tulsa Promenade Located at 41st & Yale. Enjoy over 100 stores like Victoria's Secret, Charlotte Russe, Express, Bath & Body Works, The Gap, Gap Kids and baby Gap, Hot Topic, Suncoast Motion Picture Co., Gadzook's, EB Games and many more... And don't forget Dillard's, Foley's, JCPenney and Mervyn's.	Utica Square Located at 21st St. and Utica. Tulsa's most exclusive shopping center featuring Saks Fifth Avenue, Miss Jackson's, many exclusive shops, and fine dining. The village-like design was developed to be inviting to the customer without alienating neighboring residents.	Woodland Hills Mall Woodland Hills Mall is a 1.2 million square foot upscale, super regional shopping center. The center is anchored by Dillard's, Foley's, JCPenney and Sears. Woodland Hills Mall has over 165 fine stores including more than 80 stores you won't find anywhere else in Tulsa