Ersätta flera vbCrLf

Med nytt stycke så menar du att det skall vara ett nytt <p> element då eller?

Eller är det bara två <br> du vill ha för nytt stycke?

Hej hej! Jag skulle vilja ha 2 st <br> om det är 2 eller fler vbCrLf i koden

Function Radbryt(rfix)
	With New RegExp
		.Global = True
		.Pattern = vbCrLf & "{2,}"
		rfix= .Replace("" & rfix, "<br><br>")
		Radbryt  = Replace(rfix,vbCrLf, "<br>")
	End With
End Function

något sådant med RegExp.

Hm... vet inte om det är jag som lagt in det fel på något vis men jag får exakt samma resultat som innan...

prova byt uttrycket till: "[\r\n]{3,}" istället för vbCrLf & "{2,}"

Tyvärr hände inget då heller...

Det är märkligt, jag kör exakt samma kod på:
http://voigt.se/sandbox/wf/newline/

och vad jag ser så är det inga problem.

Oj, vad konstigt. Visst menade du så här:
<script language=VBScript runat=Server>
Function Radbryt(rfix)
With New RegExp
.Global = True
.Pattern = "[\r\n]{3,}"
rfix= .Replace("" & rfix, "<br><br>")
Radbryt = Replace(rfix,vbCrLf, "<br>")
End With
End Function
</script>

Koden jag kör exakt är:

<form action="index.asp" method="post">
	<textarea name="fubar"></textarea>
	<input type="submit" />
</form>
<%
Function Radbryt(Byval rfix)
	With New RegExp
		.Global = True
		.Pattern = "[\n\r]{3,}"
		rfix = .Replace("" & rfix, "<br><br>")
		Radbryt = Replace(rfix,vbCrLf, "<br>")
	End With
End Function

If Len(Request.Form("fubar")) Then Response.Write Radbryt(Request.Form("fubar"))
%>

<script language> fungera väl sådär vad jag vet...

Den vill bara inte, jag får nog ge upp :-)
Stort tack till dig för dina försök @->---

kör du någon annan funktion innan dess, har ser indatan ut i funktionen som inte fungera? Du kanske kör någon WYSIWYG-javascript som rendera ut HTML osv?

Jag sätter en hundring på att det beror på att webbplatsen körs på något annat än Windows/IIS.