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


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


Tom and Patty Skeba

6070 N Federal Hwy

Boca Raton, FL 33487

561-212-6469

 

 
     Home | Contact | Sitemap
South Florida - Homes Real Estate

 Buyers | Sellers | Reports | Forms | Home Valuation | About | Local Info | Search | Login | Contact
  • Bullhead City Real Estate, Fort Mohave Real Estate, Mohave County Real Estate, Konrad Livingston

    • Specializing in Bullhead City real estate, Fort Mohave, Mohave Valley, Golden Shores, Golden Valley, Needles, Topock, Kingman, and Mohave County. Konrad Livingston helping to find and buy the home of your dreams.
  • Chandler Real Estate, Gilbert Real Estate, Maricopa County Real Estate, Jeff Hunt

    • Specializing in Chandler real estate, Gilbert, Tempe, Phoenix, Mesa, Ahwatukee, Scottsdale, Maricopa, and Maricopa County. Jeff Hunt helping to find and buy the home of your dreams.
  • Colorado Springs & Pueblo West Real Estate, Deb Jones

    • Specializing in Military Relocation and First Time Home Buyers. Colorado Springs, Fountain, Security, Widefield, Pueblo West real estate. Deb Jones helping to find and buy the home of your dreams.
  • Desert Sky Realty - Real Estate in Scottsdale and the Phoenix Metro Area

    • AZCentral.com Arizona Real Estate Information Search MLS Arizona Information Phoenix Information Scottsdale Information Buyers, Sellers, Real Estate Investors (Investors in Real Estate),


  • Lake Havasu City Real Estate, Lake Havasu Homes Real Estate, Mohave County Real Estate, Cheryl Westwood

    • Specializing in Lake Havasu City real estate, Lake Havasu Homes, Lake Havasu Real Estate, Arizona Lake Properties, Golf Communities, Equestrian Properties, Lake Ridge Estates, Desert Hills, and Mohave County. Cheryl Westwood helping to find and buy the home of your dreams.
  • Las Vegas MLS Real Estate Henderson Clark County Real Estate Maria Harwell

    • Specializing in Las Vegas real estate, Henderson, Summerlin, Anthem, Seven Hills, Siena, Lake Las Vegas, Luxury High Rise Communities, and Clark County. Maria Harwell search mls
  • Real Estate and Homes for sale in Vancouver Washington,Clark County Wa

    • Real Estate, Homes for sale in Vancouver Wa , Camas, Battle Ground, Ridgefield, Woodland and Clark County Washington. Also access community info and current MLS real estate listings
  • Scottsdale Real Estate, North Scottsdale Real Estate, Maricopa County Real Estate, Kathy Harris

    • Specializing in Scottsdale real estate, North Scottsdale, Phoenix, Carefree, Perioa, Glendale, Tempe, Cave Creek, and Maricopa County. Kathy Harris helping to find and buy the home of your dreams.


  • Toronto Condos for sale

    • Search through thousands Toronto MLS Listings using our search engine. All available condominiums and lofts in one place.
  • Vancouver Washington Real Estate and Clark County Wa homes for sale

    • Discover Vancouver Washington real estate. Free search of all the MLS listings(no registration)of homes for sale in Vancouver, Camas, Battle Ground, Ridgefield, LaCenter, Washougal and Clark County Washington.View school info

      Buyers | Sellers | Reports | Forms | Home Valuation | About | Delray Beach | Search | Login | Contact

     

    Equal Housing Opportunity - Delray Beach Real Estate 2003 All Rights Reserved - Privacy Statement