<%@ 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() %> <% 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 '=============================== %>
 
 
Realty Connex - Connecting Real People With Real Estate
  • Bath Vanity

    • Bath Gems offers the widest range of bathroom fittings, fixtures, accessories and furnishings to customers all across the United States.
  • Bathroom Shelves

    • Bath Gems offers the widest range of bathroom fittings, fixtures, accessories and furnishings to customers all across the United States.
  • Benches

    • JustMyShopping.com is your online superstore for home and office furniture such as Living Room Sofas, Entertainment Centers, Modular Bush Furniture and Boss Office Star Chairs at the lowest prices.
  • Condo In Austin Texas

    • We have an extensive database of Texas apartments and Austin rentals and can find one perfect for you!


  • Corporate Gift Basket

    • Peyton''s Pecan Orchard offers high quality nuts and candies from our farm to your kitchen.
  • Hendersonville Nc Real Estate

    • Hometraditionsmag.com, a hometown-based real estate company serves as a hub for property lookers worldwide, providing services like Beaufort, Ridgeland, Summerville.
  • Jay Appleman

    • Red Stone Promotions Connecticut and New York Home and Garden Shows are the bench mark for consumer trade shows in the region.
  • Litchfield Beach SC Real Estate

    • Hometraditionsmag.com, a hometown-based real estate company serves as a hub for property lookers worldwide, providing services like Beaufort, Ridgeland, Summerville.


  • Mohegan Sun Home Shows

    • Red Stone Promotions Connecticut and New York Home and Garden Shows are the bench mark for consumer trade shows in the region.
  • Name Plate

    • Qbetags.com provides you the best quality products and services at fair prices, manufacture signs, nameplates, namebadges, I.D. tags, control panel tags, banners and more.
  • Roasted Pecans

    • Peyton''s Pecan Orchard offers high quality nuts and candies from our farm to your kitchen.
  • Section 8 Housing

    • Welcome to Section8bible.com, your online resource for running Low-Income and Public Apartments and Rental Housing in Los Angeles and Long Beach.


  • Section 8 Housing

    • Welcome to Section8bible.com, your online resource for running Low-Income and Public Apartments and Rental Housing in Los Angeles and Long Beach.
    		 
     
     


    Home Search

    Reports

    Home Valuation

    Financing

    Tools

    Blog

    Contact

    About

    Login


      Copyright 2007 San Diego Real Estate
    Home | About Us | Property Search | RE Tools | San Diego 411 | Buying | Selling | Login | Contact Us

    Suzen Sarko - 1608 India Street #104 San Diego - 619.546.5479