<%
content = ""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load (Server.MapPath("docs/DBBOOKS_Genre.xml"))
Set books = objXML.getElementsByTagName("DBBOOKS_Genre")
For i = 0 to (books.Length-1)
content = content & books.item(i).childNodes(0).text & ", "
Next
Response.Write ""
%>
Denysé BridgerAward-Winning romance and fantasy author Denysé Bridger
<%
content = ""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load (Server.MapPath("docs/DBBOOKS_Genre.xml"))
Set books = objXML.getElementsByTagName("DBBOOKS_Genre")
For b = 0 to (books.Length-1)
content = content & books.item(b).childNodes(0).text & ", "
Next
Set objXMLB = Server.CreateObject("Microsoft.XMLDOM")
objXMLB.Load (Server.MapPath("docs/DBBOOKS.xml"))
Set booksT = objXMLB.getElementsByTagName("TITLE")
Set booksI = objXMLB.getElementsByTagName("ISBN")
Set booksC = objXMLB.getElementsByTagName("COVER_ARTIST")
For t = 0 to (booksT.Length-1)
Set bTitle = booksT.item(t).childNodes
content = content & bTitle(0).text & ", "
Next
For i = 0 to (booksI.Length-1)
Set isbn = booksI.item(i).childNodes
content = content & isbn(0).text & ", "
Next
For c = 0 to (booksC.Length-1)
Set ca = booksC.item(c).childNodes
content = content & ca(0).text & ", "
Next
Response.Write ""
%>