Zeilenumbrüche ersetzen, außer wenn <table>

[crsakawolf]

Hi.

habe folgendes Problem, ich möchte gerne einen Text aus einer DB ausgeben, dieser beinhaltet Umbrüche.
Leider ist es nun der Fall, das wenn ich zb eine Tabelle mit HTML Tags in der DB habe, diese dann durch die umbrüche nach unten wandert und sehr viele leer umbrüche entstehen.

text = replace(rs("text"), vbCr, "<BR>" & vbCrLf)

"TEST

... viele leerzeilen ...

















2 7
3 8
4 9
5 10
6"

Db- Eintrag
"<table>
<tr>
<td>2</td>
<td>7</td>
</tr>
<tr>
<td>3</td>
<td>8</td>
</tr>
<tr>
<td>4</td>
<td>9</td>
</tr>
<tr>
<td>5</td>
<td>10</td>
</tr>
<tr>
<td>6</td>
</tr>
</table>"