<%@ 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: Real_Estate_Rentals_Real_Estate.asp '------------------------------- ' Real_Estate_Rentals_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Real_Estate_Rentals_Real_Estate" pageName = "Real_Estate_Rentals_Real_Estate" Session("expired") = "No" %> <% ' Real_Estate_Rentals_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** '** FROM FILE ** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'Set fso = 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 '** REMOTE XML ** '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 '** REMOTE DATABASE ** 'Set Conn = Server.CreateObject("ADODB.Connection") 'Set Rs = Server.CreateObject("ADODB.Recordset") 'Conn.Open "Provider=sqloledb;" & _ ' "Data Source=216.127.88.120,2433;" & _ ' "Network Library=dbmssocn;" & _ ' "Initial Catalog=Accounting;" & _ ' "User ID=sa;" & _ ' "Password=buckler;" 'rs.Open SQL,conn,1,1 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing ' Set conn = CreateObject("ADODB.Connection") ' Set rs = Server.CreateObject("ADODB.Recordset") ' filePath = Server.MapPath("AdminMyStuff.html") ' conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filePath ' strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" ' Set rs = conn.Execute(strSQL) ' rs.Movefirst 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "Real_Estate_Rentals_Real_Estate.html" sTemplateFileName = "Skin/Real_Estate_Rentals_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Real_Estate_Rentals_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")) ' Real_Estate_Rentals_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Real_Estate_Rentals_Real_Estate Close Event begin ' Real_Estate_Rentals_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("Real_Estate_Rentals_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Real_Estate_Rentals_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 '=============================== %>
North West Realty - San Ramon California Real Estate
Find Homes
Featured Properties
Buyers
Sellers
Financing
Contact Us


  • 000-787

    • Testking exams training tools and resources.
  • 3X0-202

    • We provide the latest study guide about certifications to prepare you for the cramsession
  • 642-511

    • Test King Exams traning tools and resources the complete coverage of the certification exams.
  • Apartment Guide for Apartment For Rent

    • An Aparment Guide which narrows your search for Apartments for Rent


  • Apartment in Toledo Ohio

    • Search for apartments and houses for rent in Toledo, Ohio.
  • apartment ratings

    • Apartmentreviews.net combines the convenience of online apartment ratings with the Internet's capabilities to provide all of the resources needed for your next move.Visit Apartmentreviews.net to get the actual renter’s rating of your next apartment before you sign your new lease. Use the free apartment locating service provided for you on our site
  • blackjack

    • Ultimate online poker freerolls listings.
  • Breckenridge Lodging

    • Find Luxury Resort Rental Homes and Mountain Cabins - Find the perfect place to stay in the Colorado Mountains!


  • California Vacation Rentals

    • Find California lodging and vacation rentals by owner offer by RentalsExpress.com. Search for California beach vacation homes, ski condos, mountain villas and shoreline cabins.
  • compra casa españa

    • compra casa españa
  • Davidson Real Estate

    • JCB Urban Company, Inc. is a Charlotte, NC-based builder specializing in residential and commercial mixed-use developments that complement existing communities.
  • Football Streaming



  • homes for rent in LasVegas, NV

    • Find your next home by searching our Las Vegas apartments listed in our database. We have accumulated many rental property las vegas from owners in the Las Vegas Nevada area and surrounding cities.
  • Houston Apartment

    • Find a Houston apartment using A1 Apartment Locators. The site makes it quick and easy to find a Houston Apartment. Let A1 with your Houston Apartment search today.
  • Mallorca Apartments for Sale

    • We have properties in many different areas of Mallorca and we offer the best rates in Europe. Whether it is for investment, a holiday home or villa, commercial or new development property in mallorca, we offer all types of properties that suit every needs & budget.
  • Mooow.com Worldwide real estate listing service

    • Property listings for homes, offices, sale and lease, by owners, or brokers., Find real estate in a location near you or worldwide, Property listings for homes, offices, sale and lease, by owners, or brokers.


  • poker

    • Tips and strategies for maximum profits and fun!
  • St Thomas Villa

    • St Thomas Luxury Villa Rental, Caribbean Luxury Condo Rentals, Virgin Islands USVI.
  • Tenant Plus

    • TenantPlus offers a free apartment search in the United States, and provides managed billing services for the landlord and tenant.
  • Unix hosting

    • The best unix hosting is here.


    Home
    Local Info
    Real Estate Tools
    Home Valuation
    New Home Communities
    About Us