<%@ 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 *** '** 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 = "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() %> <% 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 '=============================== %>
  
HOME PAGE
RELOCATION PACK
LOCAL AREA INFO
FEATURED PROPERTIES
PROPERTY EVALUATION
FREE REPORTS
MORTGAGE RATES
FINANCING
BUYERS INFORMATION
SELLERS INFORMATION
REAL ESTATE TOOLS
LIST YOUR PROPERTY
PARTNERS
ABOUT
CONTACT
LOGIN

Scott Thompson
510-410-2003
Email Me
342 Highland Ave
Piedmont, CA 94611


  • Affordable Handmade Jewelry

    • Welcome to Pam Older Designs - Handmade Jewelry - Necklaces , Bracelets , Earrings.
  • Cheap Hosting

    • ServerPoint has been a web hosting provider longer than just about anyone else, offering enterprise quality shared hosting, dedicated servers, virtual servers, domain registration, application hosti
  • Computer Disposal

    • PC Disposal is dedicated to managing the Removal and Recycling of your Old and Outdated Computer Equipment and Monitors while keeping your business safe from EPA liability and information theft.
  • Cornell Dubilier In Stock

    • CavalierStock is a Leading Stocking of Electronic Components Distribuor, All Components IN STOCK. Same Day Dispatch on all semiconductors before 11am.


  • Custom Build Homes

    • StoneCliffHomes.com Custom Home Builders are committed to providing Custom Built Luxury Residential Homes in Central Ohio using energy-efficient products, materials and building practices. Discover
  • Direct Marketing Mortgage

    • Responsemaker.com is your source for targeted Direct Marketing Lists for any industry including Homeowners, Financial, Loan, and Mortgage Marketing and Mailing Lists. The possibilities of your direc
  • Earn Extra Cash

    • The XPX Online Games Team is dedicated to providing players from all over the world with an interactive online gaming experience that is second to none.
  • Fuel Pressure Regulators

    • Hanbayinc.com is your source for Electric Valve Actuators and Process Automation Equipment including Hydraulic Control Valves, Miniature Actuators, Gas Flow Control Valves, and Electric Actuated Con


  • Home Based Business

    • Welcome to freeprizearcade.com to access our FREE GAMES and BUSINESS OPPORTUNITY PRESENTATION.
  • Lasik Surgery

    • Facts On LASIK Surgery-Find a LASIK Surgeon-LASIK Laser Eye Surgery-Laser Vision Correction-Custom LASIK Costs-Payment Plans-LASIK Risks.
  • Network Marketing Opportunities

    • Home based business that pairs wine tasting and wine education in the comfort of your own home.
  • New York SEM

    • Web Services by Design, is a division of Networks by Design Inc located in Long Island, New York. Our firm has a complete web development team consisting of web designers, E-commerce specialist and


  • Open Source Community Software

    • Ablespace.org Will help you find the best ABK Sites, Ablespace, Abledating, Virtual Chat, PHP Community script.
  • Open Source Dating Software

    • Ablespace.biz Will help you find the best Abledating Designs, Abledating Sites, Ablespace, Dating Softwares.
  • Solid Rivets

    • Hansonrivet.com Will help you find the best Rivet, Rivets, Fasteners, Rivet Gun, Pop Rivets.
  • Start Your Own Casino

    • Turnkey online casino for sale, includes gambling license,40 casino games,sportsbook,lotto and bingo. Join the excitement of profiting from internet gambling.


  • Towson Rental Office Space

    • Welcome to Hillendale Square, located at 1045-1055 Taylor Avenue in Baltimore, Maryland. Hillendale Square is conveniently located just 7.5 miles from downtown Baltimore with quick access to the Bal
  • Vaginal Hysterectomy Procedure

    • Urogynct.com s doctors in New York City are dedicated to solving many of woman s most intimate medical problems including Pelvic Reconstructive Surgery, Laser Vaginal Rejuvenation, Stress Urinary In



    Home | Links | Free Reports | Free Forms | Buying | Selling | Home Search | School Info
    Interest Rates | Real Estate Blog | Login | About | Contact


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