regular expression

Hej

Jeg har følgende kode:


<%
Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches  ' Create variable.
  Set regEx = New RegExp  ' Create a regular expression.
  regEx.Pattern = patrn  ' Set pattern.
  regEx.IgnoreCase = True  ' Set case insensitivity.
  regEx.Global = True  ' Set global applicability.
  Set Matches = regEx.Execute(strng)  ' Execute search.
  For Each Match in Matches  ' Iterate Matches collection.
        RetStr = true
  Next
  if not retstr = true then
        retstr = false
  end if
  RegExpTest = RetStr
End Function


patrn = "^<B>[A-Za-z0-9\s]<P>"

strng = "<B>JVC"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "Danmon Danmark A/S, 87<\!s>45<\!s>99<\!s>30"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "Danmon Danmark A/S, 63<\!s>12<\!s>41<\!s>70"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "Danmon Danmark A/S, 45<\!s>96<\!s>88<\!s>00"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "<B>JVC <P>"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "FOTO: AVH10373  26  mm"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
strng = "mm"
response.write (RegExpTest(patrn, strng)) & "<br><br>"
%>

Jeg har brug for at denne bliver sand:
<B>JVC <P>"

Men den kan også godt have ståret sådan her:
<B>JVC<P>"

Eller
<B>JVC P23424 <P>"

Altså skal den godkende mellemrum mellem <B> og <P>

Håber der er nogen som kan hjælpe mig...