slet formatering

<%
Function FilterTag(strText, strTag)
    Dim strStartTag
    Dim strEndTag
    Dim intStartPos
    Dim intStopPos
    Dim strReplace

    strStartTag = "<" & strTag
    strEndTag = "</" & strTag

        'remove startTag
    While instr(1, strIndhold, strStartTag, 1) > 0       
        intStartPos = instr(1, strText, strStartTag, 1)
        intStopPos = instr(intStartPos + 1, strText, ">", 0) + 1
        strReplace = mid(strText, intStartPos, intStopPos - intStartPos)
        strIndhold = Replace(strText, strReplace, "")
    Wend   
        'remove end tag
    While instr(1, strText, strEndTag, 1) > 0
        intStartPos = instr(1, strText, strEndTag, 1)
        intStopPos = instr(intStartPos + 1, strText, ">", 0) + 1
        strReplace = mid(strText, intStartPos, intStopPos - intStartPos)
        strText = Replace(strText, strReplace, "")
    Wend

    FilterTag = strText
End function
%>

Du skal fodre den med den tekst du har og det tag du vil have fjernet f.x. font og den returnerer så din tekst med det tag fjernet

lukker