buon pomeriggio a tutti

utilizzo queste due funzioni per sosituire dei caratteri speciali prima di inserirli in un db e per visualizzarli poi in una textarea.

Non capisco però perchè nel primo caso funziona e nel secondo no.
qualche idea?:-(

grazie
federica

prima di inserire o aggiornare il db
utilizzo
descrizione=request.form("descrizione")
descrizione=replaceCaratteriSpeciali(descrizione)

viceversa per mostrare poi i dati nel form eventualmente da modificare:
descrizione=rs("descrizione")
descrizione=CaratteriSpeciali(descrizione)

<textarea name="descrione"><%=descrizione%></textarea>

Function ReplaceCaratteriSpeciali( Testo )
'***********************************************************************
On Error Resume Next
If not Len(Testo) > 0 Then ReplaceCaratteriSpeciali = "": Exit Function
Testo = replace(Testo,"&","&amp;")
Testo = replace(Testo,"<","&lt;")
Testo = replace(Testo,">","&gt;")
Testo = replace(Testo,"""","&quote;")
Testo = replace(Testo,"'","&apos;")
Testo = replace(Testo,"?","&apos;")
Testo = replace(Testo,"è","e&apos;")
Testo = replace(Testo,"é","e&apos;")
Testo = replace(Testo,"à","a&apos;")
Testo = replace(Testo,"ò","o&apos;")
Testo = replace(Testo,"ù","u&apos;")
Testo = replace(Testo,"ì","i&apos;")
Testo = replace(Testo,"?","&#8364;")
ReplaceCaratteriSpeciali = Testo
end function

Function CaratteriSpeciali(Testo)
'***********************************************************************
On Error Resume Next
If not Len(Testo) > 0 Then CaratteriSpeciali = "": Exit Function
Testo = replace(Testo,"&amp;","&")
Testo = replace(Testo,"&lt;","<")
Testo = replace(Testo,"&gt;",">")
Testo = replace(Testo,"&quote;","""")
Testo = replace(Testo,"&apos;","'")
Testo = replace(Testo,"&apos;","?")
Testo = replace(Testo,"e&apos;","è")
Testo = replace(Testo,"e&apos;","é")
Testo = replace(Testo,"a&apos;","à")
Testo = replace(Testo,"o&apos;","ò")
Testo = replace(Testo,"u&apos;","ù")
Testo = replace(Testo,"i&apos;","ì")
Testo = replace(Testo,"&#8364;","?")
CaratteriSpeciali = Testo
end function

non funziona nel senso che non effettua il replace.
ho provato a togliere il resume ma così non stampa proprio più nulla :-((

lo fa anche con una solo parola :-(
altro che ultima spiaggia
....
fe