%@ 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: Real_Estate_Consultants_Real_Estate.asp
'-------------------------------
' Real_Estate_Consultants_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Real_Estate_Consultants_Real_Estate"
pageName = "Real_Estate_Consultants_Real_Estate"
Session("expired") = "No"
%>
<%
' Real_Estate_Consultants_Real_Estate CustomIncludes end
'-------------------------------
'*** TOOLS ***
'** FROM FILE **
root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","")
'Set fso = 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
'** REMOTE XML **
'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
'** REMOTE DATABASE **
'Set Conn = Server.CreateObject("ADODB.Connection")
'Set Rs = Server.CreateObject("ADODB.Recordset")
'Conn.Open "Provider=sqloledb;" & _
' "Data Source=216.127.88.120,2433;" & _
' "Network Library=dbmssocn;" & _
' "Initial Catalog=Accounting;" & _
' "User ID=sa;" & _
' "Password=buckler;"
'rs.Open SQL,conn,1,1
'rs.Close
'conn.Close
'set rs=Nothing
'set conn=Nothing
' Set conn = CreateObject("ADODB.Connection")
' Set rs = Server.CreateObject("ADODB.Recordset")
' filePath = Server.MapPath("AdminMyStuff.html")
' conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filePath
' strSQL = "SELECT * FROM MyListings ORDER BY ID Desc"
' Set rs = conn.Execute(strSQL)
' rs.Movefirst
'rs.Close
'conn.Close
'set rs=Nothing
'set conn=Nothing
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Real_Estate_Consultants_Real_Estate.html"
sTemplateFileName = "Skin/Real_Estate_Consultants_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Real_Estate_Consultants_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"))
' Real_Estate_Consultants_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Real_Estate_Consultants_Real_Estate Close Event begin
' Real_Estate_Consultants_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("Real_Estate_Consultants_Real_EstateMessage") <> "" Then
SetScript "PutYourContentHere","
" & Request("Real_Estate_Consultants_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
'===============================
%>
3d Flash Ablespace.ws Will help you find the best 3D Flash, ABK Sites, Ablespace, PHP Dating, Dating Business.
Apartment Finder Dallas Moving has never been made easier, visit nocostmove.com for apartment finder san Antonio, apartment guide Atlanta, apartment leasing Dallas, Austin apartment search and Houston apartment locator.
California Dui Defense Attorney Duilawyerorangecounty.com attorneys are trained and educated in the unique aspects of DUI defense.
Crude Oil Futures Miesen Development Corp was formed in March 2002 to develop domestic "proven reserves" of oil and natural gas.
Property in India TheLandSmiths.com is an online endeavor to streamline a much chaotic properties market in India. With our efficient service and support of our partners, we are constantly working on to regulate the India property market via this virtual platform.
Rocklin Ca Real Estate Search for homes in Sacramento,Elk Grove counties CA California Real Estate mls listings Homes for sale By Wesellsacramento.com
Sarasota Downtown Condo Welcome to the best source for Sarasota MLS and Bradenton MLS for searching for homes in Sarasota Florida and Bradenton Florida, as well as terrific Sarasota Information, Sarasota County property seShasta County Realtor We offer a wide range of Real Estate services like Redding Homes for Sale in Northern California.
South Miami Beach Condominium We specialize in representing our clients in the purchase and sale of Condominiums, single-family residences and income property within the cities of Miami real estate, South florida real estate, MiSouthern Highlands Homes Welcome to the Las Vegas Homes MLS Search this will be the only tool you will need to find the best value that meets your criteria .We provide free listings of Las Vegas Homes MLS Search For Sale,