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


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






Delray Beach Real Estate561-912-3583
561-912-3584
  • Adams Photographics

    • Fine Art photography, Commercial and Editorial Fashion, Commissioned Portraiture, Fine Art Weddings, Art Decor
  • Albany NY Homes for Sale, Albany New York Real Estate, Albany Homes - Albany NY Homes for Sale

    • Welcome to http://www.518realtygroup.com, the most comprehensive web site available for real estate in the Albany, New York area. If you are looking to buy or sell a home, you have come to the right place. Homes For Sale, Real Estate, Realtor, Agent, Real Estate Agent, Real Estate Broker, Relocation
  • anunciarse gratis

    • Portal de anuncios clasificados gratuitos para toda Espa Empleo, compra, venta, segunda mano.
  • avisos gratis

    • Comunidad online de intercambio en argentina. Publica tus avisos clasificados gratis en argentina


  • AZ Investment Properties

    • Looking for Arizona Bank Foreclosures, Bank Foreclosures in Arizona and AZ Foreclosures? Come to Azbankforeclosures.com to see all we can offer you.
  • Blue Cross Insurance of California

    • We are the leading site for medical quotes from Blue Cross of California for individuals and families, kids and seniors.
  • casino

    • Es el juego online del que todo el mundo habla.
  • casino bonus

    • GamblingPlanet.org seeks to be your first stop on the Internet whether you''re hunting for an online casino


  • clasificados en chile

    • Comunidad online de intercambio en chile. Publica tus avisos clasificados gratis en chile
  • College Essays Essay Writing

    • College-Essay.org''s college level essay writing service produces the world s best custom essays in subjects ranging from argumentative essays to history essays and beyond.
  • fixar na venda da brasil

    • Comunidad online de intercambio en brasil. Publica tus anuncios clasificados gratis en brasil
  • Holiday Apartment Rental In Central Paris - COSY LOGIS

    • Cosy Logis France offers holiday furnished apartment for vacation rental in Central Paris in the most trendy areas such as Montparnasse, Convention and Alesia as well as near the Eiffel Tower.


  • Ibiza Apartments

    • Hotels Und Appartements In Ibiza, Lastminute Angebote Ibiza, Hotels Ibiza by Grupoplayasol.com
  • International health & medical insurance for expatriates overseas: GoodhealthWorldwide

    • Goodhealth. International and medical health insurance for expatriates overseas and of all nationalities
  • Jewish Calendar: Events and Holidays

    • Jewish Calendar: Events and Holidays
  • online poker

    • World''s largest online poker room and casino.


  • ScreenReports advanced website statistics, real time web log analyzer

    • ScreenReportsT advanced website statistics, real time web log analyzer - Get advanced visitor web statistics with an online analysis report. No logfile required.
  • Smack Apparel

    • T-Shirts with an Attitude. Show your rival what your really thinking with our uniqe T-Shirts. Our shirts have themes related to college and pro sports.
  • Soundproof Music Rooms

    • Unique bespoke garden offices fully insulated, wired, and plastered from 5K any size and shape made.
  • SPACIFY - Wood Platform Beds

    • Wood platform beds in modern bedroom furniture spell contemporary design. Get modern contemporary platform bed collection offered by Spacify with optional storage in leather or upholstered elegant bed frames, clean lines and uncomplicated construction for less.


  • Sub Zero Santa Monica

    • Allen Edward Appliance Repair has been the most successful appliance repair business in the Greater Los Angeles and San Fernando Valley since 1979.
  • Thailand Travel Informations

    • Thailand Travel Informations
  • Whistler accommodation Whistler lodging Whistler condo rental Whistler rental

    • Great range of Whistler accommodation and lodging including chalets, townhomes and condos. Whistler ski resort in British Columbia, Canada.
  • Work at home earn money online

    • Work at home earn money online. www.earnplanet.com Work home opportunity. Earn money online. Business from home. Work at home. Earn cash for survey.