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


" & Request("Construction_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 >>
  • Builder Solihull

    • Midland Builder UK are professional commercial builders company expertise in loft conversion and other building ventures covers Birmingham, Wolverhampton, Walsall, Sutton Coldfield and Solihull.
  • Builders Wolverhampton

    • Build Lite are commercial and domestic builders having years of experience in all building work based in the West Midlands and covers Solihull, Walsall, Sutton Coldfield, Wolverhampton and Birmingham.
  • granite worktops london

    • Rock Revelations (London) Ltd has been supplying and installing high quality granite and marble since 2002. We are committed to finding you the best solutions for all your granite countertops, granite kitchen worktops and black granite kitchens solutions at reasonable price.
  • Hotel Washing Machines

    • Spectrum Garment Finishing Equipments Pvt.Ltd.Since in the year 1985,is a manufacturer exporter and supplier Mr.Rajeev Arora is the founder and promoter of the company


  • Laundry Machines India

    • Spectrum Garment Finishing Equipments Pvt.Ltd.Since in the year 1985,is a manufacturerexporter and supplier Mr.Rajeev Arora is the founder and promoter of the company
  • Loft Conversions Hemel Hempstead

    • Here at Loft Conversions Hemel Hempstead we offer high quality, professional attic & loft conversions. We offer a complete loft conversion service and are Hemel Hempstead''s number one choice for loft conversions.
  • Loft Conversions Oakham

    • Looking for a professional Loft Conversion specialist? Call us now on 01572 839 310. Here at Loft Conversions Oakham we have many years experiance in Loft Conversion, which makes us the perfect choice for your Loft Conversion requirements across Oakham.
  • Spectrum Equipments

    • Spectrum Garment Finishing Equipments Pvt.Ltd.Since in the year 1985,is a manufacturer Exporter and supplier Mr.Rajeev Arora is the founder and promoter of the company


  • Wisconsin Commercial Construction

    • Northstar Contracting has been making businesses beautiful since 1987 and has become a leader in general contracting, bar renovation, restaurant remodeling, building facades.