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


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


 



      Scott Thompson, Your Trusted Advisor  (510) 410-2003
  • Building Contractor

    • Build Team is a professional contractor that specialises in design and build, as well as maintenance and refurbishment of both residential & commercial properties in London, UK. The best of quality
  • House builders in yorkshire

    • Nest Egg Development builders undertake all manner of construction projects including speculative housing, commercial refurbishments and numerous large and small scale domestic building projects.
  • keyloggers

    • Browse through the comprehensive selection of keyloggers available online at SoftActivity to track your home PC or office LAN activity.
  • Lease Management

    • Maximize your profitability by minimizing the costs of maintaining your portfolio with Property Works lease administration and property management software.


  • Panama City Real Estate

    • We are your one-stop fully licensed resource for all your property needs in Panama for both sales and rentals. We have fully staffed offices in both Boquete and Bocas Del Toro in addition to Panama City for nationwide coverage. We look forward to assisting you in fulfilling your dreams and visions here in beautiful Panama
  • Rent Warehouses

    • Samuel L. Bryant Investments has over 5 decades of experience providing Houston office warehouse space for lease at affordable rental rates. Contact us at 713-660-6000!
  • Residential property management software

    • EasyProp Residential property management software stores information regarding your properties, tenants, rentals in NSW, Far North Coast, Coffs Harbour, Newcastle, Central Coast, Hunter Valley, Sydney, Blue Mountains, Wollongong, South Coast, New England, Outback NSW, ACT, Riverina, Southern Highlands, Snowy Mountains, Murray River, all over Australia
    Property Spotlight

    1 of 1 photos
    OAKLAND For Sale
    $878,000
    4 Beds / 2 Baths
    Multi-family Property, Area: Oakland Zip Code 94610, County: Alameda, Approximately 0...
    more >>
    View All Our Picks >>

    Oakland Real Estate Agent
    Scott Thompson
    (510) 410-2003
    Let me help you relocate to a new home or property in Oakland, Piedmont, Berkeley, San Leandro and Alameda as well as the Montclair, Crocker Highlands and Alameda County county areas. I can direct you to a church or synagogue, public or private schools, golf courses, recreational facilities, cultural events, or a hotel. I can provide you with local news, maps, city info, city statistics, and more -- everything you need to become familiar with all aspects of the greater Oakland metropolitan area.