Vad är det för fel?!?!?

[MR.JR]

<%@ Language=VBScript %>
<%

Dim xmldok, xsldok, nodlista, nod, xmldoku, xsldoku, text, xmltaktnamn, xmldossienr, xmlsok, xslsok


If Request.ServerVariables("REQUEST_METHOD") = "GET" then
xmlsok=Request.Querystring("xmldokument")
xslsok=Request.Querystring("xsldokument")
xmldossienr=Request.Querystring("dossienr")
xmltaktnamn=Request.Querystring("taktnamn")
else
xmlsok=Request.form("xmldokument")
xslsok=Request.form("xsldokument")
xmldossienr=Request.Form("dossienr")
xmltaktnamn=Request.Form("taktnamn")
end if


if xmlsok <>"" then
set xsldoku=Server.CreateObject("Microsoft.XMLDOM")
set xmldoku=server.CreateObject("Microsoft.XMLDOM")
set nodlista=Server.CreateObject("Microsoft.XMLDOM")

xsldoku.async=false
xmldoku.async=false

if xmldoku.load(server.MapPath(xmlsok)) then
if (xmldossienr="") and (xmltaktnamn="") then
if xslsok<>"" then
if xmldoku.load(server.MapPath (xslsok))=false then
Response.Write "1 Kan ej ladda XSL-filen"
else
text = xmldoku.transformNode(xsldoku.documentElement)
Response.Write text
end if
else
text=replace(xmldoku.xml, "<?xml version=""1.0""", "<?xml version=""1.0"" encoding=""ISO-8859-1""")
end if

elseif xmldossienr<> "" then
set nodlista = xmldoku.selectnodes("TaktDB/Takt_takt[dossienr='"&xmldossienr&"']")
Response.Write "Antal träffar: "& resultat.length '& "<br><br>"

if xsldoku.load(server.MapPath(xslsok))=false then
Response.Write "2 Kan ej ladda XSL-filen"
else
for each nod in nodlista
text = replace(replace(nod.xml, "<", "<"), ">", "><br>")
text= replace(text, "</", "<br></")
next
end if
end if
else
Response.Write "3 Kan ej ladda XML-filen"
end if

else
Response.Write "4 XML-filen ej angiven"
end if

------------------
//Jimpan

[MR.JR]

Felet blir:
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'transformNode'

/asp/grp2/sbg019/tabell/dokument.asp, line 34


------------------
//Jimpan

[SPiN]

Borde det inte vara

text = xmldoku.transformNode(xsldoku)


------------------
SPiN, bjorne.w@telia.com

-- Man vinner inte silver, man förlorar guld --