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

Beds Please click now to view a huge range of Leather Beds, upto 60 per cent off, brought to you by Bed Supermarket, the number one supplier of Leather Beds in the UK . Brisbane Moving Anset removal are Brisbane''s leading removalist with competitive pricing and friendly service. Unlike many other removal companies, Anset offer a no scratch guarantee to ensure your move is as smooth as possible. Cedar Shake Siding Are you interested in cedar shakes shingles, cedar roofing, shingle siding and wood shingles? Direct Cedar Supplies is not only a manufacturer, but also a supplier. Church Chairs Integrity Furniture offers the best selection in seating, folding tables, bulletin boards, mobile cafeteria tables and staging equipment. Fireplace table Allbackyardfun.com is your source for Discount Backyard Furniture and Accessories such as Outdoor Fire Pit Tables, Wooden Furniture. Office Chair Mat Free shipping on Office Furniture, Office Desks, Office Chairs, Modern Office Furniture, Discount Office Furniture Computer Armoires, Home Office Furniture and Conference Tables. Remodels Kitchen We are a Design/Build company. Find out more about our services inside, including kitchen and bath remodeling contractor, custom homes, room additions and kitchen remodeling plans in San Diego. Sliding Folding Doors Yorkshire Find conservatory suppliers in Yorkshire. Also tips and advice on sliding folding doors, conservatory North Yorkshire, casement window Yorkshire. SPACIFY - Metal Bar stool Finding the perfect barstools, Counter Stools, swivel barstools, Kitchen Bar stools, Wood Bar stools, Metal Bar stool from Spacify. Treasure Chests Welcome to Trunks Depot, your one stop shop for all kinds of premium quality of most elegant trunks, metal footlockers, leather trunks, wooden trunks and storage cubes at incredible affordable price

Equal Housing Opportunity - Shreveport Real Estate 2003 All Rights Reserved - Privacy Statement Free Reports | Free Forms | Financing | Local Info | Search | Partners | Login | Contact | Tools | | Relocation