<%@ 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     Featured Listings    Financing     About     Local Info     Search      Login    

 
 



  • 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
  • Catch Trophy Size Walleye

    • Northwesrern Ontario family vacation resort, on Separation Lake.
  • Ek Balam

    • 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
  • Expedited Passport renewal

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


  • Hotels Boothbay Harbor Maine

    • Beach Cove Hotel & Resort, the only sandy beachfront hotel and resort in the Boothbay Harbor Region.
  • Hotels in Ibiza

    • Hotels Und Appartements In Ibiza, Lastminute Angebote Ibiza, Hotels Ibiza by Grupoplayasol.com
  • Msr Racing

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

    • Ace Luxury Transportation Inc is committed to excellence and superior quality in ground transportation such as Limo, Shuttle and Transfer Service from the Orlando Airport to Port Canaveral.


  • Overnight Camp

    • Residential summer camps Ontario, child summer camps Ontario and many types of such summer camps provided by summer-camp-ontario.com.
  • Overnight Camp

    • Overnight Camp, Overnight Camp Ontario, Jewish Overnight Camp by SummertimeCamp.com
  • Overnight Camp

    • Summer Camp, Summer Camp for Kids, Summer Camps By sleepover-camp.com.
  • Passport Agency

    • RushPassport.com is a full service passport, visa and vital documents expediting company and Information Agency that secures US Passports, Passport Renewals.


  • Peru Hotels

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

    • Peruforless.com is incorporated in the US with additional offices in Lima, trips related to Machu Picchu vacation, Peru trips, Peru vacation packages ava
  • Pool Safety Device

    • Welcome to PoolBarrier.com, Pool Barrier Inc. manufactures and distributes Pool Barrier? child resistant safety fence not only throughout the United States, but from the deserts of the Middle East
  • Self Drive Tours Okavango Delta

    • We arrange tailor-made tours and trips to suit your requirements for Cheap Family Beach Vacations, Caribbean Adventure Tours, Custom African Luxury Vacations.


  • Trips To Peru

    • 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.
  • Westin Kaanapali Ocean Resort Villas

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

    		 
       

    		  


    Home    Free Reports     Featured Listings    Financing     About     Local Info     Search      Login

    Equal Housing Opportunity - St Simons Island Real Estate ?2008 All Rights Reserved - Privacy Statement