ho risolto con questa funzione

codice:
<%
    Function StripTags(TextToStrip)
        Dim re
        Set re = New RegExp
        re.Pattern = "<[^>]+>"
        re.IgnoreCase = True
        re.Global = True
        StripTags = re.Replace(TextToStrip, "")
        Set re = Nothing
    End Function
%>
<%
    Dim stringa
    stringa = rs(corpo)
    Response.Write StripTags(stringa)
%>