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


" & Request("Home_Improvement_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 '=============================== %>
 
 
  • Bathroom Fitters

    • Building Company London offers professional building services to all of the London postcodes. We offer a variety of Builders London, Builder London, Bathroom Fitter, Construction Company services al
  • Find the perfect children?s bed

    • Find the perfect children?s bed
  • Florida FL Roofing Contractor Jacksonville Miami Tampa Roofing Contractors

    • Florida FL Roofing Contractor Jacksonville Miami Tampa Roofing Contractors
  • home entertainment systems

    • home lighting control systems, home lighting controls


  • Home Office Desk

    • Create the perfect work environment at home with one of our affordable home office desks. Our home office furniture collection includes home computer desks, home office chairs, home office cabinets, and more.
  • Hot Tubs

    • The Spa Depot offers a wide range of portable, economical and full luxury spas, hot tubs and accessories for sale. Visit us today!
  • Indiana IN Roofing Contractor Indianapolis Fort Wayne Evansville Roofing Contractors

    • Indiana IN Roofing Contractor Indianapolis Fort Wayne Evansville Roofing Contractors
  • Meeting Facility Ottawa

    • Historic mansion in rural Ottawa providing 36 rooms, plus special services for weddings, meetings and events.


  • Remolding Your Home Guide

    • Remolding Your Home Guide
  • Rug Cleaning Nepean

    • Quick Dry Carpet Care offers water damage, carpet cleaning, upholstery cleaning, duct cleaning service, grout cleaning and water restoration in Ottawa, Kanata and Nepean.
  • Saunas

    • Northern Lights Cedar Saunas manufactures the worlds finest sauna rooms for indoor saunas and outdoor saunas.
  • Spa Heater

    • Balboa Heater | Spa Heaters | Hot Tub Heater | Hot Tub Parts | Hot Tub Pumps | Spa Pumps | Sauna Supplies CedarTubsDirect.com.


  • White Marble

    • GHY Stone China, a leading fabricator of China stone urn marble carving statue, planter, bathtub, white marble of the highest quality.
     

    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