<% dim xmlDoc dim xslDoc Dim objFSO Dim str ' dim dbConn ' set dbConn= server.CreateObject("ADODB.Connection") ' strDNS="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\websider\resadmin\dcu-jf.dk\dcu-jf.dk\db\2003\licenser.mdb" ' dbConn.Open strDNS ' set rst = dbConn.Execute("SELECT Statistik FROM Statistik;") ' if not rst.EOF THEN ' rst.MoveFirst ' str=rst.fields(0).value ' rst.Close ' End If ' dbConn.Close ' 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("/") & "\2005\statistik.xml") ' Load the xsl style sheet Set xslDoc = server.CreateObject("Microsoft.XMLDOM") xslDoc.Load(Server.MapPath("/") & "\2005\statistik.xsl") ' output the formated text str = xmlDoc.transformNode(xslDoc) ' set dbConn= server.CreateObject("ADODB.Connection")' ' strDNS="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\websider\resadmin\dcu-jf.dk\dcu-jf.dk\db\2003\licenser.mdb" ' dbConn.Open strDNS ' dbConn.Execute "INSERT INTO Statistik (Statistik) VALUES ('" & str & "');" ' dbConn.Close Response.Write str ' End If %>