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

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

Cas Protocol TeleSoft licenses well-proven source code for Basic Rate ISDN (BRI ISDN) and Primary Rate ISDN.TeleSoft engages in the full cycle of product development to better understand customer issues and prov	Cheap Toner Cartridges 123Inkjets is dedicated to bringing you high quality inkjet printer cartridges & laser toner, photo paper, and other inkjet printer supplies at a great savings.	Dating Software Dating Software & Community Software. Free installation, lifetime upgrades, numerous features. The most advanced personals script on the Web.	Developing Custom Software Digital Sabre Solutions LLC is an accomplished software development and application development company located in charlotte, NC--also providing outsource software applications.

Pool Tile Tropicalheating.com specializes in Swimming Pool Equipment,Solar Pool Heating, Pool Heat Pumps, and Electric Pool Heaters.	Social Network Software Abledating-designs.com provides Free Online Dating Business Opportunity & Able Dating Site Designs to you for best performance in your business organition	Toms Hardware Premeire computer information and news site	Voip Service PAETEC is a Communications provider of broadband services,Including voice, video, enhanced data, communications management services, and customer premise equipment. Our Customers are medium/large bu

Web Design Company Ditley Web Design (DWD) is a professional Chicago Web Design company that specializes in website design, website development, logo design.	Web Design India We provide the best Internet marketing services found anywhere and we build reliable, innovative software to complement your marketing and business initiatives.