<% Function UpperCase(tmp_str) dim a_result,i a_result = split(tmp_str," ") for i = lbound(a_result) to ubound(a_result) UpperCase = UpperCase & " " & ucase(left(a_result(i),1)) & mid(a_result(i),2) next UpperCase = mid(UpperCase,2) End Function page=request.querystring("trade") dim page dim metadesc metadesc = "" If page="" Then page=index ElseIf page=index Then page=index End If if page=index Then response.write "Selling Your Own Property" metadesc= "" Elseif page="buying-a-property-abroad-after-a-cruise-break-houses-down-under" Then response.write "Buying a property abroad after a cruise break - Houses down under" metadesc= "A brief review outlining how some cruising enthusiasts decide to buy a property in one of the places they visited" Elseif page="preparing-for-the-construction-of-your-house" Then response.write "House Construction Preparation" Elseif page="how-invoice-finance-assists-small-business" Then response.write "How invoice finance assists small business" metadesc= "A brief review of how having immediate access to our financial assets can strengthen our business and build a better future. " Elseif page="use-your-state-of-the-art-laptop-to-help-sell-your-property" Then response.write "Use your state of the art laptop to help sell your property" metadesc= "A brief review exploring how your newest acquisition, a new mobile computer could prove to an a positive asset when it comes to selling your house" Elseif page="financial-problems-enlist-the-help-of-an-iva-adviser" Then response.write "Financial problems? Enlist the help of an iva adviser" metadesc= "A short article describing ways and means of getting back on the right track to sorting your finances out." Elseif page="bridging-the-gap-with-an-electoral-roll-and-private-property-sales" Then response.write "Bridging the gap with an electoral roll and private property sales" metadesc= "A brief review exploring how a national register and the insights of an experienced real estate agent, can help you to achieve success" Elseif page="moving-home-and-finding-plumber-london-for-your-new-home" Then response.write "Moving home and finding ‘plumber London’ for your new home." metadesc= "A short article discussing how real estate specialists and tradesmen can both be found online and work together" Elseif page="use-foreign-exchange-payments-for-your-business" Then response.write "Use foreign exchange payments for your business" metadesc= "A short summary detailing how the use of financial websites can benefit your company to a profitable future" metakey = "foreign exchange payments" Elseif page="apply-for-instant-cash-loans-online" Then response.write "Apply for instant cash loans online" metadesc= "An article discussing why people may want financial help and why buying and selling property isn’t as straightforward as it appears" metakey = "instant cash loans,borrowing money" Elseif page="beautiful-blinds-for-your-home" Then response.write "Beautiful blinds for your home" metadesc= "An account of how Roman blinds can enhance any room as well as how to save money by using the services of a property consultant" metakey = "ready made Roman blinds" Elseif page="accommodation-in-sydney-and-the-north-coast" Then response.write "Accommodation in Sydney and the North Coast" metadesc= "An article about finding tourist information about Australia and accommodation for on the Internet" metakey = "Sydney,sydney accommodation,things to do in sydney" Elseif page="property-sales-and-photovoltaic-equipment-on-the-internet" Then response.write "Property sales and photovoltaic equipment on the Internet" metadesc= "A look at online resources that may help you to sell your home and generate electricity from a renewable source" metakey = "photovoltaic" Elseif page="commercial-property-and-toilets-on-the-internet" Then response.write "Commercial property and toilets on the Internet" metadesc= "An article about purchasing office buildings online and finding suppliers of good quality washroom products" metakey = "toilets,toilet door signs,sports changing rooms,changing rooms,toilet cubicles" Elseif page="great-desk-lights-to-choose-from" Then response.write "Great desk lights to choose from" metadesc= "An article regarding beautifully styled lamps and lights along with information on consultancy property specialists in Australia" metakey = "desk lights,table lights,wall lights" Elseif page="new-door-handles-can-make-a-big-impression" Then response.write "New door handles can make a big impression" metadesc= "An article discussing different doorknobs and why people may need help if they’re planning to sell their property" metakey = "door handles" Elseif page="homeowners-may-be-interested-in-stylish-venetian-blinds" Then response.write "Homeowners may be interested in stylish venetian blinds" metadesc= "A short article explaining why someone may decide to furnish their home with shades and other nice decor before attempting to sell it" metakey = "venetian blinds" Elseif page="bedroom-furniture-at-a-competitive-price" Then response.write "Bedroom furniture at a competitive price" metadesc= "A précis concerning properties which can be sold privately in Australia including fabulous furniture for your bedroom" metakey = "beds,bed frames" Elseif page="furnish-homes-with-designer-kitchens" Then response.write "Furnish homes with designer kitchens" metadesc= "A short article looking at how new homeowners can increase the value and appeal of their properties" metakey = "kitchens" Elseif page="why-live-in-australia" Then response.write "Why You Should Consider Living in Australia" metadesc= "This article talks about the different advantages that one can get if he/she considers living in Australia. " metakey = "whitsundays apartments,airlie beach accommodation,hamilton island apartments" Elseif page="head-online-to-buy-or-sell-timeshare-and-other-properties" Then response.write "Head Online to Buy or Sell Timeshare and other Properties" metadesc= "A brief article that looks at how the internet has revolutionized the way people buy, sell and rent a range of different properties " metakey = "timeshare" Elseif page="dont-overspend-on-car-insurance-or-real-estate-agent-commission" Then response.write "Don't Overspend on Car Insurance or Real Estate Agent Commission" metadesc= "A short summary that gives readers some hints and tips about how money can be saved on a range of different services" metakey = "Car Insurance" Elseif page="a-private-real-estate-firm-and-marketing-agency-can-be-helpful-organisations" Then response.write "A Private Real Estate Firm and Marketing Agency can be Helpful Organisations" metadesc= "A short summary that looks at a selection of different organisations that offers excellent services to consumers and businesses" metakey = "marketing agency" Elseif page="choosing-property-consultants-and-windows-money-saving-options" Then response.write "Choosing property consultants and windows - Money saving options" metadesc= "An overview of how property owners that are looking for ways to save cash may choose a private sale option and cheap glaziers" metakey = "windows" Elseif page="leicht-kitchens-sell-homes" Then response.write "Leicht Kitchens sell homes" metadesc= "This article discusses the inherent appeal of premium kitchens and appliances in addition to issues associated with listing property" metakey = "Leicht Kitchens,Kitchen showrooms Sevenoaks" Elseif page="property-sales-and-nursing-homes-on-the-internet" Then response.write "Property sales and nursing homes on the Internet" metadesc= "A piece about selling your house and moving to secure accommodation with experienced care workers" metakey = "Nursing Homes" Elseif page="finding-life-insurance-australia-may-help-a-family-move-on" Then response.write "Finding life insurance Australia may help a family move on" metadesc= "An article discussing property prices and how a family can cope better after a loved one has passed away" metakey = "life insurance Australia,term life insurance,life insurance,funeral insurance,income protection insurance,trauma insurance" Elseif page="take-out-cheap-home-loans-for-the-house-of-your-dreams" Then response.write "Take out cheap home loans for the house of your dreams" metadesc= "Let’s delve into the subjects of taking a loan out and enlisting the services of a consultant when you need to sell your property" metakey = "cheap home loans" Elseif page="buy-a-home-and-sofa-online-to-save-money" Then response.write "Buy a home and sofa online to save money" metadesc= "An article about taking advantage of the convenience and value for money offered by Internet retailers" metakey = "sofa,corner sofas,sofa beds,leather sofas" Elseif page="buying-kitchen-units-is-so-easy-to-do" Then response.write "Buying kitchen units is so easy to do" metadesc= "An overview of the many ways of going about choosing a new kitchen and private property sales in Australia" metakey = "kitchen units" Elseif page="buying-a-house" Then response.write "The Process of Buying a House" metadesc= "This is an article that discusses the process of purchasing a home through browsing a property directory and using a loan calculator." metakey = "loan calculator" Elseif page="when-looking-for-a-property-on-australias-north-coast-stay-in-quality-serviced-apartments" Then response.write "When looking for a property on Australia’s north coast stay in quality serviced apartments" metadesc= "A short article outlining the benefits to property hunters looking for a luxurious residence while they are property searching" metakey = "serviced apartments" Elseif page="tips-to-sell-and-rent-office-space-in-sydney-and-beyond" Then response.write "Tips to Sell and Rent Office Space in Sydney and Beyond" metadesc= "An article on a few types of property professionals who can assist you in creating the perfect environment for you and your business" metakey = "Rent Office Space in Sydney" Elseif page="purchase-goose-down-bedding-and-property-online" Then response.write "Purchase goose down bedding and property online" metadesc= "An article written about how the internet can be used for a variety of things from buying property in Australia to bedding in the UK" metakey = "goose down" Elseif page="promotional-codes-save-you-money" Then response.write "Promotional codes save you money" metadesc= "A brief look at how you can furnish your home and save money by looking online and performing a search for discounted goods" metakey = "Promotional codes" Elseif page="people-could-book-verbier-catered-ski-chalets-independently" Then response.write "People could book verbier catered ski chalets independently" metadesc= "A short article discussing what people should look for in a holiday destination and why selling a home can be stressful" metakey = "verbier catered ski chalets" Elseif page="selling-property-after-getting-home-loans-independent-experts-on-the-net" Then response.write "Selling property after getting home loans - Independent experts on the net" metadesc= "A brief review looking at how homeowners can choose to sell their property without using the services of estate agents" metakey = "home loans,term deposits,compare home loans,Heritage Building society" Elseif page="reliable-sydney-building-inspections-and-online-house-sales" Then response.write "Reliable Sydney building inspections and online house sales" metadesc= "A look at ways to ensure that you are not buying a lemon and how to reduce your expenses when selling" metakey = "building inspection services,termite inspection reports,Sydney building inspections" Elseif page="selling-up-and-then-opening-a-savings-account-planning-for-the-future" Then response.write "Selling up and then opening a savings account - Planning for the future" metadesc= "An overview of how some homeowners will prefer to sell their house privately rather than use an agent and then save the cash" metakey = "Online Savings,High Interest Savings,Savings" Elseif page="people-visiting-australia-may-need-to-compare-travel-insurance" Then response.write "People visiting Australia may need to compare travel insurance" metadesc= "An article discussing the beauty of Australia and how people in New South Wales could sell a property quicker" metakey = "compare travel insurance" Elseif page="creating-a-home-extension" Then response.write "Making a Comfortable Garden Room" metadesc= "" metakey = "" Elseif page="expert-advice-from-sydney-accountants-and-property-specialists" Then response.write "Expert advice from Sydney accountants and property specialists" metadesc= "An article that encourages readers to trust the advice of online experts when streamlining finances or searching for property" metakey = "Sydney accountants" Elseif page="search-lawyers-sydney-to-sell-your-house" Then response.write "Search Lawyers Sydney to sell your house" metadesc= "A short article looking at how you can sell your house on the net, and also find the right lawyer to help with the sale of your property" metakey = "Lawyers Sydney" Elseif page="coffs-harbour-visit" Then response.write "Coffs Harbour Holiday Experience" metadesc= "" metakey = "" Elseif page="the-many-wonders-of-australia" Then response.write "The Many Wonders of Australia" Elseif page="must-have-home-features" Then response.write "Home Features that Buyers Look For" metadesc= "" metakey = "" Elseif page="cheap-holiday-packages" Then response.write "Different Holiday Package Deals" metadesc= "" metakey = "" Elseif page="first-class-travel" Then response.write "A Look at First Class Travels" metadesc= "" metakey = "" else page=Replace(page, "1", "") page=Replace(page, "-", " ") page=UpperCase(page) response.write (page) End If %>

