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
%> 

[Roby_72]

Utililizza una funzione simile a questa per eliminarli.

Function deleteHTML(strHTML) 
     Dim objRegExp, strOutput 
     Set objRegExp = New Regexp 
     objRegExp.IgnoreCase = True 
     objRegExp.Global = True 
     strOutput=strHTML 
     objRegExp.Pattern = "<[^>]*>" 
     strOutput = objRegExp.Replace(strOutput, "") 
     deleteHTML = strOutput 
     set objRegExp = Nothing 
End Function

Roby

[Mr.UltraDev]

provo subito!

[Mr.UltraDev]

funge alla grande!!!

grazie!