<%@ 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: Business_Real_Estate.asp
'-------------------------------
' Business_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Business_Real_Estate"
pageName = "Business_Real_Estate"
Session("expired") = "No"
%>
<%
' Business_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 = "Business_Real_Estate.html"
sTemplateFileName = "Skin/Business_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Business_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"))
' Business_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Business_Real_Estate Close Event begin
' Business_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("Business_Real_EstateMessage") <> "" Then
SetScript "PutYourContentHere","
" & Request("Business_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
'===============================
%>
B2B Portal, AllMightyTrade Provide A Trade Platform for International Market place, B2B Buy, Sell and trade offers, Trade leads,Import & Export Trade Leads, B2B Auctions, Business Directory, Yellow Pages, Manufacturers and Service Providers, Importers and Exporters.
Restsearch.com is the world''s largest restaurant for sale, multi-unit, single unit restaurant database of restaurant for sale and the site of the National Restaurant brokers.
VFS Global serves diplomatic missions by managing all the administrative and non-judgmental tasks related to the entire lifecycle of a visa application process, enabling diplomatic missions to focus
Responsemaker.com is your source for targeted Direct Marketing Lists for any industry including Homeowners, Financial, Loan, and Mortgage Marketing and Mailing Lists. The possibilities of your direc
Marco is a professional photographer and currently lives in Advertising Photographers London, Architectural Photography England, Digital Photographer UK, Glamour Photographer London UK, and Profess
Bulldog Mobile Billboards provides an outdoor advertising medium in Dallas Texas 75205 area and Fort Worth Texas with scrolling mobile truck side billboards in and around the Metroplex.
Liberty Motor Company conversion is designed with the goal of providing affordable, safe, reliable and convenient mobility alternatives for people with disabilities.
Welcome to BuyHeatShrink.com, here you will find information about Plastic Heat Shrink Tubing : Braided Wire Sleeving : Nylon Wire TIE, Expandable Sleeving.
irishbrigadepb.com is your source for the best prices on Paintball Guns and Accessories including Markers, Barrels, Hoppers, Paint and Smart Parts Paintball Guns!
