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


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

Vienna Real Estate

PremiereMetro Realty, LLC

USERNAME

PASSWORD
  • 1031 Exchange - TIC

    • A leading 1031 exchange and TIC service provider with expertise in 1031 exchange rules and finding 1031 replacement properties. We provide guidance on Tenant in Common investments and 1031 Property exchanges.
  • Acreage Horse Keeping Small

    • Exclusive Horse communities promoting a simpified Lifestyle.
  • Dallas Real Estate

    • Our Dallas Real Estate website is designed to assist you with your Dallas TX real estate needs.
  • House Flipping

    • Learn the process of real estate flipping and how to maximize your profits.


  • Houston Apartment

    • Find a Houston apartment using A1 Apartment Locators. The site makes it quick and easy to find a Houston Apartment. Let A1 with your Houston Apartment search today.
  • Houston Apartment Guide

    • Houston Apartment Locator offers apartments for rent in Houston area and listings of Houston, TX apartments for rent. Get personalized assistance from experienced Houston apartment locator.
  • Houston Texas Apartment Rentals

    • Apartment Locator Houston Texas offers Apartments for rent in Houston area and listings of Houston, TX apartments for rent.
  • Katy Texas Home For Sale

    • Those who own a Katy Texas home for sale should talk to our real estate office. Let Joe Rothchild worry about your Katy Texas home for sale and you can worry about what you are going to do with the money.


  • Miami Beach Florida

    • Miami Beach condo expert, New Miami Beach Condo, Luxury condo Miami Beach ,Miami Real Estate,Miami Beach Home , Miami Home Buying, Miami Real Estate For Sale By claudiorivero.com
  • Miami Real Estate

    • We specialize in representing our clients in the purchase and sale of Condominiums, single-family residences and income property within the cities of Miami real estate.
  • Northern California Real Estate

    • We offer a wide range of Real Estate services like Redding Homes for Sale in Northern California, shasta, tehema to assist you throughout your home buying, selling and relocating process.
  • Palm Springs Home Finders

    • Palm Springs Real Estate By Palmspringshomefinders.com


  • Palm Springs Home Finders

    • Palm Springs Real Estate By Palmspringshomefinders.com

    2004 Vienna Real Estate

    Home        About        Vienna        Free Reports        Free Forms        Contact        Links        Search



    Equal Housing Opportunity - Vienna Real Estate 2003 All Rights Reserved - Privacy Statement