Jag har denna forumfunktion ovan, men om jag har en testkod mellan < och >-taggar och i samma meddelande kör med mina egna []-taggar så blir allt "HTMLEncodat". Hur löser jag detta?
Jag har försökt att plocka ut allt mellan < och > och enbart köra HTMLEncode på det men jag fick ingen framgång.. Mycket tacksam för svar.

Koden:
<% Function forumCode(mess)
mess = Server.HTMLEncode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = "\[citat\]"
mess = objRegExp.Replace(mess,"<span class=""citat"">Citat:<br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/citat\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[kod\]"
mess = objRegExp.Replace(mess,"<span class=""forumkod"">Kod:<br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/kod\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

forumCode = mess
End Function %>