<%@ 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_Design_&_Repair_Real_Estate.asp
'-------------------------------
' Home_Design_&_Repair_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Home_Design_&_Repair_Real_Estate"
pageName = "Home_Design_&_Repair_Real_Estate"
Session("expired") = "No"
%>
<%
' Home_Design_&_Repair_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 = "Home_Design_&_Repair_Real_Estate.html"
sTemplateFileName = "Skin/Home_Design_&_Repair_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Home_Design_&_Repair_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_Design_&_Repair_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Home_Design_&_Repair_Real_Estate Close Event begin
' Home_Design_&_Repair_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("Home_Design_&_Repair_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
'===============================
%>
Destin Real Estate - Destin Florida
The auto accessory super shop. Feauring car accessories , truck accessories, headlights, euro tail lights, altezza taillights, clear corner lights, car covers, car alarms, projector headlights, remo
We provide Domestic and Commercial Cleaning to all of the London postcodes, our Professional Cleaners are fully trained and insured to provide Domestic Cleaning Agency, Home Cleaning, Carpet & Upholstery Cleaning.
AJ Coolrooms has a simple goal, to provide Australia''s best coolrooms at Australia''s best prices. AJ Coolrooms can meet your coolroom needs. From a simple DIY coolroom kit, all the way to a large st
Complete home applainces store with Washer, Stove, Microwave, Fridge, Dryer, grill, Juicer, Toaster, Mixer, Grinder,Fans,Aircoolers,WaterFilters,Lamps,Clocks.
Smart Haus offers the best in kitchen fitters, bedroom designers and installation, bathroom furniture, refurbishment service throughout the areas of Bedford, Milton Keynes, and Buckinghamshire.
Address
Smart Haus
The Old Print Works, NN16 8RE
6 Canon Street, Kettering,
Northants
United Kingdom NN16 8RE
Phone: 01536 514 800
Email: sales@smart-haus.co.uk
Smart Haus are specialists kitchen fitters and bedroom Designers offers refurbishment services in Northampton, Corby, Kettering and the whole of the Northamptonshire UK.
Address
Smart Haus
The Old P
Loft conversions and loft extensions in Harrow, Middlesex UK. Attic contractors and builders. At Pierson and Tait our designers plan conversions to your specifications and requirements, working within the practical constraints of your loft or attic.
Unique gifts and home decor for women, holidays, and other occasions including birthdays, weddings, Christmas, Hanukkah, anniversaries, thank you, and pet love.
Brookvale Plumbing & Heating! We are a fully qualified gas safe company, and have been providing quality plumbing work in Coventry, Rugby, Leamington Spa, Bedworth to excellent standard for many years. Call now for a great quality quote
