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

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