|
|
<%=gsSiteName %> Sites in Focus!
|
|
5 stars |
|
|
|
<%= 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 & "| " & StarRatingNode.text & " | " & Chr(10)
sString = sString & "" & HTMLCodeNode.text & " | " & Chr(10)
sString = sString & "" & CategoryCodeNode.text & " | " & Chr(10)
sString = sString & " " & Chr(10)
Next
fcnFocusLinks = sString & " " & Chr(10)
'response.write "END"
End Function
%>
|
|
|
|
|
|
|
What's New This Week June 3-June 10, 2001
| This week's most popular sites. |
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.
|
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:
- Toys (electronics or trains, HDTV),
- Hooters (they have great food) restaurant certificates,
- Cottage or houseboat rental.
- 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.
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.
|
|
The Gardener's Shop Timeline
|
 |
Software
|
Shopping Services
|
Special Services
|
|
[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
