XML in FF wel in IE niet

[gebruiker53]

Met behulp van onderstaande code wordt een xml bestand gemaakt.
In FF levert dit geen problemen op en kan ik het xml bestand dan ook gewoon bekijken. Echter in IE krijg ik het volgende

De XML-pagina kan niet worden weergegeven
Kan XML-invoer niet lezen met opmaakmodel XSL. Herstel de fout en klik vervolgens op de knop Vernieuwen of probeer het later opnieuw.
--------------------------------------------------------------------------------
Er is een ongeldig teken gevonden in de tekstinhoud. Fout bij het verwerken van bron http://www.limburgstudeert.nl/xml/ictl...

<OPLEIDINGNAAM>OOF Object Ori

Wat iemand wat ik fout doe, waardoor de XML niet in IE wordt weergegeven maar een foutmelding oplevert??

<%
SQL="select ople_name, ople_Start, Inst_ID, Ople_Categorie, Ople_id, ople_startaanvraag, ople_periode from oplelist where Inst_ID=89 or Inst_ID=79 or Inst_ID=45 and Ople_Categorie=1 ORDER BY Inst_ID"
set rsdoc=ConnBasis.execute(SQL)

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(serverPath & "/xml/ictloket.xml", True)
a.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
a.WriteLine("<OPLEIDINGEN>")
	while not rsdoc.eof
		a.WriteLine(space(3) & "<INS ID='" & rsdoc("Inst_ID") & "'>")
		a.WriteLine(space(6) & "<OPLEIDINGNAAM>"& rsdoc("ople_name") & "</OPLEIDINGNAAM>")
		a.WriteLine(space(6) & "<URL><a href='http://www.limburgstudeert.nl/detail_opleiding.asp?oID="&rsdoc("Ople_ID")&"'>"& rsdoc("ople_name") & "</a></URL>")
	If rsdoc("Ople_start")<>"" and rsdoc("Ople_start")<>"1-1-2001" then
		a.WriteLine(space(6) &"<OPLEIDINGSTART>" & rsdoc("Ople_start")&"</OPLEIDINGSTART>")
	elseif rsdoc("ople_periode")<>"" then
		a.WriteLine(space(6) &"<OPLEIDINGSTART>" & rsdoc("Ople_periode")&"</OPLEIDINGSTART>")
	else
		a.WriteLine(space(6) &"<OPLEIDINGSTART>" & rsdoc("Ople_startaanvraag")&"</OPLEIDINGSTART>")
	end if
		a.WriteLine(space(3) & "</INS>")
		rsdoc.movenext
	wend
a.WriteLine("</OPLEIDINGEN>")
a.Close
set a=Nothing
set fs=Nothing
Set rsdoc=Nothing

ConnBasis.Close
Set ConnBasis=Nothing
%>