class blogxmldom
dim blogdom,blogtitle,bloglink
Private Sub Class_Initialize
set blogdom=createobject("Microsoft.XMLDOM")
blogdom.async=false
blogdom.load "c:\bloginfo.xml"
end sub
function findxslt()
set blogchild=blogdom.getElementsByTagName("blogxsltname")
blogchildlen=blogchild.item(0).childNodes.length
for i=0 to blogchildlen-1
blogxsltsel=blogchild.item(0).childNodes(i).getAttribute("selected")
if blogxsltsel="yes" then
findxslt=blogchild.item(0).childNodes(i).text
exit for
end if
next
end function