<% 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 %>