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


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

 
  • "That Lil' Sew and Sew"

    • A site for ready made hand sewn dresses for girls. A site for custom sewing by experienced seamstress "That Lil' Sew and Sew".
  • Children & Teens

    • Articles about... Children & Teens, Public & Private Schools, School Uniforms, Personal Pages, Prom Guides, Kids Parties, Homework Tutorials, Craft & Arts, Child Safety, Family Activities, Correspondence Studies, Shopping Education & Reference.
  • Free Web Directory & Add URL Free

    • Free Web Directory & Add URL Free
  • Jane prams online

    • Jane Prams Online. Our pushchair ranges include Bugaboo including Jane Traveling Systems, Buy online.


  • Live Football

  • Mountain buggy pushchairs online

    • Mountain buggy push chairs online. Best prices for Mountain Buggy double - twin puschairs, buggies and strollers.
  • Oh How Cute Children's Boutique

    • From baby clothes to diaper bags, Oh How Cute Children's Boutique offers the most stylish designer infant clothing and children's fashions, as well as unique gifts for babies. Here you will find designer baby clothes, designer diaper bags, maternity fashions and room decor for babies and children. We carry a great selection of American and European designer brands for children by Baby Nay, Oink!Baby, Victoria Kids, Jen Jen, Luna Luna Copenhagan, Claesen's, and more! Whether you're looking for special baby shower gift ideas, unique gifts, or you're shopping for your own kids, you're sure to find something special in our children's boutique!
  • Red Exerciser

    • Red Excerciser.Net - you can select the optimal resistance level to achieve your strength training and weight loss goals


    		 


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

    Tulsa Real Estate