Insertar salto dentro de un texarea

[rrufo]

hola a todos.

Tengo una cadena de texto del tipo:

bla bla blaaa <br> bla bla blaa

que muestro dentro de un campo de texto.

todo va bien pero ahora quiero q en vez de <br> se salte de linea.

Para eso he programado esta funcion en asp pero no me funciona.
aunque si en vez de chr(13) pongo XXX si que realiza el cambio
<%

Function DoSalto(str)
If (str <> "") then
DoSalto = (Replace(str,"<br>",chr(13)))
else
DoSalto =""
end if
End Function
%>

el codigo donde asigno el texto es muy simple

<%
MM_Descripcion = DoSalto(Marca.Fields.Item ("Designacion").Value)

%>

document.forms.Listas.textfield3.value = "<% =MM_Descripcion %> "