%
Function cvt(s)
Set re = New RegExp
re.Pattern = "()(?!)"
re.Global = True
cvt = re.Replace(s, "$1$2$3")
End Function
Response.Write cvt("") & "
" & vbCrLf
Response.Write cvt("") & "
" & vbCrLf
Response.Write cvt("bla bla") & "
" & vbCrLf
Response.Write cvt("bla bla") & "
" & vbCrLf
%>