<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8" 
Set xmldoc = CreateObject("Msxml.DOMDocument")
xmldoc.Async = false
xmldoc.Load(Server.MapPath("lang.xml"))
Set xsldoc = CreateObject("Msxml.DOMDocument")
xsldoc.Async = false
xsldoc.Load(Server.MapPath("lang.xsl"))
Response.Write xmldoc.TransformNode(xsldoc)
%>