This expression is cutting the HTML only when I put it at the beginning of the expression. How to fix this?
(?:[ \t]*[a-z][)]\s*)?([^\r\n<]+(?:(?:\r?\n(?!\s*[a-z][)])|<(?!br\s*\/?>(?:\s*<br\s*\/?>)*\s*(?:\s+[a-z][)]|\s*$)))[^\r\n<]*)*)(?:<br\s*\/?>\s*)*
questao=Request.Form("questao")
'RegEx
Set re = New RegExp
re.Global = true
re.IgnoreCase = true
re.Pattern = "(?:[ \t]*[a-z][)]\s*)?([^\r\n<]+(?:(?:\r?\n(?!\s*[a-z][)])|<(?!br\s*\/?>(?:\s*<br\s*\/?>)*\s*(?:\s+[a-z][)]|\s*$)))[^\r\n<]*)*)(?:<br\s*\/?>\s*)*"
Set matches = re.Execute(questao)
If (matches.Count) Then
'PERGUNTA
pergunta=(matches(0).SubMatches(0))
Response.Write(pergunta)
'RESPOSTAS
For m = 1 To matches.Count - 1
Response.Write(matches(m).SubMatches(0))
resposta_a=matches(1).SubMatches(0)
resposta_b=matches(2).SubMatches(0)
resposta_c=matches(3).SubMatches(0)
resposta_d=matches(4).SubMatches(0)
resposta_e=matches(5).SubMatches(0)
Next
End If
Set matches = Nothing
Set re = Nothing
%>