Tagliare frase ad n caratteri ma senza contare tag

[Mr.UltraDev]

Ragazzi io utilizzo questo script per tagliare porzioni di frasi

solo che avendo aggiunto dell HTML nel database non vorrei che venissero contati i tag di formattazione

sapreste aiutarmi?

http://free-script.it/post/Script_as..._parole-84.htm

simile più o meno a questo

<%
sText = (Rs_articoli("titolo"))
iMaxChar = 45
sResult = sText
If Len(sResult) > iMaxChar Then  
If InStr(iMaxChar, sResult, " ") > 0 Then    
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")-1) & "..."  
    End If
End If
Response.Write sResult
%>