After numerous failures getting through the http://feedvalidator.org because of some remnants left by word or other text editors, I implented the replacement function found at http://www.texaswebdevelopers.com/examples/sql-injection-protection.asp.
For the german text we work on it was changed slightly to include german umlaute.
Here’s the function:
FUNCTION htmlEntities(strString)
Dim strOutput
strOutput = strString
strOutput = replace(strOutput,Chr(10),””)
strOutput = replace(strOutput,Chr(13),””)
strOutput = replace(strOutput,”&”,”&”)
strOutput = replace(strOutput,”‘”,”'”)
strOutput = replace(strOutput,”§”,”§”)
strOutput = replace(strOutput,”©”,”©”)
strOutput = replace(strOutput,”®”,”®”)
strOutput = replace(strOutput,”¦”,”¦”)
strOutput = replace(strOutput,”‘”,”"”)
strOutput = replace(strOutput,”<“,”<”)
strOutput = replace(strOutput,”>”,”>”)
strOutput = replace(strOutput,”–”,”–”)
strOutput = replace(strOutput,”—”,”>”)
strOutput = replace(strOutput,”‘”,”‘”)
strOutput = replace(strOutput,”’”,”’”)
strOutput = replace(strOutput,”“”,”“”)
strOutput = replace(strOutput,”””,”””)
strOutput = replace(strOutput,”„”,”„”)
strOutput = replace(strOutput,”†”,”†”)
strOutput = replace(strOutput,”‡”,”‘”)
strOutput = replace(strOutput,”…”,”…”)
strOutput = replace(strOutput,”¡”,”¡”)
strOutput = replace(strOutput,”¤”,”¤”)
strOutput = replace(strOutput,”¢”,”¢”)
strOutput = replace(strOutput,”£”,”£”)
strOutput = replace(strOutput,”¥”,”¥”)
strOutput = replace(strOutput,”¦”,”¦”)
strOutput = replace(strOutput,”§”,”§”)
strOutput = replace(strOutput,”¨”,”¨”)
strOutput = replace(strOutput,”©”,”©”)
strOutput = replace(strOutput,”ª”,”ª”)
strOutput = replace(strOutput,”«”,”«”)
strOutput = replace(strOutput,”¬”,”¬”)
strOutput = replace(strOutput,”®”,”®”)
strOutput = replace(strOutput,”™”,”™”)
strOutput = replace(strOutput,”¯”,”¯”)
strOutput = replace(strOutput,”°”,”°”)
strOutput = replace(strOutput,”±”,”±”)
strOutput = replace(strOutput,”²”,”²”)
strOutput = replace(strOutput,”³”,”³”)
strOutput = replace(strOutput,”´”,”´”)
strOutput = replace(strOutput,”µ”,”µ”)
strOutput = replace(strOutput,”¶”,”¶”)
strOutput = replace(strOutput,”·”,”·”)
strOutput = replace(strOutput,”¸”,”¸”)
strOutput = replace(strOutput,”¹”,”¹”)
strOutput = replace(strOutput,”º”,”º”)
strOutput = replace(strOutput,”»”,”»”)
strOutput = replace(strOutput,”¼”,”¼”)
strOutput = replace(strOutput,”½”,”½”)
strOutput = replace(strOutput,”¾”,”¾”)
strOutput = replace(strOutput,”¿”,”¿”)
strOutput = replace(strOutput,”×”,”×”)
strOutput = replace(strOutput,”÷”,”÷”)
strOutput = replace(strOutput,”‰”,”‰”)
strOutput = replace(strOutput,”‹”,”‹”)
strOutput = replace(strOutput,”›”,”›”)
strOutput = replace(strOutput,”€”,”€”)
strOutput = replace(strOutput,”"”,”"”)
strOutput = replace(strOutput,”'”,”'”)
strOutput = replace(strOutput,”&”,”&”)
strOutput = replace(strOutput,”<”,”<”)
strOutput = replace(strOutput,”>”,”>”)
strOutput = replace(strOutput,” ”,”  ”)
strOutput = replace(strOutput,”–”,”–”)
strOutput = replace(strOutput,”—”,”—”)
strOutput = replace(strOutput,”‘”,”‘”)
strOutput = replace(strOutput,”’”,”’”)
strOutput = replace(strOutput,”‚”,”‚”)
strOutput = replace(strOutput,”“”,”“”)
strOutput = replace(strOutput,”””,”””)
strOutput = replace(strOutput,”„”,”„”)
strOutput = replace(strOutput,”†”,”†”)
strOutput = replace(strOutput,”‡”,”‡”)
strOutput = replace(strOutput,”…”,”…”)
strOutput = replace(strOutput,”¡”,”¡”)
strOutput = replace(strOutput,”¤”,”¤”)
strOutput = replace(strOutput,”¢”,”¢”)
strOutput = replace(strOutput,”£”,”£”)
strOutput = replace(strOutput,”¥”,”¥”)
strOutput = replace(strOutput,”¦”,”¦”)
strOutput = replace(strOutput,”§”,”§”)
strOutput = replace(strOutput,”¨”,”¨”)
strOutput = replace(strOutput,”©”,”©”)
strOutput = replace(strOutput,”ª”,”ª”)
strOutput = replace(strOutput,”«”,”«”)
strOutput = replace(strOutput,”¬”,”¬”)
strOutput = replace(strOutput,”­”,”­”)
strOutput = replace(strOutput,”®”,”®”)
strOutput = replace(strOutput,”™”,”™”)
strOutput = replace(strOutput,”¯”,”¯”)
strOutput = replace(strOutput,”°”,”°”)
strOutput = replace(strOutput,”±”,”±”)
strOutput = replace(strOutput,”²”,”²”)
strOutput = replace(strOutput,”³”,”³”)
strOutput = replace(strOutput,”´”,”´”)
strOutput = replace(strOutput,”µ”,”µ”)
strOutput = replace(strOutput,”¶”,”¶”)
strOutput = replace(strOutput,”·”,”·”)
strOutput = replace(strOutput,”¸”,”¸”)
strOutput = replace(strOutput,”¹”,”¹”)
strOutput = replace(strOutput,”º”,”º”)
strOutput = replace(strOutput,”»”,”»”)
strOutput = replace(strOutput,”¼”,”¼”)
strOutput = replace(strOutput,”½”,”½”)
strOutput = replace(strOutput,”¾”,”¾”)
strOutput = replace(strOutput,”¿”,”¿”)
strOutput = replace(strOutput,”×”,”×”)
strOutput = replace(strOutput,”÷”,”÷”)
strOutput = replace(strOutput,”À”,”À”)
strOutput = replace(strOutput,”Á”,”Á”)
strOutput = replace(strOutput,””,””)
strOutput = replace(strOutput,”Ô,”Ô)
strOutput = replace(strOutput,”Ä”,”Ä”)
strOutput = replace(strOutput,”Å”,”Å”)
strOutput = replace(strOutput,”Æ”,”Æ”)
strOutput = replace(strOutput,”Ç”,”Ç”)
strOutput = replace(strOutput,”È”,”È”)
strOutput = replace(strOutput,”É”,”É”)
strOutput = replace(strOutput,”Ê”,”Ê”)
strOutput = replace(strOutput,”Ë”,”Ë”)
strOutput = replace(strOutput,”Ì”,”Ì”)
strOutput = replace(strOutput,”Í”,”Í”)
strOutput = replace(strOutput,”Δ,”Δ)
strOutput = replace(strOutput,”Ï”,”Ï”)
strOutput = replace(strOutput,”Д,”Д)
strOutput = replace(strOutput,”Ñ”,”Ñ”)
strOutput = replace(strOutput,”Ò”,”Ò”)
strOutput = replace(strOutput,”Ó”,”Ó”)
strOutput = replace(strOutput,”Ô”,”Ô”)
strOutput = replace(strOutput,”Õ”,”Õ”)
strOutput = replace(strOutput,”Ö”,”Ö”)
strOutput = replace(strOutput,”Ø”,”Ø”)
strOutput = replace(strOutput,”Ù”,”Ù”)
strOutput = replace(strOutput,”Ú”,”Ú”)
strOutput = replace(strOutput,”Û”,”Û”)
strOutput = replace(strOutput,”Ü”,”Ü”)
strOutput = replace(strOutput,”Ý”,”Ý”)
strOutput = replace(strOutput,”Þ”,”Þ”)
strOutput = replace(strOutput,”ß”,”ß”)
strOutput = replace(strOutput,”à”,”à”)
strOutput = replace(strOutput,”á”,”á”)
strOutput = replace(strOutput,”â”,”â”)
strOutput = replace(strOutput,”ã”,”ã”)
strOutput = replace(strOutput,”ä”,”ä”)
strOutput = replace(strOutput,”å”,”å”)
strOutput = replace(strOutput,”æ”,”æ”)
strOutput = replace(strOutput,”ç”,”ç”)
strOutput = replace(strOutput,”è”,”è”)
strOutput = replace(strOutput,”é”,”é”)
strOutput = replace(strOutput,”ê”,”ê”)
strOutput = replace(strOutput,”ë”,”ë”)
strOutput = replace(strOutput,”ì”,”ì”)
strOutput = replace(strOutput,”í”,”í”)
strOutput = replace(strOutput,”î”,”î”)
strOutput = replace(strOutput,”ï”,”ï”)
strOutput = replace(strOutput,”ð”,”ð”)
strOutput = replace(strOutput,”ñ”,”ñ”)
strOutput = replace(strOutput,”ò”,”ò”)
strOutput = replace(strOutput,”ó”,”ó”)
strOutput = replace(strOutput,”ô”,”ô”)
strOutput = replace(strOutput,”õ”,”õ”)
strOutput = replace(strOutput,”ö”,”ö”)
strOutput = replace(strOutput,”ø”,”ø”)
strOutput = replace(strOutput,”ù”,”ù”)
strOutput = replace(strOutput,”ú”,”ú”)
strOutput = replace(strOutput,”û”,”û”)
strOutput = replace(strOutput,”ü”,”ü”)
strOutput = replace(strOutput,”ý”,”ý”)
strOutput = replace(strOutput,”þ”,”þ”)
strOutput = replace(strOutput,”ÿ”,”ÿ”)
strOutput = replace(strOutput,”Œ”,”Œ”)
strOutput = replace(strOutput,”œ”,”œ”)
strOutput = replace(strOutput,”Š”,”Š”)
strOutput = replace(strOutput,”š”,”š”)
strOutput = replace(strOutput,”Ÿ”,”Ÿ”)
strOutput = replace(strOutput,”ˆ”,”ˆ”)
strOutput = replace(strOutput,”˜”,”˜”)
strOutput = replace(strOutput,” ”,” ”)
strOutput = replace(strOutput,” ”,” ”)
strOutput = replace(strOutput,” ”,” ”)
strOutput = replace(strOutput,”‌”,”‌”)
strOutput = replace(strOutput,”‍”,”‍”)
strOutput = replace(strOutput,”‎”,”‎”)
strOutput = replace(strOutput,”‏”,”‏”)
strOutput = replace(strOutput,”‰”,”‰”)
strOutput = replace(strOutput,”‹”,”‹”)
strOutput = replace(strOutput,”›”,”›”)
strOutput = replace(strOutput,”€”,”€”)
strOutput = Replace(strOutput, “ä”, “ä”)
strOutput = Replace(strOutput, “Ä”, “Ä”)
strOutput = Replace(strOutput, “ö”, “ö”)
strOutput = Replace(strOutput, “Ö”, “Ö”)
strOutput = Replace(strOutput, “ü”, “ü”)
strOutput = Replace(strOutput, “Ü”, “Ü”)
strOutput = Replace(strOutput, “ß”, “ß”)
htmlEntities = strOutput
END FUNCTION