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


" & Request("Realtor_Training_&_Education_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 SEARCH FEATURED FINANCING ABOUT CONTACT
Instantly view all the NEWEST listings from the last few days!  
Check out area FORECLOSURES and SHORT SALES!  
Search the Lake Blue Ridge Waterfront homes!  



  

Quick Links
    HOME PAGE

Resources
    ABOUT ME
    LOCAL PARTNERS
    TESTIMONIALS
    SCHOOL INFORMATION
    LOCAL NEWS
    MOVIE TIMES

Home Search
    HOMES FOR SALE
    FEATURED LISTINGS
    NEW LISTING ALERT

Real Estate Tools
    15 SECOND APPRAISAL
    CALCULATORS
    REAL ESTATE GLOSSARY
    HOME FINANCE
    TODAY'S RATES

Real Estate Info
    HOME BUYING
    SELLING A HOME
    FREE REPORTS
    FREE FORMS
Property Spotlight

1 of 23 photos
Blue RidgeGA
For Sale
$254,900
4 Beds / 2 Baths
Unbelievable Deal! 3/3 Cabin with YEAR-ROUND Mountain Views less then 5 miles from Downtown Blue Ridge...
more >>
View All Our Picks >>
  • African American Essay

    • AfricanLiterature.net has more than a decade of experience writing about the literature of Africa, making us one of the most comprehensive.
  • Alternative Media Advertising Toronto

    • We offer a reliable and convenient service serving Event Planner Promotions Marketing Ideas and Advertising Alternative Media Outdoor.
  • Defensive Driving Indiana

    • Defensive Driving Course Indiana offers online traffic school course to dismiss your traffic ticket online, Approved by BMV and meets all requirement of Indiana State.
  • Document Translations Vancouver

    • Document interpreter services, company and many other such types of services are provided by alltranslation.net in Los Angeles, Toronto and Vancouver.


  • Drivers Ed

    • DMV Certified Online Drivers Ed course to get learners permit and driving permit. Graduated Driver License (GDL) program for teen who want to learn how to drive safely.
  • HID Conversion kit

    • Welcome to AutoToyWorld.com where you get the products you want at the prices you want with the customer service you deserve.
  • Ideas For Psychology Term Paper

    • Amazingtermpapers.com are the Social Psychology Term Papers writing service, and our prewritten and Free Ideas For Psychology Term Papers.
  • Marin County Traffic Ticket

    • Marin Traffic School offers court approved driving courses. Log in today for our traffic safety courses that offers real Marin County Traffic School, California state courses dismiss traffic tickets.


  • Residential Mental Health Facilities

    • Morningside Recovery is a nationally renowned facility for dual diagnosis treatment, alcohol and drug rehabilitation, and single or co-occurring mental illness and mental health treatment.
  • Sample Graduate School Admission Essay

    • Application-Essays.com helps take the stress out of this very important time in your life.
  • Texas Defensive Driving Course

    • Texas Defensive Driving Online courses are approved statewide by the Texas Education Agency (TEA) for Ticket dismissal/insurance discount. Defensive Driving Course Online Texas offers Online courses for those who have been cited with a traffic ticket at affordable price.
  • Traffic School Online California

    • Taking California Traffic School online course enables you to get rid of your traffic ticket and attain insurance discount. The CA traffic school online course is approved by the state of California.