Kun hente tekst i DB

kunne man ik gøre noget lignende:

<%
Function ReplaceTest(tekst,patrn, replStr)
  Dim regEx, str1
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.global = true
  regEx.IgnoreCase = True
  ReplaceTest = regEx.Replace(tekst, replStr)
End Function

strTekst = "den tekst der kommer fra <div contenteditable="true">"
udenHTML = Left(ReplaceTest(strTekst,"(<[^><]*>)"," "),100)

' og så skriver du den til den databasen
%>

replace funktionen er taget fra http://www.eksperten.dk/spm/520499 der er også et andet eksempel som måske er endnu bedre, men det fylder noget mere.

var det sådan noget du mente ?

Det var det jeg mente men den gør lidt for meget. Den fjerner også <p> tags og andre tags hvor der kan stå alm. tekst i. Disse skal ikke fjernes. Jeg vil fjerne billeder, tabeller, horisontal rules osv. således at søgereultatet kun viser tekst selvom der er andre "uønskede" elementer i blandt.
Er det muligt?

Alle disse elementer skal fjernes:

TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
    "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
    "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
    "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
    "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
    "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
    "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
    "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;" 

  Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"


...men hvordan implementeres det?

Fandt ud af det. Takker for hjælpen. Ligger du lige et svar?

Brugte funktionen fra linket.

det kan du tro.