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


" & Request("Realtors_-_Southern_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 '=============================== %>
      Home | Featured Listings | Free Reports | Free Forms | Financing | About | Local Info | Search | Login | Contact
  • Boca Raton Real Estate, Delray Beach Real Estate, Palm Beach County Real Estate, Marilyn Jacobs, Marilyn Farber Jacobs

    • The Premeire Website for Boca Raton Real Estate, Delray Beach Real Estate, Palm Beach County Real Estate. Luxury Homes Specialist Marilyn Farber Jacobs lists/sells homes and condos-C'mon down!
  • Cape Coral Real Estate, Ft. Myers Homes for Sale, Lee Country Relocation, Joan Dwyer Psarros

    • Real Estate in Cape Coral, Fort Myers, Sanibel, Captiva, Pine Island, Bonita Springs, and Lee County. Check out my Newsletter, community info, school info and more.
  • Fort Myers Beach Florida, real estate DEALS,street by street tour

    • Daily Fort Myers Beach Florida listing updates. Street by street tour EVERY STRUCTURE and more....
  • Huntsville Alabama Real Estate Relocation, Rentals, MLS Search Rental Management

    • Huntsville Alabama Real Estate Relocation Listings Rental Homes Property Management


  • Jacksonville Florida Real Estate

    • Access the North East Florida MLS and view the latest properties for sale. Get FREE reports for buyers and sellers. Learn about area schools and all that Jacksonville has to offer.
  • Key Biscayne & Brickell, Florida Real Estate

    • Professional Real Estate Services for Buyers and Sellers in the Luxury Markets of Key Biscayne and Brickell.
  • My Naples FL Real Estate

    • Helping buyers and sellers with Naples Realty. Single family homes, condo's and land. Golf course, gulf front, gated communities, waterfront and estates.
  • Naples Florida Real Estate and Homes

    • Search Naples FL and Bonita Springs in South West Florida for condo, villa and single family residential real estate along the Gulf / beach front areas and in planned communities with equity and bundled golf and tennis. Naples Real Estate and Naples FL Homes.


  • Naples Real Estate, Naples Florida Real Estate, Naples FL Real Estate, Naples Real Estate Agency - South Bay Realty Group

    • Naples Florida Real Estate and Vacation Rentals. Located in Naples at Vanderbilt Beach. All types of sales, rentals, investment real estate supported by our experienced staff of real estate agents.
  • Punta Gorda Port Charlotte Florida Homes Lots Sales New Construction Southwest Florida Real Estate

    • Port Charlotte Florida Real Estate, Punta Gorda real estate, North Port and Southwest Florida Homes, Englewood real estate, Lots, New Construction, Deep Creek, Heron Creek, Punta Gorda Isles, Burnt Store Isles, Condos, Listings, Homes for Sale, land, neighborhood information, MLS, builders
  • St. George UT Homes for Sale & Real Estate by Diane Allen

    • St. George, UT real estate and homes for sale in Washington, Santa Clara, Ivins, and Hurricane. Search for listings. Get free real estate reports, a market analysis of your home, area and mortgage info.
  • Tampa Real Estate including Clearwater, St. Petersburg and surrounding communities.

    • Tampa Real Estate including new, resale, FSBO, luxury, golf course and waterfront homes in Clearwater, St. Petersburg and surrounding communities.


  • Tampa Real Estate. Homes for Sale in Tampa. Tampa Home Search. Thomas O. Mason (813) 431-4222

    • Tampa Real Estate - Tampa Bay real estate service with homes for sale in Tampa Florida, Clearwater, St Petersburg and surrounding communities.
  • Under a Mountain - Home Page

    • Compilation of Tampa Florida Real Estate links and Affiliate companies that I assist in Marketing their products on the Internet. Also contains interesting personal commentary from yours truly.
  • vicinitybeachteam.com

    • Beach Front property on the Gulf Coast is our Speciality!
    Equal Housing Opportunity - Seattle Real Estate 2003 All Rights Reserved - Privacy Statement