<%@ 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: Real_Estate_Consultants_Real_Estate.asp '------------------------------- ' Real_Estate_Consultants_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Real_Estate_Consultants_Real_Estate" pageName = "Real_Estate_Consultants_Real_Estate" Session("expired") = "No" %> <% ' Real_Estate_Consultants_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 = "Real_Estate_Consultants_Real_Estate.html" sTemplateFileName = "Skin/Real_Estate_Consultants_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Real_Estate_Consultants_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")) ' Real_Estate_Consultants_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Real_Estate_Consultants_Real_Estate Close Event begin ' Real_Estate_Consultants_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("Real_Estate_Consultants_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Real_Estate_Consultants_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 '=============================== %>

Your Fort Myers Golf Course Homes Expert!
 
Quick Links
 
 
Quick Search
 

 
Choose a City:
Price Range:
from
to
Beds:
Baths:

 

  
Golf Communities
 
 

  • Colorado Springs Subdivisions

    • COLORADO SPRINGS REAL ESTATE & RELOCATION, REMAX, Free Buyer Assistance & Military Rebate, Monument, Black Forest, Fort Carson, Peterson AFB, Cheyenne Mountain, AF Academy, NORAD, NORTHCOM, Manitou
  • Edmonton Real Estate

    • Edmonton-Home.com, your number 1 source in Edmonton for Re Max Real Estate Investments, Commercial Agents, Property Listings, Remax Realty, and Edmonton Real Estate Board.
  • Gavish

    • Gavish Real Estate.com here for you in Las Vegas for - New Luxury Home For Sale, North Las Vegas Nevada Real Estate Agent, Las Vegas Nevada Realtor & more
  • Lakewood Ranch

    • Welcome to the best source for Sarasota MLS and Bradenton MLS for searching for homes in Sarasota Florida and Bradenton Florida, as well as terrific Sarasota Information, Sarasota County property se


  • Las Vegas Real Estate

    • Welcome to the Las Vegas Homes MLS Search this will be the only tool you will need to find the best value that meets your criteria .We provide free listings of Las Vegas Homes MLS Search For Sale,
  • Real Estate Agent Fort Lauderdale

    • We specialize in representing our clients in the purchase and sale of Condominiums, single-family residences and income property within the cities of Miami real estate, South florida real estate, Mi
  • Redding Homes For Sale

    • We offer a wide range of Real Estate services like Redding Homes for Sale in Northern California.
  • St George Utah Real Estate

    • Relocatetosunnystgeorge.com provides you with a wealth of knowledge for your journey through the world of Real Estate in Southern Utah, Luxury Homes St George Utah.


  • Wyoming Property

    • Welcome to Leisure-Propertiesinc.com, here you will find information about Land For Sale In Wyoming and Real Estate Wyoming Land.

    		 



        Equal Housing Opportunity - 2006 All Rights Reserved      

    RE/MAX Realty Group, 11821 Palm Beach Blvd., Fort Myers, FL 33905 |
    Each office independantly owned and operated.
    Fort Myers Real Estate Web Site Design