Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.pattern = "[a-zåäöA-ZÅÄÖ_-\s]"
if objRegExp.text( strDinText ) then
response.write "Texten är rätt"
else
response.write "Texten är fel"
end if
Är lite osäker på om man måste ange "[a-zåäö]" eller om "[a-ö]" räcker, eftersom iso-standarden innehåller en massa andra tecken mellan "z" och "ö"
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.pattern = "[^a-zåäöA-ZÅÄÖ_\-\s]"
if not objRegExp.text( strDinText ) then
response.write "Texten är rätt"
else
response.write "Texten är fel"
end if