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


" & Request("Realtors_-_General_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 About Us Featured Listings MLS Search Buyers Sellers Area Information Contact
(706) 258-5524
Email Us

Find My Dream Home! What Is My Home Worth? Help Me Relocate!
  • #1 Fort Lauderdale Real Estate

    • Welcome to HomeTerra Real Estate Services Inc. We are very proud to host your interactive tour of South Florida''s finest homes and communities.
  • казино

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

    • ABK-Soft.net Will help you find the best Virtual Chat Script, Community Design, 3D Dating Chat Sites.
  • Business Card Printing

    • Printdirectforless.com is the online resource for guaranteed Lowest Prices for Business Card Printing, Postcard Printing, Direct Mail Marketing, Brochure Printing, Scratch Off Printing services.


  • Designer Purse Wholesale

    • Shopforbags.com provides wholesale handbags, wholesale purses, designer handbags, women''s apparel, western rhinestone belts, leather purses, clothing, diaper bags.
  • Employee Gifts

    • My Executive Gifts: offering highest quality of Personalized Gifts at no additional charge! Specializing in Executive Gifts, Pocket Knives, Corporate Gifts, Gift Baskets Corporate Gifts.
  • GSA AIMS Schedule

    • The Borenstein Group specializes in Business-to-Business and Business-to-Government branding, Advertising Agency MD, Advertising Agencies In Washington DC, B2G and Washington DC Marketing Communicat
  • Hannah Montana Birthday Party

    • Selections of Kids Birthday Party Supplies,Party Favors, Party Games and More at Discount prices.


  • Motorcycle Riding Jackets

    • We carrie the full line of Kawasaki ATVs, utvs, motorcycles, motocross, and watercraft. Check out our used inventory of Suzuki, Honda, and Yamaha products. Go to our eBay store for daily specials
  • New York State Child Support

    • New York city law professionals dealing in divorce lawyers in queens new York, long island divorce attorneys, long island divorce lawyers, Nassau county attorney, Nassau county lawyer and queens cou
  • Relaxation Gift Baskets

    • Wonderful pampering spa gift baskets such as Spa Baskets for Women, Relaxation Spa Gift Baskets, Sympathy Gift Baskets, Corporate Gifts. Spa gift baskets filled with high quality aromatherapy bath a
  • Teri Eno - Brevard County Florida Real Estate

    • Teri Eno sells Melbourne and Brevard County Florida Real Estate, homes & condominiums for sale, Relocation Guide, Waterfront and Beach front properties, market analysis, buying & selling houses, full broker agent services.


  • Toni Adcock - Lake Martin Alabama Real Estate

    • Toni Adcock specializes in real estate for the entire Lake Martin Alabama area. Contact Toni regarding lake homes, lake cabins, lake lots, condominiums, and resort property.
  • Travel 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, Peru trips, Peru vacation packages ava

    Your privacy is our utmost concern. We will never sell your personal information.
    Equal Housing Opportunity | Blue Ridge Real Estate | Privacy Statement | Link Partners | Site Map