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


 



      Scott Thompson, Your Trusted Advisor  (510) 410-2003
  • Argentina Vacation

    • Our goal is to provide you with a worry-free trip and to design your upcoming trip to Argentina as one of your most memorable travel experiences ever!
  • bargain holidays

    • Bargain holiday deals online unbeatable bargain holiday prices save Save by going abroad this summer.
  • casino

    • Online Europa Casino is the #1 in entertaining Online gambling that offers the most generous bonuses, promotions and highest pay- outs in the industry.
  • Cheap Hotel Rates

    • The website offers Cheap Accommodation all around the world.


  • Cruise Last Minute Deals

    • Visit here to subscribe our newsletter related to Europe tours Toronto, cheap flights to Paris, air travel agent Brampton, cheap airlines
  • Expedited Passport renewal

    • US Passport Services, step by step instructions and government forms to help you acquire your United States passport Apvi.net
  • Grand Canyon Air Tour

    • Skip the Strip with Grand Canyon tours and Hoover Dam tours - or one of our Grand Canyon weddings. Explore Grand Canyon tour options.
  • Himachal Pradesh Tours

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


  • Hoteles baratos

    • Hoteles baratos with dimehoteles.es
  • India travel ideas

    • India Travel Ideas : Find best travel ideas and tips to spend your vacations with family, kids, and friends. Offers india travel ideas, India tourism
  • Italy Tours

    • QueensLander Tours provides tours of Italy, Tuscany, Venice, Florence, Rome, Australia, and other world destinations.
  • jack styris

    • Kindly link back to our site with the following details: Title: Walt Disney World Ticket Desc: Walt Disney World? Theme Parks where magic and wonder go hand in hand! Your favorite Disney Characte


  • kenya kidnap

    • Honeymooners looking for an exotic beach location to spend their honeymoon at should look no further than the coast of Kenya.
  • LA Honda Dealer

    • Team Honda in Baton Rouge, Honda Parts and Honda Services to Baton Rouge. Get latest information about Baton Rouge Honda Dealer, Pre Owned Honda and New Vehicle Inventory LA, Honda Fit, Honda Accord
  • 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.
  • New Orleans Travel

    • NewOrleans.Com | Featuring New Orleans news, New Orleans Sports news, New Orleans music news, New Orleans dining, New Orleans travel,New Orleans restaurants, and New Orleans attractions, we are a gr


  • New Toyota Car For Sale

    • Visit the Official Site of Team Toyota, Selling Toyota in Baton Rouge, Louisiana and Serving Baton Rouge, LA. 1788 O''neal Lane, Baton Rouge, Louisiana 70816.
  • Nissan Used Cars

    • Eric Hill Nissan New Orleans Louisiana area Nissan new and used cars, trucks, SUVs.
  • Package Holidays

    • Book a luxury package holiday in a quality, exotic location now!
  • Peru hotel

    • 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


  • Peru Vacation Packages

    • Peruforless.com is incorporated in the US with additional offices in Lima, Cuzco and Buenos Aires, Peru vacation packages available in the country
  • Replica Rolex

    • View our online porch for best quality of Rolex imitations and purchase the lone you in the vein of.
  • Replica Rolex

    • You tin assume our army for best anthology of Rolex imitations and replicas.
  • Self Catering Ski Accommodation from Chalets to Go

    • Make Chalets to Go your preferred ski holiday booking agent.


  • Self catering ski chalet - Self Catering Ski Accommodation

    • Self catering ski chalet - Les Arcs area. Large ski chalet for family. Ideal family ski chalet with proper self catering ski accommodation.
  • South African Safari

    • Exclusive South African tours customized for discerning travelers, including Cape Town, Kruger National Park, South Africa Safari, Travel South Africa, Private Tour South Africa.
  • South America Travel

    • Brazil For Less does not mean budget travel; it means budget-conscious travel for those who want the most value for a reasonable price.
  • Summer 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.


  • Tour vietnam, vietnam tour, indochina tour, tour indochina, vietnam travel agency

    • Being one of the leading online booking websites, www.vietnamtouroffer.com''s mission is to give a new image of Vietnam, Laos & Cambodia in its renovation.
  • Tours In Turkey

    • We are specialized and well organized all around Turkey. We have our own offices in Istanbul, Cappadocia & Ankara and cooperated tour operators in Ephesus, Antalya, Pamukkale etc.
  • Toyota Service San Diego

    • Toyota of Poway is a San Diego, CA Toyota Dealership located in Poway, California.
  • Travel vietnam, vietnam tour, vietnam hotel

    • www.Vietnameasytravel.com is one of the top tour operator in Vietnam. About hotels, rooms, tours, cars wholesalers around the Vietnam. We organize domestic tours throughout Vietnam and and outbound tours all over the world.


  • Usb Kvm On Cat5

    • Crystal Image Technologies offers a great line of rack monitors for your business with optional USB KVM and IP KVM as well as Cat5 KVM.
  • Vacation By Owner

    • Landscaping the world with beautiful vacation rentals. We offer by owner homes, condos, cabins, villas and more in destinations worldwide.
  • Villa Vacations

    • WIMCO is the leading Caribbean luxury villa vacation and boutique hotel reservations specialist.
  • Villas in Italy

    • Italy villas to rent. Choose from 151 villas in Italy many villas with private pools. Flexible start day. Book your Italy villa holiday online with Villastogo.com
    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.