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


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





  • 000-630

    • Guaranteed Success with Testking materials. We are the real Testking exam questions resource
  • 000-875

    • Testking exams training tools and resources.
  • 156-215

    • Professional certification program and exams questions.
  • 156-215

    • Cert-Vista Provides the Best certification Resources to prepare for your 156-215 exam


  • 1810 Stone Hearth Inn & Tavern

    • Circa 1810 Inn with 10 accommodations (private bath), tavern with casual fare, library, piano, fireplaces and game room with hot tub. Near shops, antiques, dining, skiing, Okemo, Weston & Grafton.
  • 190-620

    • Testking Braindumps and Materials for Success(190-620)
  • 1z0-023

    • We provide the latest study guide about certifications to prepare you for the cramsession
  • 310-090

    • Guaranteed Success using Braindumps and Testking Materials to ensure the success.


  • 312-50

    • Actual-Exams has the tools you need for your upcoming MCSE, CCNA,CISSP, CCNP or A+ certification exam.
  • 642-432

    • Complete Certification Exam Questions at a cheap price.
  • 642-611

    • The Cisco certification covers six different career paths by offering six different certification tracks so that students can match their certification track to their job role or industry.
  • 646-561

    • Test King Exams traning tools and resources the complete coverage of the certification exams.


  • 70-218

    • The best Microsoft braindumps under one roof.
  • 70-270

    • Cert-Vista Provides the Best certification Resources to prepare for your 70-270 exam
  • Apartment Rental

    • Internets Largest Free Apartment Locater. Tons Of Apartment Rental Listings For Free. Online Apartment Lease Rates, Rate Instantly
  • Banner Stand

    • San Diego Sign Company is a leading company in providing banner stand manufacture, pop up trade show display.


  • Best web master

    • How to become the best webmaster? Come here.
  • Best web master stuff

    • The best web master stuff is right here.
  • Blue Cross Insurance Of California

    • California Individual Health Insurance By Fasthealthquotes.net
  • Braindumps

    • Certifications Help for Candidates in Passing their Exams.


  • Car stereos at Cheap Prices

    • From here you can get required information about achieving cheap car stereos
  • casino en linea

    • All the best online casinos are all here in this site.
  • casino online

    • Europa Casino es el más confiable y seguro casino en línea de la red
  • Cheap Apartments

    • We Are The Largest Free Apartment Locator. View Cheap Apartments For Rent. Online Apartment Lease Rates, Rate.


  • Cowboy Tickets

    • The Golden Ticket bus was an idea we had of trying to bring forward our brand recognition and to bring our company.
  • Dedicated web master

    • Complete info for web masters.
  • fast weight loss

    • Quick weight loss methods are here on over Weightclinic.com
  • free casino games

    • Links to the best online casinos.


  • Hank Freid

    • Hank Freid
  • Home Based Business

    • Home based business techniques just one click away.
  • houston fsbo

    • Free For Sale by Owner marketing system for home sellers and buyers. Save thousands in Real Estate Commissions. No Fees or Comissions. Nationwide listings
  • HP0-683

    • We are an e-Learning company dedicated to providing quality e-Learning Content, Tools, and Services.


  • ideal weight

    • Improve your health by reducing weight.
  • Live Football

  • Mitsubishi Cell Phones

    • The best Nokia N series mobiles under one roof.
  • Motorola C113

    • Your online source for Latest Reviews, News and Features on Motorola C113 at Phones-mania.net


  • Next web master

    • The best just got better on web master resources.
  • Nokia 3310

    • It is easy to affort to everyone looking for cheap cell phones.
  • Nokia 6310

    • Nokia 6310 is easy to afford to everyone looking for cheap cell phones
  • party poker

    • The worlds most trusted online poker room!


  • Philips Cell Phones

    • Philips Cell Phones available at cheap prices only at phones4cheap.net
  • poker online

    • Online poker directory with the best online poker room reviews!
  • prepaid cell phones

    • Prepaid cell phones, and best cell phone deals.
  • Prestigious Homes Realty , Floirda Flat fee MLS

    • Sell and list your home in the MLS and Realtor.com in Florida for a flat fee


  • Samsung Z710

    • It is easy to afford to everyone looking for cheap cell phones
  • Sell Your Home On Your Own

    • Looking to sell your home without an agent? List your home online with ChoiceOfHomes.com
  • Vinove Directory

    • Vinove Online Web Directory.
  • Webmaster world

    • Discover the secrets now.


  • weight watchers

    • We have the latest method of weight loss.
  • Yakto - Free Web Directory

    • Add Link - Free Link Exchange - Submit A Website For Free