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

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

Warrenton Real Estate -

Birmingham Plumbers Plumbers in Birmingham For Plumbers in London visit our Plumbers in Birmingham website.	Centreville Concrete & Resurfacing Residential Concrete Work; Driveways, sidewalks, patios and garages.	Crema Marfil White Marble - Visitors please visit here to see our exclusive samples of beautiful Crema Marfil Marble, Crema Marfil Marble Border, White Crema Marfil Marble, Marble Relief Carving.	Home Windows Specialists in residential and commercial wood windows and doors, as well as glass and aluminium facades and curtain walls.

Kitchen Remodeling Find kitchen design product information, kitchen remodeling, kitchen design retail, and kitchen design resources for your home improvement.	Replacement Windows You need to know how to install replacement windows.	Roofing Welcome to MGAroofing.com, here you will find information about Siding Shelby Township, Vinyl Siding Removal, Aluminum Window Replacement, Vinyl Window Installation	Solar Panels Solar panels - It is possible that installing solar panels to use at home could be a money-saving idea, but it is wise to do your research first

Quick Links

HOME PAGE

Resources

ABOUT ME
LOCAL PARTNERS
USE A REALTOR
TESTIMONIALS
SCHOOL INFORMATION
LOCAL NEWS
MOVIE TIMES

Home Search

HOMES FOR SALE
FEATURED LISTINGS
NEW LISTING ALERT

Real Estate Tools

15 SECOND APPRAISAL
CALCULATORS
REAL ESTATE GLOSSARY
HOME FINANCE
TODAY'S RATES

Real Estate Info

HOME BUYING
SELLING A HOME
FREE REPORTS
FREE FORMS