<%@ 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: Misc_Real_Estate.asp
'-------------------------------
' Misc_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Misc_Real_Estate"
pageName = "Misc_Real_Estate"
Session("expired") = "No"
%>
<%
' Misc_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 = "Misc_Real_Estate.html"
sTemplateFileName = "Skin/Misc_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Misc_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"))
' Misc_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Misc_Real_Estate Close Event begin
' Misc_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("Misc_Real_EstateMessage") <> "" Then
SetScript "PutYourContentHere","
" & Request("Misc_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
'===============================
%>
New Page 1
Quick Search
Homes
Price Range:
from:
to:
Beds:
Baths:
Cheryl-Lynne McInnes Prudential CA Realty 310-721-4052 Clmcinnes@aol.com
JustMyShopping.com is your online superstore for home and office furniture such as Living Room Sofas, Entertainment Centers, Modular Bush Furniture and Boss Office Star Chairs at the lowest prices.
George J. Watts and Associates provides cost effective consulting and expert witness services to attorneys in matters of practice relating to financial institutions.
Europa Casino ?no dei pi?i e sicuri tra i casin?line esistenti nel web. Con la pi?ia scelta di giochi: blackjack, slot machines, roulette, video poker, craps.
Foam Cutting Machinery, Inc. helps you to find the lowest prices on high quality Foam Cutters, CNC Foam Cutting, Foam Packing, Foam Machines,Polyurethane Foams and Cut Foam.
Will help you find the best Insurance Policy in Long Term Disability Insurance, Disability Income Insurance Quote, Disability Income Protection, Disability Income Insurance.
Buy natural skincare products and organic skincare products from Australia at Planet Blue, the UK online store for natural products to help sensitive skin from top brands such as Hope''s Relief Cream
A leader in top quality on-site rapid test devices that include drug and alcohol testing, women''s health and clinical diagnostics. Our products are easy to use, convenient to store and deliver accur
Mohawk USA is a diversified manufacturing company of industrial tools focused on product quality and innovation while always delivering the best value to our customers.
Founded by Dr. Yannis Kelemenis, an Oxford graduate and Rhodes Scholar, Kelemenis & Co. is an Athens-based law firm providing quality legal services in the key corporate and commercial areas.
We have been selling Stained Glass Paints for over 23 years to Centerpiece Decorative Flower Vase, Glass Cleaner and Hand Painted Martini Glasses Art worldwide.
Specialize in first time buyers, investment properties, rental properties, 1031 tax exchanges, 401k tax investments properties, and residential home and land sales!
As a guest of BigIslandPremierProperties.com in one of our private villas or homes, you will enjoy access to one of the most exclusive vacation communities in the world.
Most Holy Family Monastery is the most visited traditional Catholic website in the world! We address all aspects of Catholicism including Catholic Churches Catholic Mass Catholic Bible and Latin Mas
Free printable federal and state income tax forms and income tax preparation software with free efile, print or download IRS Tax Form 1040 1040A 1040EZ, prepare and efile taxes online
Grand Staff Piano Centers is the exclusive authorized representative for new and used Yamaha Piano, Yamaha Clavinova, and Yamaha Disklavier for Dallas Fort Worth Metroplex
DriversEDonline.com offers a variety of Online Driver Education Classes and even some educational driver education online games available for California, Florida and Texas.
InternetDatingUSA.com provides single women and single men access to free trials, reviews, and information about both offline and online dating services.
DBSmedia.com is your source for all your Document Management Output Needs including Data Encryption and Archiving Software, Business Forms, Printing, Fax Software, and Secure Email Servers.
TheMayanGate.com is your entrance to the Mayan World including Discount Cancun Travel Packages and information about Tours such as our Chichen Itza Tours.
After school program supplies for after school classroom and summer school activities. Back to school supplies like backpacks, art supplies, first aid kits, learning games, and teaching kits.
Online Europa Casino is the #1 in entertaining Online gambling that offers the most generous bonuses, promotions and highest pay- outs in the industry.
??
