<%=gsSiteName %> Sites in Focus!

5 stars

null

<%= fcnFocusLinks("http://www.marco-software.com/BPC/XMLs" & "/" & gsXMLFocusFileName) %> <% Function fcnFocusLinks(strFilename) Dim bgColor,strXMLFile,objRoot,sString Dim objNode, HTMLCodeNode,CategoryCodeNode,StarRatingNode Dim objXML, objLinkcode, objCategory, i, objNodeList Dim blnLoaded Dim URL, count, counter ' response.write strFilename URL = strFilename Set objXML = Server.CreateObject("MSXML2.DOMDOCUMENT.4.0") 'Using the "server-safe" ServerXMLHTTP component to load the document to the server. 'ServerXMLHTTP only supports synchronous loading; objXML.setProperty "ServerHTTPRequest", True objXML.async = False objXML.Load(URL) If objXML.parseError.errorCode <> 0 Then Response.Write(objXML.parseError.reason) Response.Write(objXML.parseError.errorCode) End If ' strXMLFile=strFilename ' Set objXML = Server.CreateObject("MSXML2.DOMDocument.3.0") ' response.write "A" & strFileName ' objXML.async = False ' response.write "B" ' objXml.setProperty "ServerHTTPRequest", true ' response.write "C" ' blnLoaded = objXML.Load (strXMLFile) ' Response.Write "XML file loaded: " & blnLoaded & "
" ' If objXML.parseError <> 0 Then ' strError = "INVALID XML FILE !" _ ' & "File URL: " & objXML.parseError.url _ ' & "Line No.: " & objXML.parseError.Line _ ' & "Character: " & objXML.parseError.linepos _ ' & "File Position: " & objXML.parseError.filepos _ ' & "Source Text: " & objXML.parseError.srcText _ ' & "Error Code: " & objXML.parseError.errorCode _ ' & "Description: " & objXML.parseError.reason ' 'Debug.Print strError or msgbox strError ' End If 'Set root object (points to page tag) Set objRoot = objXML.documentElement bgColor="gsSiteColor" I = 0 sString = "" & Chr(10) ' Loop each Link data ' response.write "E" Set objNodeList = objRoot.selectNodes("*") ' response.write "F" For Each objNode in objNodeList ' response.write "G" & chr(10) I = I + 1 'display Message If bgColor="#dbdbdb" Then bgColor="#808080" Else bgColor="#dbdbdb" End If sString = sString & "" & Chr(10) ' response.write "G" set StarRatingNode = objNode.getElementsByTagName("StarRating").item(0) set HTMLCodeNode = objNode.getElementsByTagName("HTMLCODE").item(0) set CategoryCodeNode = objNode.getElementsByTagName("CategoryCode").item(0) sString = sString & "" & Chr(10) sString = sString & "" & Chr(10) sString = sString & "" & Chr(10) sString = sString & "" & Chr(10) sString = sString & "" & Chr(10) Next fcnFocusLinks = sString & "
" & StarRatingNode.text & "" & HTMLCodeNode.text & "" & CategoryCodeNode.text & "
" & Chr(10) 'response.write "END" End Function %>
 
 
 
New! The Gardener's Shop 's 100 links. Add your link for free. We have a new Wine and Food Shop!

Please pay it a visit!
Would you like have you ad on this page?
  Previous "What's New"
  Gardener's Shop : What's New at the Gardener's Shop

 What's New This Week June 3-June 10, 2001

This week's most popular sites.
Site Hit Counts
ELPCO Inc. 60
Daily Futures 28

What's New This Week June 3-10, 2001

Introduction

Welcome to Father's Day. Since I am a Father then I will have to make this short. 

Amazon Boxes

The Gardener's Shop has also started to display products found on Amazon.Com. They have more than books: they have baby products and Music and Software. Below you will find a link to Amazon.com.


In Association with Amazon.com

 

Countdown to a Gardener's Journal Software winner is  99.

 

What's New This Week May 27-June 2, 2001

Introduction

