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

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

Broken Arrow Sex Offender Registration What's the Law? -- By Federal Law, anyone convicted of a sex offense is required to register with the police department of the community in which he or she lives. Some of those sex offenders are required to register for life (Aggravated Sex Offenders).	Claremore Sex Offenders Sex offenders listed on the website of the Claremore Police Department	Nevada Incorporation Incorporate a Business in Nevada with Laughlin Associates.	Owasso Sex Offender Registration Information is located on the website of the Owasso Police Department

Registered Sex Offenders for Sapulpa From the website of the Sapulpa Police Department	Sexual Offenders in Bixby List is located on the website of the Bixby Police Department	Tulsa Sex Offenders Sex offender information is is made available to the public pursuant to Oklahoma Law which requires all convicted sex offenders to register their current address with the local law enforcement agency. The law requires agencies to make that information available to the public.	Unincorporated Tulsa County Sex Offenders Provided by the Tulsa County Sheriff's Department