<%@ 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 *** '** FROM FILE ** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'Set fso = 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 '** REMOTE XML ** '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 '** REMOTE DATABASE ** 'Set Conn = Server.CreateObject("ADODB.Connection") 'Set Rs = Server.CreateObject("ADODB.Recordset") 'Conn.Open "Provider=sqloledb;" & _ ' "Data Source=216.127.88.120,2433;" & _ ' "Network Library=dbmssocn;" & _ ' "Initial Catalog=Accounting;" & _ ' "User ID=sa;" & _ ' "Password=buckler;" 'rs.Open SQL,conn,1,1 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing ' Set conn = CreateObject("ADODB.Connection") ' Set rs = Server.CreateObject("ADODB.Recordset") ' filePath = Server.MapPath("AdminMyStuff.html") ' conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filePath ' strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" ' Set rs = conn.Execute(strSQL) ' rs.Movefirst 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=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 '=============================== %>

Tom and Patty Skeba

6070 N Federal Hwy

Boca Raton, FL 33487

561-212-6469

Home | Contact | Sitemap

South Florida - Homes Real Estate

Buyers | Sellers | Reports | Forms | Home Valuation | About | Local Info | Search | Login | Contact

123ink 123Inkjets is dedicated to bringing you high quality inkjet printer cartridges & laser toner, photo paper, and other inkjet printer supplies at a great savings.	BrowardLimo - Miami Limousine Services BrowardLimo offers limousine transport services to airports across South Florida.	Campo de Noche Canad small> Welcome to Slumber-Camp.com, here you will find information about Jud Campo De Noche Ontario, Summer Camp for Kids, Campo De Verano Canad	casino on line Europa Casino no dei pi i e sicuri tra i casin line esistenti nel web. Con la pi ia scelta di giochi: blackjack, slot machines, roulette, video poker, craps.

Holiday Villas - Vacation Villa Rentals Villas to go offers a comprehensive range of vacation properties like villa holidays and holiday accommodation, holiday apartment, apartments to rent, villas for rent, holiday cottages. Book online or call our friendly villa team.	Miami Limousine Airport Services We offer Limousine services in Miami, Ft Lauderdale, Boca Raton, West Palm Beach	Miami Limousine Airport Transportation Miami Limousine Service Proudly Offers Limousine Services in Miami, Fort Lauderdale, West Palm Beach, Boca Raton	Orlando to Port Canaveral Shuttle 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.

Orlando Villa Rentals Unique Florida Offers Luxury Orlando Vacation Home Rentals At Extremely Affordable Prices; Located Minutes From Disney World. Compared To Hotel Accommodations, We Offer Fully Equipped Florida Vacati	Printer Cartridges 123Inkjets is dedicated to bringing you high quality inkjet printer cartridges & laser toner, photo paper, and other inkjet printer supplies at a great savings.	Relaxation spa gifts Blissful Balance will help you find the best SPA Gifts and SPA Gift Baskets.	Tailor made holiday south africa Exclusive South African tours customized for discerning travelers, including Cape Town, Kruger National Park, South Africa Safari, Travel South Africa, Private Tour South Africa.

Travel Nurse Rn Job 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	US Passport US Passport Services, step by step instructions and government forms to help you acquire your United States passport Apvi.net	Villas in Algarve - Algarve Villas - Holiday villas in the Algarve Villas in Algarve, many villas with private swimming pools for holiday rental. Book your Algarve villa holiday online with Villastogo.com

Buyers | Sellers | Reports | Forms | Home Valuation | About | Delray Beach | Search | Login | Contact

Equal Housing Opportunity - Delray Beach Real Estate 2003 All Rights Reserved - Privacy Statement