<%@ 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_Investment_Real_Estate.asp '------------------------------- ' Real_Estate_Investment_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Real_Estate_Investment_Real_Estate" pageName = "Real_Estate_Investment_Real_Estate" Session("expired") = "No" %> <% ' Real_Estate_Investment_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") '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 = "Real_Estate_Investment_Real_Estate.html" sTemplateFileName = "Skin/Real_Estate_Investment_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Real_Estate_Investment_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_Investment_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Real_Estate_Investment_Real_Estate Close Event begin ' Real_Estate_Investment_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_Investment_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Real_Estate_Investment_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 '=============================== %>

Twin Tiers New York Real Estate
Home | Buyers | Sellers | Reports | Forms | Financing | About | Twin Tiers | Movies | News |Search | Login | Contact

  • Broker Outpost

    • We are a wholesale and retail lender dedicated to providing mortgage brokers and their clients with the highest levels of customer service, speed and reliability while always treating people with re
  • Business Card Scanner

    • The NeatReceipts SCANALIZER is a scanner and software solution that helps you organize your paper.
  • Costa Rica Restaurants

    • The Costa Rica List is based in Tamarindo, Guanacaste, Costa Rica. We are a new website designed to cater for both local residents and tourists.
  • Cupola

    • Bar Harbor Weathervanes is a manufacturer of copper weathervanes and cupolas. Making weathervanes for over 30 years - our weathervanes are hand- crafted right here in Trenton, Maine.


  • Fly For Less

    • The airline operates between popular sectors like Mumbai to Ahmedabad, Delhi to Mumbai and provide discount Business Tickets To Africa And Nairobi.
  • Kemet Corp In Stock

    • CavalierStock is a Leading Stocking of Electronic Components Distribuor, All Components IN STOCK. Same Day Dispatch on all semiconductors before 11am.
  • Pick Up Truck Racks

    • The best place to find Barstools, Bike Rack, Cast Iron Cookware, Cast Iron Cookware For Camping, Drywall Tools, Electric Generator, Electric Meat Slicer, Infrared Sauna, Meat Mixer, Portable Generat
  • Replica Rolex

    • Buy replica watches at the cheapest prices. One month LIMITED edition. Buy a rolex replica under $299.


  • Rockabilly Guitar

    • Sparrow Guitars is an Cheap electric guitar company offering bold and inspired Custom Electric Guitars, Cool Guitar Design at affordable price
  • Shrimp Cocktail Recipes

    • Mixed Drink Recipes, Alcoholic Drink Recipes, Apple Martini Recipes by Alcoholic-Drink-Recipes.com
  • Sky Diving Southern California

    • 99 Blue Bananas offers an amazing variety of sports, getaway & travel packages including great things like California Go Kart Racing, Cool Gifts, Personal Trainers in Los Angeles, and Helicopter Tou
  • Towson Rental Office Space

    • Welcome to Hillendale Square, located at 1045-1055 Taylor Avenue in Baltimore, Maryland. Hillendale Square is conveniently located just 7.5 miles from downtown Baltimore with quick access to the Bal


  • Weathervane

    • Weathervanes - The Weathervane Factory provides lots of Weathervanes and Cupolas in different categories.
       
    Home | Free Reports | Free Forms | Financing | About | Twin Tiers Info | Search | Login | Contact


    Equal Housing Opportunity - Twin Tiers Real Estate 2003 All Rights Reserved - Privacy Statement