<%@ 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() %> <% 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 '=============================== %>

FEATURED PROPERTIES

PROPERTY EVALUATION

BUYERS INFORMATION

Tim Abraham
Direct : 918-806-6295
Cell : 918-260-7325
Email Me

501 S Aspen Ave
Broken Arrow, OK 74012-2296

Call Direct : 918-806-6295 Cell : 918-260-7325

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

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.	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-806-6295
Cell : 918-260-7325

Copyright 2007. All rights reserved.

2007 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