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


" & Request("Travel_&_Vacations_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 Free Reports Financing Buyers Sellers Free Home Evaluation
Property Search Tools Relocation About Marco Island About Us Contact Us




  • Apply For A Passport

    • US Passport Services, step by step instructions and government forms to help you acquire your United States passport Apvi.net
  • Atlantis paradise island vacation

    • Perfect for Families- The Villas at the Atlantis Resort on Paradise Island, Bahamas. Terrific Savings on these spacious Condos at the Atlantis Resort.
  • Cape Cod Cottage Rentals

    • Cape Cod vacations, cape cod tourism information, cape cod lodging, cape cod dining, cape cod bed breakfasts, cape cod B&B, cape cape cod weddings, cape cod beaches, cape cod towns and cape cod chur
  • Chichen Itza

    • The Mayan Gate is an online tool for all those travelers seeking the best activities to fulfill their desire to get to know the ancient Mayan world while on vacation to this wonderful touristic area


  • Fort Lauderdale Limousine Rental

    • FLA-LIMO.com is dedicated to providing world-class Limousine Service throughout Florida including Miami and Fort Lauderdale.
  • Maui Kamaole

    • Look no further for the best deals on Hawaii Flights and Vacation Packages to all the most beautiful and relaxing destinations that Hawaii has to offer.
  • maui sightseeing

    • Are you looking for Hawaii Circle Island Tours, Hawaii Island Tours, Hawaii Island Tours, Hawaii Tours Get your travel information at Polynesian Tours!.
  • Motorcycle Parts

    • BTO SPORTS - Motocross gear, parts and accessories distributor - Online Motocross Store - We offer some of the most competitive prices in the industry.


  • Relaxation spa gifts

    • Blissful Balance will help you find the best SPA Gifts and SPA Gift Baskets.
  • Travel Nurse Company

    • Advantage RN is a specialty healthcare staffing company dedicated to helping health professionals find compatible travel nurse assignments at hospitals and other medical facilities across the countr


    About Us     ? Financing ? Calcuators ? Site Map ? Featured Listings ? Interest Rates
    Testimonials ? Relocation ? Buyers ? Sellers ? Login

    Marco Island and Naples Real Estate   870 Bald Eagle Drive   Marco Island, FL 34145   239-394-2500