doronty37 fıkrınden yola cıkarak sorunu buldum

'*********************************************
'*** Strip all tags *****
'*********************************************
'Remove all tags for text only display (mainly for subject lines)
Private Function removeAllTags(ByVal strInputEntry)
'Remove all HTML scripting tags etc. for plain text output
strInputEntry = Replace(strInputEntry, "<", "&lt;", 1, -1, 1)
strInputEntry = Replace(strInputEntry, ">", "&gt;", 1, -1, 1)
strInputEntry = Replace(strInputEntry, "'", "'", 1, -1, 1)
strInputEntry = Replace(strInputEntry, """", """", 1, -1, 1)


functions komutu ıle html engellenıyormus su an sorunu hallettım tsk ederım.