<% dim xmlDoc dim xslDoc Dim objFSO Dim str ' dim dbConn ' If Len(str)>0 Then ' Response.Write str ' Else ' Open the XML document and load it Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") xmlDoc.Load(Server.MapPath("/") & "\2009\statistik.xml") ' Load the xsl style sheet Set xslDoc = server.CreateObject("Microsoft.XMLDOM") xslDoc.Load(Server.MapPath("/") & "\2009\statistik.xsl") ' output the formated text str = xmlDoc.transformNode(xslDoc) Response.Write str ' End If %>