<%@ 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: Realtors_-_General_Real_Estate.asp
'-------------------------------
' Realtors_-_General_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Realtors_-_General_Real_Estate"
pageName = "Realtors_-_General_Real_Estate"
Session("expired") = "No"
%>
<%
' Realtors_-_General_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 = "Realtors_-_General_Real_Estate.html"
sTemplateFileName = "Skin/Realtors_-_General_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Realtors_-_General_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"))
' Realtors_-_General_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Realtors_-_General_Real_Estate Close Event begin
' Realtors_-_General_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("Realtors_-_General_Real_EstateMessage") <> "" Then
SetScript "PutYourContentHere","
"
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
'===============================
%>
1 of 10 photos BlairsvilleGA For Sale $148,0002 Beds / 2 Baths
Immaculate Condition. All One Level Living !! 2 Master Suites Plus Finished Bonus Room with Heat and AC ( Could Easily Add a Bath) for a Third Bedroom...
1 of 12 photos BlairsvilleGA For Sale $289,0005 Beds / 5 Baths
Stunning killer year round mountain views await you in this immaculate mountain home. Capture the skyline off of your large front rocking chair porch. Open great room with beautiful stone fireplace...
1 of 15 photos BlairsvilleGA For Sale $289,9003 Beds / 2 Baths
Remarks : All One Level w/ Stunning Year Round Lake and Mountain Views!! 11 Ft Ceilings Throughout with Cathedral Ceilings in the Living Room and Bedrooms...
www.1stkidswholesale.co.uk is your one stop shop for baby whole sale clothing with fine quality - available with all top brands Barbie, Ben 10, Disney, Peppa Pig, fifi, Scooby Doo, high school musical, bob the builder and many more
27,893 Indianapolis homes for sale and other Indianapolis real estate for sale with up to 20 photos of each MLS listing. Search by Indianapolis map, central Indiana city, township, zip code and more.
Design 911 supply Porsche parts, Porsche spares and Porsche accessories, to both retail and to the trade. Our Porsche product and accessory range includes brakes, exhausts, tyres, wheels and Porsche panels and interiors.
Equal Housing Opportunity -
Blairsville Real Estate
©2010 All Rights Reserved -
Privacy Statement