Problema con retornos de carro

[u_goldman]

Iniciado por Arcan

Goldman, sos un crá!!!!

Anda bárbaro!.

Ahora, si no es demasiada molestia, es posible hacer lo mismo con enters que estén al final de la cadena??

He estado probando tu código con right en lugar de left pero se vé que estoy haciendo algo mal o no se puede hacer.

No se si te lo merezcas

Código:

<%
Dim texto
Dim j

texto = "Este es un texto"&chr(10)&chr(13)&chr(10)&chr(13)&chr(10)&chr(13)

for j = len(texto) to 1 step -1
    if right(texto, 1) = chr(10) or right(texto,1) = chr(13) then
	    texto = left(texto, len(texto)-1)
    else
	    exit for   
    end if	
next
%>
<textarea rows="10" cols="30" ID="Textarea1" NAME="Textarea1"><%Response.Write(texto)%></textarea>

Por nada y salud!