---
title: "Vad är det för fel?!?!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/xml/5241-vad-är-det-för-fel"
topic: "XML"
topic_url: "https://www.webforum.nu/amne/xml"
author: "MR.JR"
published: "2001-11-28T15:57:00.000Z"
updated: "2001-11-28T16:11:00.000Z"
replies: 2
views: 441
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/xml/5241-vad-är-det-för-fel"
---

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

## #1 — MR.JR, 2001-11-28T15:57Z

\<%@ 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

Permalänk: https://www.webforum.nu/p/5241

## #2 — MR.JR, 2001-11-28T15:58Z

Felet blir:
Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'transformNode' 

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

Permalänk: https://www.webforum.nu/p/238200

## #3 — SPiN, 2001-11-28T16:11Z

Borde det inte vara

```
text = xmldoku.transformNode(xsldoku)
```

Permalänk: https://www.webforum.nu/p/238201

---

Tråden på webben: https://www.webforum.nu/amne/xml/5241-vad-är-det-för-fel