Error ved file write() grundet underlige tegn

Løste det ved først at HTMLEncode hele kode-strengen, for dernæst at decode den, så alle tags blev decodede:

Function HTMLDecode(sText)
    Dim I
    sText = Replace(sText, """, Chr(34))
    sText = Replace(sText, "<"  , Chr(60))
    sText = Replace(sText, ">"  , Chr(62))
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, " ", Chr(32))
    For I = 1 to 255
        sText = Replace(sText, "&#" & I & ";", Chr(I))
    Next
    HTMLDecode = sText
End Function

' Skriver så:
fname.Write(HTMLDecode(Server.HTMLEncode(cont)))

Kom gerne med bedre og mere korrekte løsninger :)