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


" & Request("Health_Care_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


  • alternative practitioners

    • Patients Medical is an integrative holistic medical practice that combines conventional and complementary medicine. Our focus is on you and your health.
  • brooklyn dermatologists

    • brooklyn dermatologists
  • Cosmetic Dentistry Canada

    • Welcome to Wave Teeth Whitening Light for complete makeover of your teeth with our advanced cosmetic dentistry, teeth bleaching.
  • Cosmetic Dentistry Toronto

    • Welcome to Sterling Dentistry! Canada''s leading cosmetic dentist Dr. Cherilyn Sterling will provide comprehensive preventative and innovative cosmetic dentistry and complete orthodontic treatments a


  • Cosmetic Surgeon Salt Lake City Utah Bountiful UT

    • Dr. Sellers performs most types of plastic surgeries, reconstructive surgeries, hand surgeries, and even laser treatments for skin rejuvenation and hair removal.
  • Durham medical center

    • Durham medical center Durham medical center Durham medical center
  • Elliptical Cross Trainer

    • Ellipticaltrainershoppe.com is specialized in elliptical training and we have a wide selection of quality elliptical fitness machines and machines that allow you to get maximum workout results.
  • Exercise Rowing Machine

    • If you''re planning to buy a rowing machine, Rowing Machine Shoppe offers comprehensive selection of world class rowing machines and fitness equipments for sale at an affordable prices.


  • Pain relief

    • Manufacture of nature''s neck pain relief and sports spray products.
  • Plastic Surgery Abroad

    • Cheap Cosmetic Surgery Abroad allows you to take advantage of European prices on plastic surgery. Liposuction, breast augmentation, and face lift abroad are cheap and safe
  • teenage acne

    • Solid, reliable information on the Best Acne Treatment, both natural & medical. We have information on the Best Acne Treatments for teen acne, adult acne, bacne, prevention, & much more
  • Teeth Whitening Dubai Brampton

    • Welcome to Wave Teeth Whitening Light for complete makeover of your teeth with our advanced cosmetic dentistry, teeth bleaching and tooth whitening system that gives you guarantees 2-8 shades whiter


  • transcription company

    • Medical transcription and information management solutions for hospitals, clinics, and physicians offices
  • Used Medical Equipment For Sale

    • Providers of refurbished medical equipment and used medical equipment for sale - Whittemore Enterprises, Inc.
  • Vitamins for Hair Growth

    • Welcome to HairLoss-Help.com. We offer a complete resource of information Hair Loss, Hair Loss Treatment, Hair Growth, Thinning Hair, Receding Hairline, Stop Hair Loss, Thin Hair, Regrow Hair Treatm



    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