Textarea que acepta codigos HTML

[malex6]

Amigos,

Copie el codigo de los foros Znits, para hacer que mis formularios aceptaran codigos Html y lo logre¡¡¡, salvo un detalle, los acepta como los conocemos <b> hola </b>
<img src="lafoto....>

perdon este es el codigo:
<%
function CleanCode(fString)
fString = replace(fString, "<b>","",1, -1, 1)
fString = replace(fString, "</b>"," ", 1, -1, 1)
fString = replace(fString, "<s>", "", 1, -1, 1)
fString = replace(fString, "</s>", "", 1, -1, 1)
fString = replace(fString, "<u>","", 1, -1, 1)
fString = replace(fString, "</u>","", 1, -1, 1)
fString = replace(fString, "<i>","", 1, -1, 1)
fString = replace(fString, "</i>"," ", 1, -1, 1)
fString = replace(fString, "<font color=red>", "[red]", 1, -1, 1)
fString = replace(fString, "</font id=red>", "[/red]", 1, -1, 1)
fString = replace(fString, "<font color=green>", "[green]", 1, -1, 1)
fString = replace(fString, "</font id=green>", "[/green]", 1, -1, 1)
fString = replace(fString, "<font color=blue>", "[blue]", 1, -1, 1)
fString = replace(fString, "</font id=blue>", "[/blue]", 1, -1, 1)
fString = replace(fString, "<font color=white>", "[white]", 1, -1, 1)
fString = replace(fString, "</font id=white>", "[/white]", 1, -1, 1)
fString = replace(fString, "<font color=purple>", "[purple]", 1, -1, 1)
fString = replace(fString, "</font id=purple>", "[/purple]", 1, -1, 1)
fString = replace(fString, "<font color=yellow>", "[yellow]", 1, -1, 1)
fString = replace(fString, "</font id=yellow>", "[/yellow]", 1, -1, 1)
fString = replace(fString, "<font color=violet>", "[violet]", 1, -1, 1)
fString = replace(fString, "</font id=violet>", "[/violet]", 1, -1, 1)
fString = replace(fString, "<font color=brown>", "[brown]", 1, -1, 1)
fString = replace(fString, "</font id=brown>", "[/brown]", 1, -1, 1)
fString = replace(fString, "<font color=black>", "[black]"