Eliminar saltos de linea en texto preformateado

[Adler]

Hola

Prueba ahora

Código asp:

<&#37;
Function LimpiarTags(texto) 
Dim objRegExp
 
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
 
objRegExp.Pattern = "(<br>+([<br]+>){1,20})"
texto = objRegExp.Replace(texto, "<br>") 
 Set objRegExp = Nothing
 
    LimpiarTags = texto
 
End Function
 
str = "Una cadena con saltos de lineas<br><br><br>Una cadena con saltos de lineas<br>Una cadena con saltos de lineas<br><br>Una cadena con saltos de lineas"
 
Response.Write LimpiarTags(str)
%>
 

Suerte