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

" & Request("Furniture_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 '=============================== %>

Chiropractic Supplies ChiroBuys.com is your source for the best prices on New and Used Chiropractic Equipment and Supplies including Adjusting Tables and Roller Tables!	Control Center Console ImageVision is a global supplier of industrial strength operator consoles available at affordable prices with modular components allowing their use in a wide variety of applications.	Fireplace Glass Burner All Backyard Fun was created to open doors to a whole new world of backyard and patio additions.	Hinge HomeHardWarePlus is dedicated to providing customers with quality Commercial Door Hardware, Door Knobs, Door Locks and Discount Cabinet Hardware.

Office Chairs Modern Office is known for offering a large selection of office furniture from over 100 manufacturers at discount prices	Stacking Chairs Integrity Furniture offers the best selection in seating, folding tables, bulletin boards, mobile cafeteria tables and staging equipment.	Unassembled Cabinets Texas Kitchens Pro is your online one-stop-shop for Ready To Assemble Kitchen Cabinets at Discounted Wholesale.

Free Reports | Free Forms | Financing | Local Info | Search | Partners | Login | Contact | Tools | | Relocation