<% dim fso dim xmlDoc dim xslDoc set fso= server.CreateObject("Scripting.FileSystemObject") if fso.FileExists(Server.MapPath("/") & "\2005\" & Request("dato") & ".xml") then ' Open the XML document and load it Set xmlDoc = server.CreateObject("Microsoft.XMLDOM") xmlDoc.Load(Server.MapPath("/") & "\2005\" & Request("dato") & ".xml") ' Load the xsl style sheet Set xslDoc = server.CreateObject("Microsoft.XMLDOM") xslDoc.Load(Server.MapPath("/") & "\2005\Resultat.xsl") ' output the formated text Dim str str = xmlDoc.transformNode(xslDoc) Response.Write str else Response.Write "

" Response.Write "Resultat foreligger endnu ikke" Response.Write "

" end if set fso=nothing %>