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

90 Degree Screwdriver

SmartPro Tools is dedicated to the design and manufacture of quality hand tools that are both practical and effective for the do-it-yourselfer and the professional.
Atlantis and bahamas

Perfect for Families- The Villas at the Atlantis Resort on Paradise Island, Bahamas. Terrific Savings on these spacious Condos at the Atlantis Resort.
eastern caribbean cruises

Eastern Caribbean cruise deals discount and specials, Eastern Caribbean cruises on Carnival Cruise Lines, Princess Cruises, Royal Caribbean, Norwegian and Celebrity cruise ships from $249
Peru Holiday

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

Renew Passports

American Passport & Visa International offers expedited processing of US Passports and Travel Visas to individual and corporate travelers.
Sneakerpimps

The best place to find BMX Videos, Indie Rock, Tattoo Videos, Skate Videos, Fashion Videos, Wild Party Videos and Free Music Videos.
South Africa Travel

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

The Vaughn Team
931-245-6733 Office
Cell : 931-801-2195
contact@searchclarksville.com