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