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


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


 



     
Howard County Real Estate443-418-6129GIL URDANETA
  • Angel Fire New Mexico Real Estate, Land For Sale, Angel Fire Ski Resort NM

    • Angel Fire Home Sites New Mexico, NM, sells Angel fire land, angel fire resort land,
  • Affordable Hot Springs Village Arkansas Land For Sale

    • Hot Springs Arkansas land for sale. Affordable Hot Springs Village Arkansas Land For Sale or Sale. We specialized in Hot Springs Arkansas Real Estate, Arkansas Land, Acreages, Arkansas, Village Land, parcels, uslots.
  • Black Forest Colorado Real Estate

    • No matter what your current location may be - I will oversee every detail of your Colorado Springs property transaction from this end !
  • Bradenton Florida Home For Sale

    • If you are looking for a Bradenton home for sale, just email Craig at Wilsonhometeam.com


  • Costa C da - History, festivities and property

    • General information about Costa C da in Murcia, Spain. You will find history, arts and gastronomy, hotel rentals, Spanish property for sale
  • Dallas Real Estate

    • Our Dallas Real Estate website is designed to assist you with your Dallas TX real estate needs.
  • Free Mortgage Quotes

    • This is a 100% free service which enables you to conveniently shop for a mortgage.
  • Holiday Island Land - Holiday Island, Arkansas, Land, sale

    • Holiday Island Land, Arkansas - Holiday Island free weekend Arkansas, Beautiful Holiday Island land for sale in Arkansas, Holiday Island ar


  • House Flipping

    • Learn the process of real estate flipping and how to maximize your profits.
  • La Quinta Real Estate

    • La Quinta Real Estate - Find La Quinta Homes For Sale, REALTORS, home values and see real estate information for La Quinta, California home buyers and sellers.
  • Miami Beach Florida

    • Miami Beach condo expert, New Miami Beach Condo, Luxury condo Miami Beach ,Miami Real Estate,Miami Beach Home , Miami Home Buying, Miami Real Estate For Sale By claudiorivero.com
  • Miami Real Estate

    • We specialize in representing our clients in the purchase and sale of Condominiums, single-family residences and income property within the cities of Miami real estate.


  • Northern California Real Estate

    • We offer a wide range of Real Estate services like Redding Homes for Sale in Northern California, shasta, tehema to assist you throughout your home buying, selling and relocating process.
  • Palm Springs Home Finders

    • Palm Springs Real Estate By Palmspringshomefinders.com
  • Real Estate

    • You can use this site to find a wealth of web sites about real estate throughout the world.
  • Tellico Village Land, Tennessee - Tellico Village Tennessee Land for Sale

    • Tellico Village Land, Tennessee - Tellico Village land for sale. Tellico Village tn, Tennessee Land for Sale.