<%@ 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: Website_Promotion_Real_Estate.asp '------------------------------- ' Website_Promotion_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Website_Promotion_Real_Estate" pageName = "Website_Promotion_Real_Estate" Session("expired") = "No" %> <% ' Website_Promotion_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** root=Replace(lcase(server.MapPath("AdminOwnerXML.html")),"adminownerxml.html","") 'set fso = Server.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 '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 = "Website_Promotion_Real_Estate.html" sTemplateFileName = "Skin/Website_Promotion_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Website_Promotion_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")) ' Website_Promotion_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Website_Promotion_Real_Estate Close Event begin ' Website_Promotion_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() SetVar "BrokerName1",Session("BrokerName1") SetVar "BrokerPhone1",Session("BrokerPhone1") SetVar "BrokerEmail1",Session("BrokerEmail1") if session("BrokerName1") <> "" then setVar "FullName",session("BrokerName1") if session("BrokerName1") <> "" then setVar "OwnerName",session("BrokerName1") if session("BrokerEmail1") <> "" then setVar "Email",session("BrokerEmail1") if session("BrokerPhone1") <> "" then setVar "Phone",session("BrokerPhone1") %> <% If LoadedPage <> "" Then SetScript "PutYourContentHere",LoadedPage Else If Request("Website_Promotion_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


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


 



      Scott Thompson, Your Trusted Advisor  (510) 410-2003
  • Access to MySQL Convertor

    • MySQL to MS SQL Convertor supports Unicode architecture with full support to all database attributes and key constraints.
  • California Website Design

    • Sytable Webdesign is a web design and internet marketing company specializing in creating the most advanced website designs while also providing the tools to reach the most people possible.
  • Corporate Website Design & Ecommerce Website Design India

    • Web design company India specializing in Affordable professional web design and Cheap web design packages. Outsource India web designers who work hard for you!
  • data recovery

    • Windows data rescue application restores files and folders even if data are unrecognizable by Windows operating system


  • Dental Practice Management Software

    • Dentists gain the benefits of our tailor-made exclusive dental website designs, dentists email marketing and dental practice management software with proven results that boosts productivity and prof
  • free flash drive recovery

    • Key drive data restoration software provides restoration of deleted lost JPG, JPEG, GIF, digital clips, photos, images from Handheld computers, PDA devices and pocket PC.
  • Magento Site

    • Magento shopping cart Development - Grow your business with feature rich Magneto integration website, magento templates, magento programming from our Magento Developers. The one stop shop for Magent
  • Recreation and Entertainment

    • The Hottest and Controversial Entertainments


  • SEO Company

    • SEO Company National Positions provides both SEO and SEM services to achieve top rankings on the web.
  • Seo Marketing Plan

    • The web is finally going local. Find out how to put your business right where people expect to find it.
  • Software Development Services London

    • Software Service is UK based Software Development Company providing IT services, like Software Development Services London, Web application development and global software services for small, mid sized businesses and also large enterprises.
  • Top SEO Services Provider

    • Top Seo Services Provider is one of the esteemed SEO Service providers with a huge clientele across the globe. We are committed to provide world class organic SEO services with revenue generating results. Place your website on top of the major search engines with Top SEO Services Provider. SEO Services Provider, Top SEO Services Provider, SEO Services, Top SEO Services, SEO Providers, SEO Services Company, SEO Consultancy Services, Cheap SEO, Cheap SEO Services, Affordable SEO Services, Internet Marketing.


  • web design

    • Ascensor Web design and development Batley are at the leading edge for website performance, we offer everything from fully bespoke website to design and development, to SEO and geo-targeted SEO services
  • Web Designer Toronto

    • Jakhus Worldclass SEO services & techniques, ensure first page search engine ranking and traffic to your website
  • Web development Delhi

    • Eyebridge - A young and creative web design company based at Dwarka in Delhi, provides web designing, development, branding, SEO and online marketing solutions. We simply aspire to provide creative
  • White Label SEO

    • Looking for a reliable and cost-effective SEO company? We are currently trusted worldwide as a premier SEO reseller.
    Property Spotlight

    1 of 1 photos
    OAKLAND For Sale
    $878,000
    4 Beds / 2 Baths
    Multi-family Property, Area: Oakland Zip Code 94610, County: Alameda, Approximately 0...
    more >>
    View All Our Picks >>

    Oakland Real Estate Agent
    Scott Thompson
    (510) 410-2003
    Let me help you relocate to a new home or property in Oakland, Piedmont, Berkeley, San Leandro and Alameda as well as the Montclair, Crocker Highlands and Alameda County county areas. I can direct you to a church or synagogue, public or private schools, golf courses, recreational facilities, cultural events, or a hotel. I can provide you with local news, maps, city info, city statistics, and more -- everything you need to become familiar with all aspects of the greater Oakland metropolitan area.