This is  the very first edition of What's New at the Gardener's Shop. I hope that you make the Gardener's Shop a place you frequent. For most of you, you either have a father (Flesh or test tube) or you have a new father around the house, you better start thinking about Father's Day June 17, 2001, so visit our Father's Day page to give you some ideas. Don't forget you must add some mail delivery time to your internet shopping. A couple of ideas from Marco Software could be Gardener's Journal Software, Photographer's Journal Software, Wine Taster's Journal Software, and T-Minus (count down to their retirement) It takes 3-5 day for delivery.

Introduction

Visit our Father's Day page.

Please do not forget your Daddy next weekend. Ignore the following gifts:  neckties (except from three year olds, we love those) car washing brushes, Circular Saw blade wall clock (I saw this one in a flyer), oh, and no singing fish and I do not want to hear "he has everything". 

And when he says "I can't think of anything" translate it to "I want blank  but I know you won't buy it for me", so insist, he wants you to.

Keywords to remember: 

  1. Toys (electronics or trains,  HDTV), 
  2. Hooters (they have great food) restaurant certificates, 
  3. Cottage or houseboat rental
  4. Software (Gardener's Journal Software, Photographer's Journal Software, Wine Taster's Journal Software, and T-Minus)

 Father's Day June 17, 2001 

Search Boxes

Soon, you will notice a Search box, see below, in many departments. When a visitor gets through all the pages within a category and have not found what they are looking for, then there will be a search box with which they can continue their search. Go ahead and give it a try. Place a keyword in the text box and click the Green Circle with the white arrow.

 

Dailyfutures.com Presents
Agriculture
Visit Dailyfutures.com

Mailto: dailyfutures@peoplepc.com
Home Page: http://www.dailyfutures.com/

 

Countdown to a Gardener's Journal Software winner is  99.

 


Previously on What's New at the Gardener's Shop

What's New This Week May 27-June 2, 2001

Introduction

This is  the very first edition of What's New at the Gardener's Shop. I hope that you make the Gardener's Shop a place you frequent.For most of you, you either have a father (Flesh or test tube) or you have a new father around the house, you better start thinking about Father's Day June 17, 2001, so visit our Father's Day page to give you some ideas. Don't forget you must add some mail delivery time to your internet shopping. A couple of ideas from Marco Software could be Gardener's Journal Software, Photographer's Journal Software, Wine Taster's Journal Software, and T-Minus (count down to their retirement) It takes 3-5 day for delivery.

Dailyfutures.com Presents
Agriculture
Visit Dailyfutures.com

Mailto: dailyfutures@peoplepc.com
Home Page: http://www.dailyfutures.com/

 

Countdown to a Gardener's Journal Software winner is  100.

What's New this Week

Would you like to have your site on this page? 

Join our Affiliate Program


The Gardener's Shop Timeline


A New Home


The House


The Garden


External Events

Architecture Appliances Agriculture Crafts
Financing Bath and Shower Birds Collectibles
Insurance Bedding Books Free Stuff
Mortgage Home Improvement  Decor Weather
Real estate Computers Furniture
Real estate Land Flooring Furniture Design
Rebuilding and Remodeling Furniture Landscaping
Furniture Design   Garden Plants
Hardware Flowers
  Home Deco Pests Control  
Home Decorating Ponds Fountains 
Lighting Seeds
Painting Software  
Pests Control Trees
Pets Yard Projects
Plumbing   Work Wear
Safe and Secure  
Software
Utilities
 Windows
Marco Software

Software

Dieter's Journal
MomToBe's Journal
Gardener's Journal
Photographer's Journal
Wine Lover's Journal
Golfer Journal
Bird Watcher's Journal
Copy-Zit
T-Minus
TakeTurnz

Shopping Services

Stork's Store
Gardener's Shop
Photographer's Shop
Wine and Food Shop
Sporting Shop
Marco Bird Watcher Shop
4 Wheel Baby
Marco's Market
Small Bytes
Webmaster's Webtools

Special Services

   
Free Email
Guest Book Sign In
Guest Book View
Search for

Our Software| Sports Fan | Parenting | Gardeners | Car Lovers  | Photographers | Wine and Food |Bird Watcher| Webmaster Tools | Just Shopping! | Low Bandwidth| Save Money Guest Book | Free Email  

[Include/PageCounter.htm]

We love Feedback! EMail: admin@gardeners-shop.com copyright 1998-2008 Marco Software. All Rights Reserved

Page Updated: March 08, 2008 10:35:12 AM

Back to Top