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


" & Request("Construction_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
  • BENQ-SIEMENS P51

    • Best-phones.net provides complete resource of all up-to-date information and reviews on BenQ-Siemens P51 Cell phone
  • Best Web Templates Solutions

    • It is the extended version of the standard Web Template.
  • casino bonus

    • Europa Casino is the most trusted and secured online casino on the web.
  • casino online

    • Europa Casino es el m?confiable y seguro casino en l?a de la red


  • casinos online

    • These casinos know how to treat all players like first class.
  • Fly Viagra

    • Find the information on erectile dysfuction treatment medicine at flyviagra.com
  • free poker

    • Honest, credible, and secure online poker games.
  • Full Suite of Web Templates

    • It is the extended version of the standard Web Template


  • Graffiti removal

    • Ethical Coatings are The UK and Irelands leading Facade Protection Experts. We specialise in Concrete, Brick, Stone and Anti Graffiti Coating Systems. We are specialist applicators of the world renowned PSS range of protective coatings.
  • pacific poker

    • Discover why Texas holdem is the most popular poker game in the world.
  • poker forum

    • No-limit and pot-limit games in Texas hold''em and single-table & multi-table tournaments & freeroles!
  • Rent a car

    • For car rental one has to pay the fees of renting a car.


  • Replica Rolex

    • Exactwatches.com helping you to find best quality Rolex Replica, Breitling Replica Watch, Best Imitation Rolex Replica and Cartier Replica Watches.
  • Thiet ke website, Thiết kế web, Thiet ke web,Thiết kế web,Thiet ke web,Quảng b?eb

    • Thiet ke website, Thiết kế web, Thiet ke web
  • Viagra

    • Buy cheap viagra at bigviagra.net
  • Web Templates

    • Web desinging tips and resources.





    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