<%@ 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() 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("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 '=============================== %>

Beaufort Real Estate -

Car Insurance Quote Get quote car insurance and save up to $600 monthly.	Insurance Quotes Save money and time by comparing free insurance quotes online. Cheap auto, health, life, home, renters, disability, cancer, long term care policy rates.	Life Insurance For Over 50s Fast Term Life Insurance Quotes Provided By fast-life-insurance.com always here for all your life Insurance needs.	Life Insurance Quote Term Life Insurance Database at Wholesale Insurance: Compare life insurance quotes and term life insurance rates from ALL top life insurance companies.

Life insurance quotes Free insurance quotes, get one today! Compare online auto insurance quotes from top companies.	Online Insurance Free Online Insurance Quotes - Find and Compare Insurance rates, Get free quotes from Health Insurance, Car insurance, Life & Term Insurance, Homeowners Insurance and more providers.	Payroll Outsourcing Our services include payroll processing, Payroll Services New York, human resources, risk management, tax compliance, labor compliance, claim services, health and retirement benefits, and much more.

Home Search

Featured Listings

Newsletter

Buyers

Sellers

Property Alert

Reports

Home Valuation

Financing

Tools

Blog

Contact

About

Login