problema con campo memo e asp

[ResianTaxidrive]

Chiedo venia a optime.

Riassunto:
pesco dei dati da un database ed effettuo una sostituzione della & commerciale

funzione che fa la sostituzione :

function fecomm(stringa) 

 
   IF TRIM(stringa & "[]")="[]" THEN EXIT FUNCTION

   if (StrComp(stringa,"") <> 0) then
      fecomm = replace(stringa, "&", "%26")
   end if 
end function

raccolta dati:

Do until(x=4)
  x = x + 1
  Response.Write("date"&x&"="&rs("Data")&"&descrizione"&x&"="&(fecomm(rs("Descrizione")))&"&testo"&x&"="&(fecomm(rs("Testo")))&"&immagine"&x&"="&rs("Immagine"))
  rs.MoveNext
  If x<4 then Response.Write("&")

la funzione applicata al campo che io chiamo "Testo" fa incasinare l'asp, io vedo cioe' &testo1= senza il contenuto del campo. Ho stabilito che il campo è di tipo Memo ed è questo che da' problemi; cambiando il tipo al campo funziona ma io ho bisogno che il campo sia maggiore di 255 caratteri. Come si può risolvere?