Udskrive & tegn til dynamisk XML fil

har du prøvet at erstatte "&" med "&" ?

Jeg har fundet en løsning på problemet og den er lidt i den retning du beskriver.
<%
Function conv(streng)
    tmp = Replace(streng, "&" , "&amp;")
    tmp = Replace(tmp, "<" , "&lt;")
    tmp = Replace(tmp, ">" , "&gt;")
    conv = tmp
End Function

Do While Not rsXML.EOF
Response.Write "<Kunde> "
Response.Write "<KundeID>" & rsXML("KundeID") & "</KundeID> "
set KundeNavn = rsXML("KundeNavn")
Response.Write "<KundeNavn>" & conv(KundeNavn) & "</KundeNavn> "
set KundeAdresse = rsXML("KundeAdresse")
Response.Write "<KundeAdresse>" & conv(KundeAdresse) & "</KundeAdresse> "
Response.Write "<KundePostnr>" & rsXML("KundePostnr") & "</KundePostnr> "
Response.Write "<KundeBynavn>" & rsXML("KundeBynavn") & "</KundeBynavn> "
Response.Write "</Kunde> "
rsXML.MoveNext
Loop
%>