<% Option Explicit 'Test Regular Expression Dim objRegularExpression, strResult, strPostalCode strPostalCode = "M1W2G1" objRegularExpression = New regexp 'objRegularExpression.Pattern = "([a-zA-Z][0-9]){3}" 'objRegularExpression.IgnoreCase = True 'objRegularExpression.Global = True 'Set strResult = ojbRegularExpression.Execute( strPostalCode ) Response.Write "strResult is " & strResult & "
" & vbCrLf %>