<%@ language = "VBScript" %>
<% option explicit %>
My Books
<% writeBooks %>
<%
sub writeBooks
dim xmlDocument
dim xPath
dim book
dim books
dim bookTitle
dim bookAuthor
dim bookDescriptionNode
dim bookDescription
dim xhtml
xhtml = ""
set xmlDocument = getXml("books.xml")
xPath = "//book"
set books = xmlDocument.selectNodes(xPath)
for each book in books
bookTitle = book.selectSingleNode("title").text
bookAuthor = book.selectSingleNode("author").text
set bookDescriptionNode = _
book.selectSingleNode("description")
if bookDescriptionNode is nothing then
bookDescription = "(No description available)"
else
bookDescription = bookDescriptionNode.text
end if
xhtml = xhtml & "" & _
bookTitle & "
" & _
"" & bookAuthor & "
"
xhtml = xhtml & "" & bookDescription & "
"
next
response.write xhtml
end sub
%>