<%@ 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_Area_Schools_Real_Estate.asp '------------------------------- ' A_Guide_to_Tulsa_Area_Schools_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "A_Guide_to_Tulsa_Area_Schools_Real_Estate" pageName = "A_Guide_to_Tulsa_Area_Schools_Real_Estate" Session("expired") = "No" %> <% ' A_Guide_to_Tulsa_Area_Schools_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_Area_Schools_Real_Estate.html" sTemplateFileName = "Skin/A_Guide_to_Tulsa_Area_Schools_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_Area_Schools_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_Area_Schools_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' A_Guide_to_Tulsa_Area_Schools_Real_Estate Close Event begin ' A_Guide_to_Tulsa_Area_Schools_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_Area_Schools_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","

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

Bishop Kelley High School The mission of this school is to provide a quality, Catholic education founded on the teachings and values of Jesus Christ. Bishop Kelley High School strives to develop individual hearts and minds committed to the service of others by caring for the integrated needs of the whole person-spiritual, academic, emotional, physical, and social. Such an education is a cooperative endeavor available to each student regardless of creed, race, sex, or economic status.	Bixby Public Schools A suburban school serving Bixby, parts of south Tulsa, and parts of Broken Arrow. Our vision is for Bixby Public Schools to be the best in Oklahoma. Our mission is to provide educational excellence for all members of our school community.	Broken Arrow Public Schools MISSION STATEMENT "To provide all members of the school community an environment that assures intellectual, social, physical and character development appropriate for citizenship in an ever-changing world."	Cascia Hall Cascia Hall Preparatory School in Tulsa, Oklahoma is a Catholic school for students of all faiths, founded in 1926 by the Order of Saint Augustine.

Heritage Academy Heritage Academy is a Jewish Community Day School that seeks to provide all students with an outstanding education in both general and Judaic studies. Heritage Academy maintains a supportive yet challenging atmosphere that fosters a lifelong commitment to learning and to the imperative of Tikkun Olam, repairing and caring for the world.	Holland Hall School An independent, coeducational, college-preparatory Episcopal day school educating more than 1000 students	Jenks Public Schools One of the most highly rated public school districts in the state of Oklahoma. Jenks Public Schools, inspired by a tradition of excellence, is committed to the shared responsibility of preparing all learners for productive, responsible citizenship in an ever-changing world.	Metro Christian Academy Metro Christian Academy is a fully accredited P3 - 12th grade Christian emphasis college preparatory school located on 40 acres in the heart of Tulsa, Oklahoma. Our philosophy is to provide children a Christ centered learning environment and programs that will enable students to achieve their fullest potential.

Northeastern State University, Broken Arrow The only public 4-year university in Tulsa/Broken Arrow offering more than 25 undergraduate degrees and 10 graduate degrees	Oral Roberts University Oral Roberts University was founded as a result of the evangelist Oral Roberts' obeying God's mandate to build a university on God's authority and the Holy Spirit. Oral Roberts University is a charismatic university, founded in the fires of evangelism and upon the unchanging precepts of the Bible.	Owasso Public Schools A suburban school district to the north of Tulsa	Tulsa Community College Tulsa Community College is the largest two-year college in Oklahoma and the only one to operate a four campus system.

Tulsa Public Schools The largest school district in the state of Oklahoma	Union Public Schools A popular school district that serves part of southeast Tulsa and part of Broken Arrow	University of Tulsa A private university, founded in 1894, affiliated with the Presbyterian Church