<%@ 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() 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("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

  • Cancun Travel Discount Package

    • 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
  • Capecod

    • 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
  • Cheap Auto Insurance Quotes

    • Free insurance quotes, get one today! Compare online auto insurance quotes from top companies.
  • Costa Rica Tours

    • Costa Rica for Less helps you to find the lowest rates on costa rica travel deals, Costa Rica Vacation Packages and Costa Rica Tours.


  • Educational Tours

    • Searching for Affordable educational tours, senior class trips or student travel services? Visit or Call Toll-Free 877-397-5700 to save money and time.
  • Express Passport

    • American Passport & Visa International offers expedited processing of US Passports and Travel Visas to individual and corporate travelers.
  • Las Vegas Bus Tour

    • Skip the Strip with Grand Canyon tours and Hoover Dam tours - or one of our Grand Canyon weddings. Explore Grand Canyon tour options.
  • Latin America Vacation

    • Simply Latin America is a small team specializing in custom-made tours to all the countries of Central and South America, from Mexico to Patagonia.


  • Los Cabos Map

    • Mexico MAPS loaded with more than US$250 worth of COUPONS for the best dining, adventure, shopping and entertainment spots in Mexico
  • Mentawai Islands Surfing

    • Need information on Mentawais travel islands, mentawais Waves islands, mentawais Fishing Islands, Mentawai Islands Surfing, Mentawai Indonesia Surfing Find it now at huey.com.au
  • Motocross Graphics

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

    • Olson Powersports.. We Carrie the full line of Kawsaki Motorcycles, ATVs, UTVs and watercraft.Check out our used inventory of Suzuki, Honda, and Yamaha products.


  • Motorsports Camp

    • At Pali Adventures, your toughest choice will be what not to do! Choose from 19 specialty adventures, as well as afternoon electives and evening activities.
  • New Zealand holiday homes

    • Contact us to book one of our beautiful holiday homes today. Waiheke holiday houses and holiday apartments, we do all types of luxury accommodation.
  • Paving Bricks

    • Pacific Pavingstone is the leading paving stone driveway and patio installation company in the Southern California area.
  • Peru Travel

    • Peruforless.com is incorporated in the US with additional offices in Lima, Cuzco and Buenos Aires, providing all tours, trips related to Machu Picchu vacation, Peru vacation packages available in th


  • Summer Camps

    • At Pali Adventures, your toughest choice will be what not to do! Choose from 19 specialty adventures, as well as afternoon electives and evening activities.
  • Teen Driver Education

    • DriversEDonline.com offers a variety of Online Driver Education Classes and even some educational driver education online games available for California, Florida and Texas.
  • Tour Brazil

    • Brazil For Less does not mean budget travel; it means budget-conscious travel for those who want the most value for a reasonable price.
  • Tour To Vietnam

    • Vietnam Tours Online is the best website to visit if you are interested in Vietnam Travel, Vietnam Tours, Vietnam Holidays, Vietnam Tour Operator and Tour to Vietnam.


  • Trekking Tours

    • Tours operators in india, leading travel and tours agents, hotels and cities guide of india
  • Virgin Islands Vacations

    • Villa Rentals By WIMCO - Villa rental specialists throughout the Caribbean, Italy, the French Riviera, Greece and Morocco.