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


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









  • Angel Fire New Mexico Real Estate, Land For Sale, Angel Fire Ski Resort NM

    • Angel Fire Home Sites New Mexico, NM, sells Angel fire land, angel fire resort land,
  • Abundance And Prosperity

    • The Official Website for Release Technique! The Abundance Course, is a simple, powerful and comprehensive course for achieving total Financial Freedom through Stress Management and Relief.
  • Affordable Hot Springs Village Arkansas Land For Sale

    • Hot Springs Arkansas land for sale. Affordable Hot Springs Village Arkansas Land For Sale or Sale. We specialized in Hot Springs Arkansas Real Estate, Arkansas Land, Acreages, Arkansas, Village Land, parcels, uslots.
  • Angel Fire New Mexico Real Estate, Land For Sale, Angel Fire Ski Resort NM

    • Angel Fire Home Sites New Mexico, NM, sells Angel fire land, angel fire resort land, New Mexico land, real estate, angel fire ski, New Mexico Ski Resort and land for sale.


  • Blue Tooth Phone Headset

    • JayBird Wireless Headphones | Bluetooth Stereo Headset with reviews. For Music & Calls. Smallest, The stay-put, out-of-the-way Wireless headphones | Bluetooth Stereo Headset.
  • Builders in birmingham Builders in Birmingham

    • For builders in Birmingham visit our builders in Birmingham website.
  • Builders In Leeds Builders In Leeds

    • For Builders In Leeds Visit Our Builders In Leeds Website.
  • Builders in liverpool Builders in Liverpool

    • For builders in Liverpool visit our builders in Liverpool website.


  • Builders in london Builders in London

    • For builders in London visit our builders in London website.
  • Builders In Sheffield Builders In Sheffield

    • For Builders In Sheffield Visit Our Builders In Sheffield Website.
  • Business Valuations and Appraisal, Value Of My Company.

    • Offers business valuations, appraisal and company valuation for small businesses.
  • Cash Car Rentals Jordan

    • Rentareliablecar.com is one of the leading car rental companies in Jordan offers fantastic savings on Jordan car rentals. Rentareliablecar.com, the first place to look for cheap Jordan car hire deal


  • Cheap Discount Fragrance Perfume

    • FragranceExpress.Net is dedicated to provide our customers with access to the largest selection of genuine, brand name Perfumes, Haircare, and more, including many discontinued perfumes and disconti
  • Forex Trading

    • Forex trading is easy and affordable with this forex resource.
  • LandAuction.com - land, auctions, sale, low-cost real estate

    • Gigantic Land Auctions Properties located throughout the Western U.S.
  • los angeles divorce law

    • Certified Specialist in Family Law and Divorce. Offices in Calabasas and Beverly Hills. Results-oriented divorce lawyers. 800-655-4766.


  • Motorcycle Loans

    • Motorcycle loans with competitive interest rates.
  • Online Driver Education

    • DriversEDonline.com offers a variety of Online Driver Education Classes and even some educational driver education online games available for California, Florida and Texas.
  • Open Signs

    • We''ve been providing our clients with quality products and services for fifteen years.
  • Paid Surveys

    • Get paid to take online surveys or for focus group discussions


  • recessed fluorescent lighting

    • dmf Lighting is the Lighting Manufacturing Company offering Industrial, Kitchen Recessed, Under Cabinet Kitchen Lighting, and Low Voltage Recessed Quality Lighting.