ciclo e replace

[mimedia]

Ciao a tutti,
ho un'area di testo con, appunto, del testo,
poi ho un db dove sono contenuti dei termini,

vorrei inserire i tag bold e un colore in funzione del tipo nei termini del testo quando questi sono presenti nel db.
es testo:
(bla bla..è arrivato l'inverno e già rimpiango le sudate di quest'estate..)
nel db: inverno (tipo g), estate (tipo a)
risultato:
(bla bla..è arrivato l'inverno e già rimpiango le sudate di quest'estate ..)

ho scritto:
[connessione ed esecuzione sql)

testo=Request.form("textArea")
Do while not rs.EOF

termineTesto=rs("termine")
tipoTermine=rs("tipo")

if (tipoTermine="g") then
strg="<font color='#009933'><u>"&termineTesto&"</u></font>"
else
strg="<font color='#0000CC'><u>"&termineTesto&"</a></u></font>"
end if

testoFinale = Replace(testo,termineTesto,strg)
rs.MoveNext
Loop

rs.Close

però così mi formatta solo l'ultimo termine presente nel db..(ho provato nel sql ad invertire l'Order e infatti solo l'ultimo viene riconosciuto)...

dov'è la "magagna"

[mimedia]

...scusate la svista da, come dite qua?... FAGIANO!!

[.....]
end if

no!! testoFinale = Replace(testo,termineTesto,strg)
ma: testo = Replace(testo,termineTesto,strg)
rs.MoveNext
Loop
[.....]

alla prossima