<%@ 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(lcase(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() SetVar "BrokerName1",Session("BrokerName1") SetVar "BrokerPhone1",Session("BrokerPhone1") SetVar "BrokerEmail1",Session("BrokerEmail1") if session("BrokerName1") <> "" then setVar "FullName",session("BrokerName1") if session("BrokerName1") <> "" then setVar "OwnerName",session("BrokerName1") if session("BrokerEmail1") <> "" then setVar "Email",session("BrokerEmail1") if session("BrokerPhone1") <> "" then setVar "Phone",session("BrokerPhone1") %> <% 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 '=============================== %>
 
 
  • Accountant Jobs

    • PNet is South Africa''s number 1 job site. Search for jobs across South Africa. Find work. Recruit the ideal candidates. PNet your job portal.
  • Answering Service

    • ReceptionHQ is a live answering service by our friendly receptionists who greet your customers with your company name, and custom greeting of your choice.
  • Best Miami Beach Real Estate

    • Miami Beach waterfront homes for sale.
  • Blue Shield Medicare Supplement

    • Get information on zero cost Freedom Blue, Medicare Supplements, & Clear Protection from the official Anthem Blue Cross Premier Partners - Blue Cross Blue Shield.


  • Buy Dinar

    • Buy Iraqi Dinar easily and safely from dinartrade.com. All Dinar orders are delivered FedEx COD. All orders are sent within 24 hours.
  • Custom Suits

    • Alan David Custom Menswear has been dressing New Yorkers with custom made suits and custom tailored shirts, ties and formalwear for years.
  • Debt Consolidation

    • American Financial Solutions is a non-profit credit counseling and financial education agency. And we here to help you get out of debt for good.
  • Disney Wholesale

    • www.1stkidswholesale.co.uk is your one stop shop for baby whole sale clothing with fine quality - available with all top brands Barbie, Ben 10, Disney, Peppa Pig, fifi, Scooby Doo, high school musical, bob the builder and many more


  • gout

    • Advanced Health Choices is dedicated to delivering accurate health information regarding common medical conditions and the responsible use of vitamins, minerals, herbs and supplements.
  • halloween costume ideas

    • Adult, Teens, and Kids costumes for Halloween, funny and scary costume ideas for girls and boys Halloween costume party.
  • Live Answering

    • OfficeHQ is a live phone answering service by our friendly receptionists who greet your customers with your company name, and custom greeting of your choice.
  • los angeles seo services

    • The web is finally going local. Find out how to put your business right where people expect to find it.


  • Multiplayer Games

    • Unforgiven War is a free text based browser army MMORPG game. Set in the year 2008, you sign up as a new recruit to the military. Stand up and be counted.
  • natural rosacea treatment

    • Get Natural Treatment for Eczema, Psoriasis and Rosacea. We provide Eczema Treatment and Psoriasis Treatment by natural remedies to help your skin''s appearance.
  • private detective in Chennai

    • Greves Detectives is a New Delhi (India) based investigation agency, providing a broad range of investigative services to corporate, government and legal clients.
  • Real Estate, Homes For Sale, Real Estate Listings, Houses, Properties, Mortgages, Appraisals, Commercial

    • We feature real estate listings and homes for sale from your local Real Estate brokers and agents as well as financing from mortgage lenders.


  • Spares And Porsche Accessories

    • Design 911 supply Porsche parts, Porsche spares and Porsche accessories, to both retail and to the trade. Our Porsche product and accessory range includes brakes, exhausts, tyres, wheels and Porsche panels and interiors.
  • Wrongful Death Pickering

    • With over 10 years of extensive experience in personal injury and civil litigation, our firm handles the complex personal injury settlements like wrongful death and many more in throughout Toronto,
     

    Home | Free Reports | Free Forms | Financing | About | Local Info | Search | Partners | Login | Contact | Tools | Relocation

    Equal Housing Opportunity - Blue Ridge Bank Owned and Foreclosure Real Estate 2008 All Rights Reserved - Privacy Statement