topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

professional-xml-25-Access-Products-b-Category.htm / htm



  <HTML xmlns:signature="urn:schemas-microsoft-com:office:access">
  <HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=UTF-8"/>
  </HEAD>
  <BODY ONLOAD="ApplyTransform()">
  </BODY>
  <SCRIPT LANGUAGE="VBScript">
          Option Explicit
  
          Function ApplyTransform()
                  Dim objData, objStyle
                  
                  Set objData = CreateDOM
                  LoadDOM objData, "Products%20by%20Category.xml"
                  
                  Set objStyle = CreateDOM
                  LoadDOM objStyle, "Products%20by%20Category.xsl"
  
                  Document.Open "text/html","replace"
                  Document.Write objData.TransformNode(objStyle)
          End Function
  
          Function CreateDOM()
                  On Error Resume Next
                  Dim tmpDOM
  
                  Set tmpDOM = Nothing
                  Set tmpDOM = CreateObject("MSXML2.DOMDocument.5.0")
                  If tmpDOM Is Nothing Then
                          Set tmpDOM = CreateObject("MSXML2.DOMDocument.4.0")
                  End If
                  If tmpDOM Is Nothing Then
                          Set tmpDOM = CreateObject("MSXML.DOMDocument")
                  End If
                  
                  Set CreateDOM = tmpDOM
          End Function
          
          Function LoadDOM(objDOM, strXMLFile)
                  objDOM.Async = False
                  objDOM.Load strXMLFile
                  If (objDOM.ParseError.ErrorCode <> 0) Then
                          MsgBox objDOM.ParseError.Reason
                  End If
          End Function
          
  </SCRIPT>
  </HTML>
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.