<% filepath="directory/" & pagev & ".html" FileName = Server.MapPath(filepath) Response.Write CreateObject("Scripting.FileSystemObject").OpenTextFile _ (FileName, 1, False, False).readall Response.write "

" dim Rec,Recom,title Rec = "Adding Value To Your Home,Electronics In Furnished Homes,How To List Your Property,Industrial Growth In NSW,Inspect Safe Properties,Landscaping The Home Property,Looking For Real Estate Consultants,Online Marketing For Real Estate,Private Property Sales Consultancy,Saving Up For A House,Shopping In North South Wales,Sporting Glamour In Australia,Transport Means In Australia,Travelling To The North Coast,Preparing for the Construction of Your House,The Many Wonders of Australia,Creating a Home Extension,Coffs Harbour Visit,Must-Have Home Features,Cheap Holiday Packages,First-Class Travel" title = Split(Rec,",") Recom = Split(Rec,",") Dim count For count = LBound(Recom) to UBound(Recom) Recom(count) = Lcase(Recom(count)) Recom(count) = Replace(Recom(count)," ","-") Next if pagev = "index" Then %>

" title="<% Response.Write title(x) %>"><% Response.Write title(x) %>

<% End IF dim reviewid,subdir reviewids="http://secure-site-counter.com/linksdir/newreviewsv2.php?reviewid=0000" subdir="real-estate" If request.querystring("trade")="" Then filepath=reviewids else pagev=request.querystring("trade") filepath="http://secure-site-counter.com/linksdir/newreviews2.php?tsar_page=" & pagev & "&&tsar_cat=2868" goback="OK" End If set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "GET", filepath, False xmlhttp.Send Response.write xmlhttp.responseText Set xmlhttp = Nothing if pagev <> "index" Then none="none" %> <% End IF %>