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


" & Request("Realtors_-_East_Coast_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 '=============================== %>
    Direct Email :
    Abraham.Janet@gmail.com
HOME PAGE
SEARCH LISTINGS
    BY COMMUNITY
FEATURED PROPERTIES
BUYERS INFORMATION
SELLERS INFORMATION
REAL ESTATE TOOLS
CODE OF ETHICS
COMPARE CITIES
MISSION STATEMENT
GOTTA SEE THIS
LIST YOUR PROPERTY
HOMESTEAD
ABOUT
CONTACT
LOGIN
Janet Abraham
Direct : 918-406-7325
Office : 918-259-5214
Email Me
501 S Aspen Ave
Broken Arrow, OK 74012-2296
 

Phone Direct : 918-406-7325 Office : 918-259-5214
  • 642-532

    • Cisco has made their name due to the value and the rewards their certificates bring.
  • Alanya Villa

    • Turkish Property World is a single source of free information about Turkey; it''''''''s regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.
  • Antalya Villa

    • Turkish Property World is a single source of free information about Turkey; its regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.
  • Belek Villa

    • Turkish Property World is a single source of free information about Turkey; it''''''''s regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.


  • Best virtual server

    • Get ready for the best in the business.
  • CGI Script Guides

    • Best site for CGI Programming Guides.
  • Fethiye Villa

    • Turkish Property World is a single source of free information about Turkey; its regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.
  • Fiber Optic Technology

    • Great place having information about Fiber optic technology.


  • Great Host

    • Planning to build a website, we are here to host you.
  • Hosting Zone

    • The best online hosting zone.
  • Kalkan Villa

    • Turkish Property World is a single source of free information about Turkey; its regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.
  • Kas Villa

    • Turkish Property World is a single source of free information about Turkey; its regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.


  • Kauai Property

    • We offer Big Island real estate, Maui property, homes in Oahu, Kauai properties, houses for sale Hawaii and real estate Hawaii.
  • Mammoth Mountain Rentals

    • Our focus at JetLiving.com is to make life easier, much richer and much more fun while you?re in Mammoth Lakes.
  • Mammoth Vacation Rentals

    • Our focus at JetLiving.com is to make life easier, much richer and much more fun while you?re in Mammoth Lakes.
  • Network Security Guides

    • Top 8 Tips for Wireless Home Network Security


  • Reliable hosting

    • Guidelines about the reliable web hosting.
  • Side Villa

    • Turkish Property World is a single source of free information about Turkey; it''''''''s regions the Turkish property market, legal issues and helpful advice on the best way to secure your dream home.
  • Unix hosting

    • The best unix hosting is here.




    FEATURED LISTINGS | FINANCING | REAL ESTATE TOOLS | MY BLOG
    MOVIES | NEWS | CONTACT | SITE MAP | HOME

    | 501 S Aspen Ave
    Broken Arrow, OK 74012-2296 | Direct : 918-406-7325
    Office : 918-259-5214

    Copyright ©2010. All rights reserved.

    ©2010 Coldwell Banker Real Estate Corporation. Coldwell Banker? is a registered trademark of Coldwell Banker Corporation. An Independently Owned and Operated Member of Coldwell Banker Real Estate Corporation. This information is believed to be accurate and true, however can not be guaranteed by the listing firm or agent and is not a substitute for any verification, inspection or warranty the purchaser may wish to obtain. An Equal Opportunity Company. Equal Housing Opportunity