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


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






Hemet Real Estate 951-533-0363
951-533-2252
  • AAA - Automobile Club

    • Serving San Jacinto and Hemet
  • Affordable Health Insurance

    • Expert health insurance advice, learn about health insurance. Online health insurance quote. Affordable health insurance.
  • Affordable Insurance

    • Serving San Jacinto and Hemet
  • All Cities Insurance

    • Serving San Jacinto and Hemet


  • Allstate Insurance Christopher Green

    • Serving San Jacinto,Hemet,Homeland,Winchester,Murrieta,Menifee,Temecula,Moreno Valley,Beaumont and Banning
  • Best Affiliate Programs

    • Your guide to the best web affiliate programs, associate programs and profit sharing. Our affiliate directory is ideal for both webmasters and merchants looking for affiliate program information
  • blue cross of california

    • Blue Cross Of California By Truth-about-insurance.com
  • blue cross of california

    • CA Health Insurance By Kramerinsurance.com


  • blue cross of california

    • California Group Medical Insurance - BAA Health Insurance Services is one of the leading producers for Blue Cross of California. We can find you the right Blue Cross of California plan based on your
  • Blue Shield Health Insurance

    • Serving San Jacinto and Hemet
  • Ca Disability

    • We have the reasons why you Choose Disability Insurance.
  • Commercial Insurance Brampton

    • Ace Financial Group is a Certified Financial Planner and one of the largest, most respected and experienced insurance & financial services firm in the country and deliver Best Investment Solutions l


  • Farmers Insurance

    • Serving San Jacinto and Hemet
  • Foremost Insurance Group

    • Serving San Jacinto and Hemet
  • Health Insurance Quotes

    • Expert health insurance advice, learn about health insurance. Online health insurance quote. Affordable health insurance.
  • Health Net Insurance

    • Serving San Jacinto and Hemet


  • Mercury Insurance

    • Serving San Jacinto and Hemet
  • Mexican Car Insurance

    • Safe and secure online processing of insurance for tourists visiting Mexico.
  • Old Republic Title Co.

    • Serving Hemet,San Jacinto and the entire U.S.A.
  • PacifiCare Health Insurance

    • Serving San Jacinto and Hemet


  • Patrion Insurance

    • Serving San Jacinto and Hemet
  • Pick My Health Plan

    • An online resource for health insurance comparison shopping. Shoppers can easily compare plans online instantly and apply for coverage completely on the Internet.
  • Progressive Insurance

    • Serving San Jacinto and Hemet
  • Rehman Insurance

    • Serving San Jacinto and Hemet


  • Safeco Insurance

    • Serving San Jacinto and Hemet
  • The Hartford Insurance

    • Serving San Jacinto and Hemet
  • The Travelers Insurance

    • Serving San Jacinto and Hemet
  • Unitrin Insurance

    • Serving San Jacinto and Hemet