Hej CJ och alla andra!
Har är koden som jag lovade på chatten, anledningen till att jag lade den här att den går säkert att göra den snabbare o bättre, så det kanske ni ASP proffs kan fixa, men koden nedan funkar fint.

Uppdrag: en kod som tar bort HTML taggar i ASP, asså bara valbara taggar

<code>
Function FixaTaggar(Medd)
Fixataggar = Medd
Fixataggar = replace(Fixataggar,">", ">")
Fixataggar = replace(FixaTaggar,"<", "<")

Fixataggar = replace(Fixataggar,"<B>", "<B>")
Fixataggar = replace(Fixataggar,"</B>", "</B>")
End Function
</code>

gör så att Bold taggen funkar men inga andra. förslag på förbättringar motags gärna!
/jonas

<code>
Function FixaTaggar(Medd)
Fixataggar = Medd
Fixataggar = replace(Fixataggar,">", "&gt;")
Fixataggar = replace(FixaTaggar,"<", "&lt;")

Fixataggar = replace(Fixataggar,"&lt;B&gt;", "<B>")
Fixataggar = replace(Fixataggar,"&lt;/B&gt;", "</B>")
End Function
</code>