<%@ 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: Education_Real_Estate.asp '------------------------------- ' Education_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Education_Real_Estate" pageName = "Education_Real_Estate" Session("expired") = "No" %> <% ' Education_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 = "Education_Real_Estate.html" sTemplateFileName = "Skin/Education_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Education_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")) ' Education_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Education_Real_Estate Close Event begin ' Education_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() SetVar "BrokerName1",Session("BrokerName1") SetVar "BrokerPhone1",Session("BrokerPhone1") SetVar "BrokerEmail1",Session("BrokerEmail1") if session("BrokerName1") <> "" then setVar "FullName",session("BrokerName1") if session("BrokerName1") <> "" then setVar "OwnerName",session("BrokerName1") if session("BrokerEmail1") <> "" then setVar "Email",session("BrokerEmail1") if session("BrokerPhone1") <> "" then setVar "Phone",session("BrokerPhone1") %> <% If LoadedPage <> "" Then SetScript "PutYourContentHere",LoadedPage Else If Request("Education_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


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

Tulsa Real Estate is what I specialize in as your Tulsa Real Estate Agent.
If you are looking for Tulsa Real Estate, you've come to the right place.
Our Tulsa Real Estate office specializes in Tulsa area real estate.
Thank you for taking the time to visit my Tulsa Real Estate website.
Feel free to use my Tulsa area search. Search Tulsa Real Estate Now!

 
  • 12 Hour Traffic School

    • Florida 12 hour Traffic School Course is the easiest and fastest way for completing your state or court required advanced driver improvement Course,dismissing your traffic ticket or helping you to r
  • California Traffic School

    • Taking California Traffic School online course enables you to get rid of your traffic ticket and attain insurance discount. The CA traffic school online course is approved by the state of California District Motor vehicle.
  • Career Education

  • Cheap Drivers Ed

    • Cheap Drivers Ed, Driver Education offers hassle free DMV Approved Teen Driver Education in CA, CO, FL, GA, NV, OK, PA, TX and Virginia states and get your first time drivers license, learners permit


  • Defensive Driving Course Ohio

    • Ohio Defensive Driving is the best way to complete a court or judge-ordered Ohio Defensive Driving Course; course also provides great savings for the drivers from their auto insurance company.
  • DMV Practice Test

    • DMV Practice Test - With the cooperation of Department of Motor Vehicles (DMV), we accumulated a long list of the most used questions from their written exams and pooled them into random samplings of 50 questions or 100 questions packages. Our DMV Practice Test can be used as an online study guide.
  • Lose Accent

    • Welcome to Lingual Arts! Through our extensive intonation, accent modification or reduction and American pronunciation exercises helps Utah corporations & business professionals to reduce their regional accent.
  • Massage Schools

    • Holistic Junction is your source of information for Massage Schools and Naturopathic Schools; Insightful literature, and so much more!


  • MCSE Training

    • Complete training news for Microsoft CompTIA and Cisco certifications.
  • New Jersey Driving Record

    • Need a copy of state approved New Jersey driving record? Get Your New Jersey Drivers Record Fast and Easy. By I DRIVE SAFELY you can get your New Jersey Driver License Record almost immediately.
  • North Carolina Traffic School

    • North Carolina Traffic School -North Carolina online traffic school course @ 8 hours is easy Convenient. JOIN the DMV/court approved Traffic School course to dismiss traffic ticket and keep your insurance rates low.
  • Online Defensive Driving Course

    • Defensive Driving - I DRIVE SAFELY offers easy, simple and hassle-free defensive driving courses for traffic tickets dismissal and insurance discounts.


  • Seduction, Dating, & Pick-Up - The Mystery Method Way

    • Learn about Seduction, Dating, and how to be a Pick Up Artist. The Mystery Method will give you all the skills you need to be a successful pick up artist.
  • Texas Defensive Driving

    • Texas Defensive Driving Course - An online defensive driving course provider in Texas, approved by the TEA, provides Traffic ticket, Insurance Discount and Seat Belt Online Courses.
  • Texas Defensive Driving

    • Texas Defensive Driving Online - Texas defensive driving is approved by the state of Texas and Texas Education Agency (T E A) to offer online defensive driving courses.
  • Texas Driver Education

    • Texas Driver Education. Take Driver Ed Online course at 30 hours easy DMV approved. Join Texas Driver Education Course for taking Driver License Online or DMV learners permit.


  • Traffic School Online

    • Traffic School Online - Ticketerasers.com offers state approved Defensive Driving, Traffic School, Point Reduction and Driver Improvement Courses
  • Traffic School Online

    • Traffic School Online - Ticketerasers.com offers state approved Defensive Driving, Traffic School, Point Reduction and Driver Improvement Courses
  • U.P.T.U.

  • Ventura Traffic School

    • Ventura Traffic School the simplest solution to dismiss your traffic ticket. Ventura County Approved Traffic School process the Certificate of Completion the moment you finish the California court.


    		  


    Equal Housing Opportunity - MyTulsaHomes.com 2005 All Rights Reserved - Login  - Privacy Statement
    Real Estate Web Site Design

    Tulsa Real Estate