Sformattare il testo di un record

[iadream]

Salve amici,

ho questo problema: ho dei record di testo contenuti in un db scritti in html, quindi avranno tag. Effettuando una ricerca in questi campi, però se voglio mostrare solo tot caratteri, con il classifo uso di LEFT, rischio di non chiudere i tag e perdere la formattazione del sito.

Ora vi chiedo: è possibile eliminare i tag? Cioè fare come se ci fosse solo testo?!

[santino83_11_04]

questa regexp è stata gentilmente concessa da willybit qualche centinaia di post fa:

pageGet="blablabla"  'TESTO CON TAG HTML

set re = Server.CreateObject("VBScript.RegExp")
re.Pattern="<table cellspacing=""0"" cellpadding=""0"" border=""0"">\s+<tr>\s+<td class=""main-lbl"">([^<]*)</td>\s+</tr>\s+</table>\s+</td>\s+</tr>\s+<tr>\s+<td width=""10"" class=""main-lbl""></td>\s+<td class=""main-lbl-normal"">Categoria: <a[^>]+>([^<]*)</a></td>\s+</tr>\s+<tr>\s+<td width=""10"" class=""main-lbl""></td>\s+<td class=""main-lbl-normal"">\s+([^<]*)</br>\s+<a[^>]+>(\d+)</a>\s+([^<]+)<a[^>]+>([^<]+)</a>\s+
\s+tel (\d+)\s+</td>"
re.global=true
re.Multiline=true
set ris = re.Execute(pageGet)
re.Pattern="\s+$" 'questa è per togliere gli spazi vuoti alla fine
for each rr in ris
  set sm = rr.SubMatches
  for each ss in sm
    Response.Write re.Replace(ss,"") & "
" & vbCrLf
  next
  Response.Write "<hr>"
next

prova un pò

[iadream]

Scusa ma non funziona!

ho scritto:

pageGet = (storia.Fields.Item("TESTO").Value) 'record da DB con TAG HTML

set re = Server.CreateObject("VBScript.RegExp")
re.Pattern="<table cellspacing=""0"" cellpadding=""0"" border=""0"">\s+<tr>\s+<td class=""main-lbl"">([^<]*)</td>\s+</tr>\s+</table>\s+</td>\s+</tr>\s+<tr>\s+<td width=""10"" class=""main-lbl""></td>\s+<td class=""main-lbl-normal"">Categoria: <a[^>]+>([^<]*)</a></td>\s+</tr>\s+<tr>\s+<td width=""10"" class=""main-lbl""></td>\s+<td class=""main-lbl-normal"">\s+([^<]*)</br>\s+<a[^>]+>(\d+)</a>\s+([^<]+)<a[^>]+>([^<]+)</a>\s+
\s+tel (\d+)\s+</td>"
re.global=true
re.Multiline=true
set ris = re.Execute(pageGet)
re.Pattern="\s+$" 'questa è per togliere gli spazi vuoti alla fine
for each rr in ris
set sm = rr.SubMatches
for each ss in sm
Response.Write re.Replace(ss,"") & "
" & vbCrLf
next
Response.Write "<hr>"
next