<%@ 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","")
'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
'===============================
%>
Home | Free Reports | Free Forms | Financing | About | Local
Info | Search
| Partners
| Login
| Contact
| Tools
| Relocation
Equal Housing Opportunity - buyclarksville.com Inc. 2003 All Rights Reserved - Privacy Statement
The Vaughn Team - 2106 C Trenton Road, Clarksville, TN 37040 - 1-877-VAUGHN-9
