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

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

Big Splash Water Park Many water attractions for the whole family.	Discoveryland! Discoveryland presents Rodgers and Hammerstein's OKLAHOMA! in the Great Outdoors, complete with horses, wagons, and of, course, the surrey with the fringe on top.	Downtown Tulsa Hotels Find Hotels in Downtown Tulsa, OK!	Internet Phones Internet Phones ? Make Your Phone Bill Shorter!

Oklahoma Aquarium An aquarium located on the Arkansas River in Jenks, OK, just outside of Tulsa	Tulsa Drillers Official website of the Tulsa, Oklahoma Drillers minor league baseball team	Tulsa Mayfest A variety of high-quality artists from all corners of the nation flock to Tulsa May 15th through May 18th in Downtown Tulsa for the 31st annual Mayfest, to showcase an extensive selection of artistic talent.	Tulsa Oktoberfest One of the largest Oktoberfest festivals in the world

Tulsa Riverparks More than 20 miles of asphalt-surfaced recreation trails weave past picnic areas, playgrounds, fountains and sculptures.	Tulsa Talons Champion indoor arena football team!	Tulsa Zoo Tulsas zoo located in Mohawk Park	Web Templates Web desinging tips and resources.

Will Rogers Memorial Museum and Birthplace Ranch Located in Claremore, OK, 30 minutes NE of Tulsa. Museum has 9 galleries, 3 theaters, fine art, children's museum, interactive TV, family tomb. Ranch has Will Rogers' birthplace, vintage barn, RV hook-ups, picnic area, farm animals, Texas longhorn cattle.